home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / windows.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-09  |  1.1 MB  |  30,449 lines
Text Truncated. Only the first 1MB is shown below. Download the file for the complete contents.
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Run-time Library                         }
  5. {       Windows 32bit API Interface Unit                }
  6. {                                                       }
  7. {       Copyright (c) 1996,98 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Windows;
  12.  
  13. {$ALIGN ON}
  14. {$MINENUMSIZE 4}
  15. {$WEAKPACKAGEUNIT}
  16.  
  17. interface
  18.  
  19. (*$HPPEMIT '' *)
  20. (*$HPPEMIT '// WINDOWS provides two definitions of BLOB: wtypes.h defines a' *)
  21. (*$HPPEMIT '// BLOB as a tagBLOB struct whereas nspapi.h defines a BLOB as a _BLOB' *)
  22. (*$HPPEMIT '// struct. Unfortunately, VCL does not use the portable BLOB type but' *)
  23. (*$HPPEMIT '// rather relies on tagBLOB. So here we use a kludge to try to determine' *)
  24. (*$HPPEMIT '// which flavour of BLOB we have (which is determined by the order of header' *)
  25. (*$HPPEMIT '// inclusion by the compilation unit). If it is the _BLOB, we expose the' *)
  26. (*$HPPEMIT '// tagBLOB type for VCL.' *)
  27. (*$HPPEMIT '//' *)
  28. (*$HPPEMIT '#if sizeof(_BLOB) == 8      // We know that BLOB is 8 bytes ' *)
  29. (*$HPPEMIT 'typedef _BLOB tagBLOB;      // If unknown, _BLOB would be 4 ' *)
  30. (*$HPPEMIT '#endif                      // tagBLOB Kludge' *)
  31. (*$HPPEMIT '#if sizeof(tagBLOB) == 4    // tagBLOB has probably not been defined yet' *)
  32. (*$HPPEMIT '#ifndef _tagBLOB_DEFINED' *)
  33. (*$HPPEMIT '#define _tagBLOB_DEFINED' *)
  34. (*$HPPEMIT '#define _BLOB_DEFINED' *)
  35. (*$HPPEMIT '#define _LPBLOB_DEFINED' *)
  36. (*$HPPEMIT 'typedef struct  tagBLOB' *)
  37. (*$HPPEMIT '    {' *)
  38. (*$HPPEMIT '    ULONG cbSize;' *)
  39. (*$HPPEMIT '    /* [size_is] */ BYTE __RPC_FAR *pBlobData;' *)
  40. (*$HPPEMIT '    }       BLOB;' *)
  41. (*$HPPEMIT '' *)
  42. (*$HPPEMIT 'typedef struct tagBLOB __RPC_FAR *LPBLOB;' *)
  43. (*$HPPEMIT '#endif      //      _tagBLOB_DEFINED' *)
  44. (*$HPPEMIT '#endif      //      sizeof(tagBLOB) == 4' *)
  45. (*$HPPEMIT '' *)
  46. (*$HPPEMIT '// Provide definition of DDE structures when LEAN_AND_MEAN is enabled' *)
  47. (*$HPPEMIT '// to allow us to define new types relying on the DDE data structures' *)
  48. (*$HPPEMIT '' *)
  49. (*$HPPEMIT '#if defined(WIN32_LEAN_AND_MEAN)' *)
  50. (*$HPPEMIT '' *)
  51. (*$HPPEMIT 'typedef struct {' *)
  52. (*$HPPEMIT '        unsigned short bAppReturnCode:8,' *)
  53. (*$HPPEMIT '                 reserved:6,' *)
  54. (*$HPPEMIT '                 fBusy:1,' *)
  55. (*$HPPEMIT '             fAck:1;' *)
  56. (*$HPPEMIT '} DDEACK;' *)
  57. (*$HPPEMIT '' *)
  58. (*$HPPEMIT 'typedef struct {' *)
  59. (*$HPPEMIT '        unsigned short reserved:14,' *)
  60. (*$HPPEMIT '                 fDeferUpd:1,' *)
  61. (*$HPPEMIT '             fAckReq:1;' *)
  62. (*$HPPEMIT '    short     cfFormat;' *)
  63. (*$HPPEMIT '} DDEADVISE;' *)
  64. (*$HPPEMIT '' *)
  65. (*$HPPEMIT 'typedef struct {' *)
  66. (*$HPPEMIT '    unsigned short unused:12,' *)
  67. (*$HPPEMIT '                 fResponse:1,' *)
  68. (*$HPPEMIT '                 fRelease:1,' *)
  69. (*$HPPEMIT '                 reserved:1,' *)
  70. (*$HPPEMIT '                 fAckReq:1;' *)
  71. (*$HPPEMIT '    short    cfFormat;' *)
  72. (*$HPPEMIT '    BYTE     Value[1];' *)
  73. (*$HPPEMIT '} DDEDATA;' *)
  74. (*$HPPEMIT '' *)
  75. (*$HPPEMIT 'typedef struct {' *)
  76. (*$HPPEMIT '    unsigned short unused:13, ' *)
  77. (*$HPPEMIT '' *)
  78. (*$HPPEMIT '             fRelease:1,' *)
  79. (*$HPPEMIT '             fReserved:2;' *)
  80. (*$HPPEMIT '    short    cfFormat;' *)
  81. (*$HPPEMIT '    BYTE     Value[1];' *)
  82. (*$HPPEMIT '' *)
  83. (*$HPPEMIT '' *)
  84. (*$HPPEMIT '} DDEPOKE;' *)
  85. (*$HPPEMIT '' *)
  86. (*$HPPEMIT '#endif      // WIN32_LEAN_AND_MEAN' *)
  87. (*$HPPEMIT '' *)
  88.  
  89. type
  90. { Translated from WINDEF.H }
  91.  
  92.   {$EXTERNALSYM WCHAR}
  93.   WCHAR = WideChar;
  94.   PWChar = PWideChar;
  95.  
  96.   {$EXTERNALSYM LPSTR}
  97.   LPSTR = PAnsiChar;
  98.   {$EXTERNALSYM LPCSTR}
  99.   LPCSTR = PAnsiChar;
  100.   {$EXTERNALSYM LPCTSTR}
  101.   LPCTSTR = PAnsiChar; { should be PWideChar if UNICODE }
  102.   {$EXTERNALSYM LPTSTR}
  103.   LPTSTR = PAnsiChar; { should be PWideChar if UNICODE }
  104.   {$EXTERNALSYM LPWSTR}
  105.   LPWSTR = PWideChar;
  106.   {$EXTERNALSYM LPCWSTR}
  107.   LPCWSTR = PWideChar;
  108.  
  109.   {$EXTERNALSYM DWORD}
  110.   DWORD = Integer;
  111.   {$EXTERNALSYM BOOL}
  112.   BOOL = LongBool;
  113.   {$EXTERNALSYM PBOOL}
  114.   PBOOL = ^BOOL;
  115.   PByte = ^Byte;
  116.   {$EXTERNALSYM PINT}
  117.   PINT = ^Integer;
  118.   PSingle = ^Single;
  119.   {$EXTERNALSYM PWORD}
  120.   PWORD = ^Word;
  121.   {$EXTERNALSYM PDWORD}
  122.   PDWORD = ^DWORD;
  123.   {$EXTERNALSYM LPDWORD}
  124.   LPDWORD = PDWORD;
  125.  
  126.   {$EXTERNALSYM UCHAR}
  127.   UCHAR = Byte;
  128.   {$EXTERNALSYM PUCHAR}
  129.   PUCHAR = ^Byte;
  130.   {$EXTERNALSYM SHORT}
  131.   SHORT = Smallint;
  132.   {$EXTERNALSYM UINT}
  133.   UINT = Integer;
  134.   {$EXTERNALSYM PUINT}
  135.   PUINT = ^UINT;
  136.   {$EXTERNALSYM ULONG}
  137.   ULONG = Cardinal;
  138.   {$EXTERNALSYM PULONG}
  139.   PULONG = ^ULONG;
  140.   PLongint = ^Longint;
  141.   PInteger = ^Integer;
  142.   PSmallInt = ^Smallint;
  143.   PDouble = ^Double;
  144.  
  145.   {$EXTERNALSYM LCID}
  146.   LCID = DWORD;
  147.   {$EXTERNALSYM LANGID}
  148.   LANGID = Word;
  149.  
  150.   THandle = Integer;
  151.   PHandle = ^THandle;
  152.  
  153. const
  154.   {$EXTERNALSYM MAX_PATH}
  155.   MAX_PATH = 260;
  156.  
  157.  
  158. { Translated from WINNT.H (only things needed for API calls) }
  159.  
  160. {line 190}
  161. type
  162.   {$EXTERNALSYM LONGLONG}
  163.   LONGLONG = Comp;
  164.   {$EXTERNALSYM PSID}
  165.   PSID = Pointer;
  166.   PLargeInteger = ^TLargeInteger;
  167.   {$EXTERNALSYM _LARGE_INTEGER}
  168.   _LARGE_INTEGER = record
  169.     case Integer of
  170.     0: (
  171.       LowPart: DWORD;
  172.       HighPart: Longint);
  173.     1: (
  174.       QuadPart: LONGLONG);
  175.   end;
  176.   TLargeInteger = _LARGE_INTEGER;
  177.   {$EXTERNALSYM LARGE_INTEGER}
  178.   LARGE_INTEGER = _LARGE_INTEGER;
  179.  
  180. {line 450}
  181.   PListEntry = ^TListEntry;
  182.   {$EXTERNALSYM _LIST_ENTRY}
  183.   _LIST_ENTRY = record
  184.     Flink: PListEntry;
  185.     Blink: PListEntry;
  186.   end;
  187.   TListEntry = _LIST_ENTRY;
  188.   {$EXTERNALSYM LIST_ENTRY}
  189.   LIST_ENTRY = _LIST_ENTRY;
  190.  
  191. {line 490}
  192. const
  193.   {$EXTERNALSYM MINCHAR}
  194.   MINCHAR = $80;
  195.   {$EXTERNALSYM MAXCHAR}
  196.   MAXCHAR = 127;
  197.   {$EXTERNALSYM MINSHORT}
  198.   MINSHORT = $8000;
  199.   {$EXTERNALSYM MAXSHORT}
  200.   MAXSHORT = 32767;
  201.   {$EXTERNALSYM MINLONG}
  202.   MINLONG = $80000000;
  203.   {$EXTERNALSYM MAXLONG}
  204.   MAXLONG = $7FFFFFFF;
  205.   {$EXTERNALSYM MAXBYTE}
  206.   MAXBYTE = 255;
  207.   {$EXTERNALSYM MAXWORD}
  208.   MAXWORD = 65535;
  209.   {$EXTERNALSYM MAXDWORD}
  210.   MAXDWORD = $FFFFFFFF;
  211.  
  212. {line 510}
  213. (*
  214.  *  Language IDs.
  215.  *
  216.  *  The following two combinations of primary language ID and
  217.  *  sublanguage ID have special semantics:
  218.  *
  219.  *    Primary Language ID   Sublanguage ID      Result
  220.  *    -------------------   ---------------     ------------------------
  221.  *    LANG_NEUTRAL          SUBLANG_NEUTRAL     Language neutral
  222.  *    LANG_NEUTRAL          SUBLANG_DEFAULT     User default language
  223.  *    LANG_NEUTRAL          SUBLANG_SYS_DEFAULT System default language
  224.  *)
  225.  
  226. const
  227. { Primary language IDs. }
  228.  
  229.   {$EXTERNALSYM LANG_NEUTRAL}
  230.   LANG_NEUTRAL                         = $00;
  231.  
  232.   {$EXTERNALSYM LANG_AFRIKAANS}
  233.   LANG_AFRIKAANS                       = $36;
  234.   {$EXTERNALSYM LANG_ALBANIAN}
  235.   LANG_ALBANIAN                        = $1c;
  236.   {$EXTERNALSYM LANG_ARABIC}
  237.   LANG_ARABIC                          = $01;
  238.   {$EXTERNALSYM LANG_BASQUE}
  239.   LANG_BASQUE                          = $2d;
  240.   {$EXTERNALSYM LANG_BELARUSIAN}
  241.   LANG_BELARUSIAN                      = $23;
  242.   {$EXTERNALSYM LANG_BULGARIAN}
  243.   LANG_BULGARIAN                       = $02;
  244.   {$EXTERNALSYM LANG_CATALAN}
  245.   LANG_CATALAN                         = $03;
  246.   {$EXTERNALSYM LANG_CHINESE}
  247.   LANG_CHINESE                         = $04;
  248.   {$EXTERNALSYM LANG_CROATIAN}
  249.   LANG_CROATIAN                        = $1a;
  250.   {$EXTERNALSYM LANG_CZECH}
  251.   LANG_CZECH                           = $05;
  252.   {$EXTERNALSYM LANG_DANISH}
  253.   LANG_DANISH                          = $06;
  254.   {$EXTERNALSYM LANG_DUTCH}
  255.   LANG_DUTCH                           = $13;
  256.   {$EXTERNALSYM LANG_ENGLISH}
  257.   LANG_ENGLISH                         = $09;
  258.   {$EXTERNALSYM LANG_ESTONIAN}
  259.   LANG_ESTONIAN                        = $25;
  260.   {$EXTERNALSYM LANG_FAEROESE}
  261.   LANG_FAEROESE                        = $38;
  262.   {$EXTERNALSYM LANG_FARSI}
  263.   LANG_FARSI                           = $29;
  264.   {$EXTERNALSYM LANG_FINNISH}
  265.   LANG_FINNISH                         = $0b;
  266.   {$EXTERNALSYM LANG_FRENCH}
  267.   LANG_FRENCH                          = $0c;
  268.   {$EXTERNALSYM LANG_GERMAN}
  269.   LANG_GERMAN                          = $07;
  270.   {$EXTERNALSYM LANG_GREEK}
  271.   LANG_GREEK                           = $08;
  272.   {$EXTERNALSYM LANG_HEBREW}
  273.   LANG_HEBREW                          = $0d;
  274.   {$EXTERNALSYM LANG_HUNGARIAN}
  275.   LANG_HUNGARIAN                       = $0e;
  276.   {$EXTERNALSYM LANG_ICELANDIC}
  277.   LANG_ICELANDIC                       = $0f;
  278.   {$EXTERNALSYM LANG_INDONESIAN}
  279.   LANG_INDONESIAN                      = $21;
  280.   {$EXTERNALSYM LANG_ITALIAN}
  281.   LANG_ITALIAN                         = $10;
  282.   {$EXTERNALSYM LANG_JAPANESE}
  283.   LANG_JAPANESE                        = $11;
  284.   {$EXTERNALSYM LANG_KOREAN}
  285.   LANG_KOREAN                          = $12;
  286.   {$EXTERNALSYM LANG_LATVIAN}
  287.   LANG_LATVIAN                         = $26;
  288.   {$EXTERNALSYM LANG_LITHUANIAN}
  289.   LANG_LITHUANIAN                      = $27;
  290.   {$EXTERNALSYM LANG_NORWEGIAN}
  291.   LANG_NORWEGIAN                       = $14;
  292.   {$EXTERNALSYM LANG_POLISH}
  293.   LANG_POLISH                          = $15;
  294.   {$EXTERNALSYM LANG_PORTUGUESE}
  295.   LANG_PORTUGUESE                      = $16;
  296.   {$EXTERNALSYM LANG_ROMANIAN}
  297.   LANG_ROMANIAN                        = $18;
  298.   {$EXTERNALSYM LANG_RUSSIAN}
  299.   LANG_RUSSIAN                         = $19;
  300.   {$EXTERNALSYM LANG_SERBIAN}
  301.   LANG_SERBIAN                         = $1a;
  302.   {$EXTERNALSYM LANG_SLOVAK}
  303.   LANG_SLOVAK                          = $1b;
  304.   {$EXTERNALSYM LANG_SLOVENIAN}
  305.   LANG_SLOVENIAN                       = $24;
  306.   {$EXTERNALSYM LANG_SPANISH}
  307.   LANG_SPANISH                         = $0a;
  308.   {$EXTERNALSYM LANG_SWEDISH}
  309.   LANG_SWEDISH                         = $1d;
  310.   {$EXTERNALSYM LANG_THAI}
  311.   LANG_THAI                            = $1e;
  312.   {$EXTERNALSYM LANG_TURKISH}
  313.   LANG_TURKISH                         = $1f;
  314.   {$EXTERNALSYM LANG_UKRAINIAN}
  315.   LANG_UKRAINIAN                       = $22;
  316.   {$EXTERNALSYM LANG_VIETNAMESE}
  317.   LANG_VIETNAMESE                      = $2a;
  318.  
  319.  
  320. { Sublanguage IDs. }
  321.  
  322.   { The name immediately following SUBLANG_ dictates which primary
  323.     language ID that sublanguage ID can be combined with to form a
  324.     valid language ID. }
  325.  
  326.   {$EXTERNALSYM SUBLANG_NEUTRAL}
  327.   SUBLANG_NEUTRAL                      = $00;    { language neutral }
  328.   {$EXTERNALSYM SUBLANG_DEFAULT}
  329.   SUBLANG_DEFAULT                      = $01;    { user default }
  330.   {$EXTERNALSYM SUBLANG_SYS_DEFAULT}
  331.   SUBLANG_SYS_DEFAULT                  = $02;    { system default }
  332.  
  333.   {$EXTERNALSYM SUBLANG_ARABIC_SAUDI_ARABIA}
  334.   SUBLANG_ARABIC_SAUDI_ARABIA          = $01;    { Arabic (Saudi Arabia) }
  335.   {$EXTERNALSYM SUBLANG_ARABIC_IRAQ}
  336.   SUBLANG_ARABIC_IRAQ                  = $02;    { Arabic (Iraq) }
  337.   {$EXTERNALSYM SUBLANG_ARABIC_EGYPT}
  338.   SUBLANG_ARABIC_EGYPT                 = $03;    { Arabic (Egypt) }
  339.   {$EXTERNALSYM SUBLANG_ARABIC_LIBYA}
  340.   SUBLANG_ARABIC_LIBYA                 = $04;    { Arabic (Libya) }
  341.   {$EXTERNALSYM SUBLANG_ARABIC_ALGERIA}
  342.   SUBLANG_ARABIC_ALGERIA               = $05;    { Arabic (Algeria) }
  343.   {$EXTERNALSYM SUBLANG_ARABIC_MOROCCO}
  344.   SUBLANG_ARABIC_MOROCCO               = $06;    { Arabic (Morocco) }
  345.   {$EXTERNALSYM SUBLANG_ARABIC_TUNISIA}
  346.   SUBLANG_ARABIC_TUNISIA               = $07;    { Arabic (Tunisia) }
  347.   {$EXTERNALSYM SUBLANG_ARABIC_OMAN}
  348.   SUBLANG_ARABIC_OMAN                  = $08;    { Arabic (Oman) }
  349.   {$EXTERNALSYM SUBLANG_ARABIC_YEMEN}
  350.   SUBLANG_ARABIC_YEMEN                 = $09;    { Arabic (Yemen) }
  351.   {$EXTERNALSYM SUBLANG_ARABIC_SYRIA}
  352.   SUBLANG_ARABIC_SYRIA                 = $0a;    { Arabic (Syria) }
  353.   {$EXTERNALSYM SUBLANG_ARABIC_JORDAN}
  354.   SUBLANG_ARABIC_JORDAN                = $0b;    { Arabic (Jordan) }
  355.   {$EXTERNALSYM SUBLANG_ARABIC_LEBANON}
  356.   SUBLANG_ARABIC_LEBANON               = $0c;    { Arabic (Lebanon) }
  357.   {$EXTERNALSYM SUBLANG_ARABIC_KUWAIT}
  358.   SUBLANG_ARABIC_KUWAIT                = $0d;    { Arabic (Kuwait) }
  359.   {$EXTERNALSYM SUBLANG_ARABIC_UAE}
  360.   SUBLANG_ARABIC_UAE                   = $0e;    { Arabic (U.A.E) }
  361.   {$EXTERNALSYM SUBLANG_ARABIC_BAHRAIN}
  362.   SUBLANG_ARABIC_BAHRAIN               = $0f;    { Arabic (Bahrain) }
  363.   {$EXTERNALSYM SUBLANG_ARABIC_QATAR}
  364.   SUBLANG_ARABIC_QATAR                 = $10;    { Arabic (Qatar) }
  365.   {$EXTERNALSYM SUBLANG_CHINESE_TRADITIONAL}
  366.   SUBLANG_CHINESE_TRADITIONAL          = $01;    { Chinese (Taiwan) }
  367.   {$EXTERNALSYM SUBLANG_CHINESE_SIMPLIFIED}
  368.   SUBLANG_CHINESE_SIMPLIFIED           = $02;    { Chinese (PR China) }
  369.   {$EXTERNALSYM SUBLANG_CHINESE_HONGKONG}
  370.   SUBLANG_CHINESE_HONGKONG             = $03;    { Chinese (Hong Kong) }
  371.   {$EXTERNALSYM SUBLANG_CHINESE_SINGAPORE}
  372.   SUBLANG_CHINESE_SINGAPORE            = $04;    { Chinese (Singapore) }
  373.   {$EXTERNALSYM SUBLANG_DUTCH}
  374.   SUBLANG_DUTCH                        = $01;    { Dutch }
  375.   {$EXTERNALSYM SUBLANG_DUTCH_BELGIAN}
  376.   SUBLANG_DUTCH_BELGIAN                = $02;    { Dutch (Belgian) }
  377.   {$EXTERNALSYM SUBLANG_ENGLISH_US}
  378.   SUBLANG_ENGLISH_US                   = $01;    { English (USA) }
  379.   {$EXTERNALSYM SUBLANG_ENGLISH_UK}
  380.   SUBLANG_ENGLISH_UK                   = $02;    { English (UK) }
  381.   {$EXTERNALSYM SUBLANG_ENGLISH_AUS}
  382.   SUBLANG_ENGLISH_AUS                  = $03;    { English (Australian) }
  383.   {$EXTERNALSYM SUBLANG_ENGLISH_CAN}
  384.   SUBLANG_ENGLISH_CAN                  = $04;    { English (Canadian) }
  385.   {$EXTERNALSYM SUBLANG_ENGLISH_NZ}
  386.   SUBLANG_ENGLISH_NZ                   = $05;    { English (New Zealand) }
  387.   {$EXTERNALSYM SUBLANG_ENGLISH_EIRE}
  388.   SUBLANG_ENGLISH_EIRE                 = $06;    { English (Irish) }
  389.   {$EXTERNALSYM SUBLANG_ENGLISH_SOUTH_AFRICA}
  390.   SUBLANG_ENGLISH_SOUTH_AFRICA         = $07;    { English (South Africa) }
  391.   {$EXTERNALSYM SUBLANG_ENGLISH_JAMAICA}
  392.   SUBLANG_ENGLISH_JAMAICA              = $08;    { English (Jamaica) }
  393.   {$EXTERNALSYM SUBLANG_ENGLISH_CARIBBEAN}
  394.   SUBLANG_ENGLISH_CARIBBEAN            = $09;    { English (Caribbean) }
  395.   {$EXTERNALSYM SUBLANG_ENGLISH_BELIZE}
  396.   SUBLANG_ENGLISH_BELIZE               = $0a;    { English (Belize) }
  397.   {$EXTERNALSYM SUBLANG_ENGLISH_TRINIDAD}
  398.   SUBLANG_ENGLISH_TRINIDAD             = $0b;    { English (Trinidad) }
  399.   {$EXTERNALSYM SUBLANG_FRENCH}
  400.   SUBLANG_FRENCH                       = $01;    { French }
  401.   {$EXTERNALSYM SUBLANG_FRENCH_BELGIAN}
  402.   SUBLANG_FRENCH_BELGIAN               = $02;    { French (Belgian) }
  403.   {$EXTERNALSYM SUBLANG_FRENCH_CANADIAN}
  404.   SUBLANG_FRENCH_CANADIAN              = $03;    { French (Canadian) }
  405.   {$EXTERNALSYM SUBLANG_FRENCH_SWISS}
  406.   SUBLANG_FRENCH_SWISS                 = $04;    { French (Swiss) }
  407.   {$EXTERNALSYM SUBLANG_FRENCH_LUXEMBOURG}
  408.   SUBLANG_FRENCH_LUXEMBOURG            = $05;    { French (Luxembourg) }
  409.   {$EXTERNALSYM SUBLANG_GERMAN}
  410.   SUBLANG_GERMAN                       = $01;    { German }
  411.   {$EXTERNALSYM SUBLANG_GERMAN_SWISS}
  412.   SUBLANG_GERMAN_SWISS                 = $02;    { German (Swiss) }
  413.   {$EXTERNALSYM SUBLANG_GERMAN_AUSTRIAN}
  414.   SUBLANG_GERMAN_AUSTRIAN              = $03;    { German (Austrian) }
  415.   {$EXTERNALSYM SUBLANG_GERMAN_LUXEMBOURG}
  416.   SUBLANG_GERMAN_LUXEMBOURG            = $04;    { German (Luxembourg) }
  417.   {$EXTERNALSYM SUBLANG_GERMAN_LIECHTENSTEIN}
  418.   SUBLANG_GERMAN_LIECHTENSTEIN         = $05;    { German (Liechtenstein) }
  419.   {$EXTERNALSYM SUBLANG_ITALIAN}
  420.   SUBLANG_ITALIAN                      = $01;    { Italian }
  421.   {$EXTERNALSYM SUBLANG_ITALIAN_SWISS}
  422.   SUBLANG_ITALIAN_SWISS                = $02;    { Italian (Swiss) }
  423.   {$EXTERNALSYM SUBLANG_KOREAN}
  424.   SUBLANG_KOREAN                       = $01;    { Korean (Extended Wansung) }
  425.   {$EXTERNALSYM SUBLANG_KOREAN_JOHAB}
  426.   SUBLANG_KOREAN_JOHAB                 = $02;    { Korean (Johab) }
  427.   {$EXTERNALSYM SUBLANG_NORWEGIAN_BOKMAL}
  428.   SUBLANG_NORWEGIAN_BOKMAL             = $01;    { Norwegian (Bokmal) }
  429.   {$EXTERNALSYM SUBLANG_NORWEGIAN_NYNORSK}
  430.   SUBLANG_NORWEGIAN_NYNORSK            = $02;    { Norwegian (Nynorsk) }
  431.   {$EXTERNALSYM SUBLANG_PORTUGUESE}
  432.   SUBLANG_PORTUGUESE                   = $02;    { Portuguese }
  433.   {$EXTERNALSYM SUBLANG_PORTUGUESE_BRAZILIAN}
  434.   SUBLANG_PORTUGUESE_BRAZILIAN         = $01;    { Portuguese (Brazilian) }
  435.   {$EXTERNALSYM SUBLANG_SERBIAN_LATIN}
  436.   SUBLANG_SERBIAN_LATIN                = $02;    { Serbian (Latin) }
  437.   {$EXTERNALSYM SUBLANG_SERBIAN_CYRILLIC}
  438.   SUBLANG_SERBIAN_CYRILLIC             = $03;    { Serbian (Cyrillic) }
  439.   {$EXTERNALSYM SUBLANG_SPANISH}
  440.   SUBLANG_SPANISH                      = $01;    { Spanish (Castilian) }
  441.   {$EXTERNALSYM SUBLANG_SPANISH_MEXICAN}
  442.   SUBLANG_SPANISH_MEXICAN              = $02;    { Spanish (Mexican) }
  443.   {$EXTERNALSYM SUBLANG_SPANISH_MODERN}
  444.   SUBLANG_SPANISH_MODERN               = $03;    { Spanish (Modern) }
  445.   {$EXTERNALSYM SUBLANG_SPANISH_GUATEMALA}
  446.   SUBLANG_SPANISH_GUATEMALA            = $04;    { Spanish (Guatemala) }
  447.   {$EXTERNALSYM SUBLANG_SPANISH_COSTA_RICA}
  448.   SUBLANG_SPANISH_COSTA_RICA           = $05;    { Spanish (Costa Rica) }
  449.   {$EXTERNALSYM SUBLANG_SPANISH_PANAMA}
  450.   SUBLANG_SPANISH_PANAMA               = $06;    { Spanish (Panama) }
  451.   {$EXTERNALSYM SUBLANG_SPANISH_DOMINICAN_REPUBLIC}
  452.   SUBLANG_SPANISH_DOMINICAN_REPUBLIC     = $07;  { Spanish (Dominican Republic) }
  453.   {$EXTERNALSYM SUBLANG_SPANISH_VENEZUELA}
  454.   SUBLANG_SPANISH_VENEZUELA            = $08;    { Spanish (Venezuela) }
  455.   {$EXTERNALSYM SUBLANG_SPANISH_COLOMBIA}
  456.   SUBLANG_SPANISH_COLOMBIA             = $09;    { Spanish (Colombia) }
  457.   {$EXTERNALSYM SUBLANG_SPANISH_PERU}
  458.   SUBLANG_SPANISH_PERU                 = $0a;    { Spanish (Peru) }
  459.   {$EXTERNALSYM SUBLANG_SPANISH_ARGENTINA}
  460.   SUBLANG_SPANISH_ARGENTINA            = $0b;    { Spanish (Argentina) }
  461.   {$EXTERNALSYM SUBLANG_SPANISH_ECUADOR}
  462.   SUBLANG_SPANISH_ECUADOR              = $0c;    { Spanish (Ecuador) }
  463.   {$EXTERNALSYM SUBLANG_SPANISH_CHILE}
  464.   SUBLANG_SPANISH_CHILE                = $0d;    { Spanish (Chile) }
  465.   {$EXTERNALSYM SUBLANG_SPANISH_URUGUAY}
  466.   SUBLANG_SPANISH_URUGUAY              = $0e;    { Spanish (Uruguay) }
  467.   {$EXTERNALSYM SUBLANG_SPANISH_PARAGUAY}
  468.   SUBLANG_SPANISH_PARAGUAY             = $0f;    { Spanish (Paraguay) }
  469.   {$EXTERNALSYM SUBLANG_SPANISH_BOLIVIA}
  470.   SUBLANG_SPANISH_BOLIVIA              = $10;    { Spanish (Bolivia) }
  471.   {$EXTERNALSYM SUBLANG_SPANISH_EL_SALVADOR}
  472.   SUBLANG_SPANISH_EL_SALVADOR          = $11;    { Spanish (El Salvador) }
  473.   {$EXTERNALSYM SUBLANG_SPANISH_HONDURAS}
  474.   SUBLANG_SPANISH_HONDURAS             = $12;    { Spanish (Honduras) }
  475.   {$EXTERNALSYM SUBLANG_SPANISH_NICARAGUA}
  476.   SUBLANG_SPANISH_NICARAGUA            = $13;    { Spanish (Nicaragua) }
  477.   {$EXTERNALSYM SUBLANG_SPANISH_PUERTO_RICO}
  478.   SUBLANG_SPANISH_PUERTO_RICO          = $14;    { Spanish (Puerto Rico) }
  479.   {$EXTERNALSYM SUBLANG_SWEDISH}
  480.   SUBLANG_SWEDISH                      = $01;    { Swedish }
  481.   {$EXTERNALSYM SUBLANG_SWEDISH_FINLAND}
  482.   SUBLANG_SWEDISH_FINLAND              = $02;    { Swedish (Finland) }
  483.  
  484.  
  485. { Sorting IDs. }
  486.  
  487.   {$EXTERNALSYM SORT_DEFAULT}
  488.   SORT_DEFAULT                         = $0;     { sorting default }
  489.  
  490.   {$EXTERNALSYM SORT_JAPANESE_XJIS}
  491.   SORT_JAPANESE_XJIS                   = $0;     { Japanese XJIS order }
  492.   {$EXTERNALSYM SORT_JAPANESE_UNICODE}
  493.   SORT_JAPANESE_UNICODE                = $1;     { Japanese Unicode order }
  494.  
  495.   {$EXTERNALSYM SORT_CHINESE_BIG5}
  496.   SORT_CHINESE_BIG5                    = $0;     { Chinese BIG5 order }
  497.   {$EXTERNALSYM SORT_CHINESE_PRCP}
  498.   SORT_CHINESE_PRCP                    = $0;     { PRC Chinese Phonetic order }
  499.   {$EXTERNALSYM SORT_CHINESE_UNICODE}
  500.   SORT_CHINESE_UNICODE                 = $1;     { Chinese Unicode order }
  501.   {$EXTERNALSYM SORT_CHINESE_PRC}
  502.   SORT_CHINESE_PRC                     = $2;     { PRC Chinese Stroke Count order }
  503.  
  504.   {$EXTERNALSYM SORT_KOREAN_KSC}
  505.   SORT_KOREAN_KSC                      = $0;     { Korean KSC order }
  506.   {$EXTERNALSYM SORT_KOREAN_UNICODE}
  507.   SORT_KOREAN_UNICODE                  = $1;     { Korean Unicode order }
  508.  
  509.   {$EXTERNALSYM SORT_GERMAN_PHONE_BOOK}
  510.   SORT_GERMAN_PHONE_BOOK               = $1;     { German Phone Book order }
  511.  
  512.  
  513. (*
  514.  *  A language ID is a 16 bit value which is the combination of a
  515.  *  primary language ID and a secondary language ID.  The bits are
  516.  *  allocated as follows:
  517.  *
  518.  *       +-----------------------+-------------------------+
  519.  *       |     Sublanguage ID    |   Primary Language ID   |
  520.  *       +-----------------------+-------------------------+
  521.  *        15                   10 9                       0   bit
  522.  *
  523.  *
  524.  *
  525.  *  A locale ID is a 32 bit value which is the combination of a
  526.  *  language ID, a sort ID, and a reserved area.  The bits are
  527.  *  allocated as follows:
  528.  *
  529.  *       +-------------+---------+-------------------------+
  530.  *       |   Reserved  | Sort ID |      Language ID        |
  531.  *       +-------------+---------+-------------------------+
  532.  *        31         20 19     16 15                      0   bit
  533.  *
  534.  *)
  535.  
  536. { Default System and User IDs for language and locale. }
  537.  
  538.   {$EXTERNALSYM LANG_SYSTEM_DEFAULT}
  539.   LANG_SYSTEM_DEFAULT   = (SUBLANG_SYS_DEFAULT shl 10) or LANG_NEUTRAL;
  540.   {$EXTERNALSYM LANG_USER_DEFAULT}
  541.   LANG_USER_DEFAULT     = (SUBLANG_DEFAULT shl 10) or LANG_NEUTRAL;
  542.  
  543.   {$EXTERNALSYM LOCALE_SYSTEM_DEFAULT}
  544.   LOCALE_SYSTEM_DEFAULT = (SORT_DEFAULT shl 16) or LANG_SYSTEM_DEFAULT;
  545.   {$EXTERNALSYM LOCALE_USER_DEFAULT}
  546.   LOCALE_USER_DEFAULT   = (SORT_DEFAULT shl 16) or LANG_USER_DEFAULT;
  547.  
  548.  
  549. {line 724}
  550.   {$EXTERNALSYM STATUS_WAIT_0}
  551.   STATUS_WAIT_0                   = $00000000;
  552.   {$EXTERNALSYM STATUS_ABANDONED_WAIT_0}
  553.   STATUS_ABANDONED_WAIT_0         = $00000080;
  554.   {$EXTERNALSYM STATUS_USER_APC}
  555.   STATUS_USER_APC                 = $000000C0;
  556.   {$EXTERNALSYM STATUS_TIMEOUT}
  557.   STATUS_TIMEOUT                  = $00000102;
  558.   {$EXTERNALSYM STATUS_PENDING}
  559.   STATUS_PENDING                  = $00000103;
  560.   {$EXTERNALSYM STATUS_SEGMENT_NOTIFICATION}
  561.   STATUS_SEGMENT_NOTIFICATION     = $40000005;
  562.   {$EXTERNALSYM STATUS_GUARD_PAGE_VIOLATION}
  563.   STATUS_GUARD_PAGE_VIOLATION     = $80000001;
  564.   {$EXTERNALSYM STATUS_DATATYPE_MISALIGNMENT}
  565.   STATUS_DATATYPE_MISALIGNMENT    = $80000002;
  566.   {$EXTERNALSYM STATUS_BREAKPOINT}
  567.   STATUS_BREAKPOINT               = $80000003;
  568.   {$EXTERNALSYM STATUS_SINGLE_STEP}
  569.   STATUS_SINGLE_STEP              = $80000004;
  570.   {$EXTERNALSYM STATUS_ACCESS_VIOLATION}
  571.   STATUS_ACCESS_VIOLATION         = $C0000005;
  572.   {$EXTERNALSYM STATUS_IN_PAGE_ERROR}
  573.   STATUS_IN_PAGE_ERROR            = $C0000006;
  574.   {$EXTERNALSYM STATUS_INVALID_HANDLE}
  575.   STATUS_INVALID_HANDLE           = $C0000008;
  576.   {$EXTERNALSYM STATUS_NO_MEMORY}
  577.   STATUS_NO_MEMORY                = $C0000017;
  578.   {$EXTERNALSYM STATUS_ILLEGAL_INSTRUCTION}
  579.   STATUS_ILLEGAL_INSTRUCTION      = $C000001D;
  580.   {$EXTERNALSYM STATUS_NONCONTINUABLE_EXCEPTION}
  581.   STATUS_NONCONTINUABLE_EXCEPTION = $C0000025;
  582.   {$EXTERNALSYM STATUS_INVALID_DISPOSITION}
  583.   STATUS_INVALID_DISPOSITION      = $C0000026;
  584.   {$EXTERNALSYM STATUS_ARRAY_BOUNDS_EXCEEDED}
  585.   STATUS_ARRAY_BOUNDS_EXCEEDED    = $C000008C;
  586.   {$EXTERNALSYM STATUS_FLOAT_DENORMAL_OPERAND}
  587.   STATUS_FLOAT_DENORMAL_OPERAND   = $C000008D;
  588.   {$EXTERNALSYM STATUS_FLOAT_DIVIDE_BY_ZERO}
  589.   STATUS_FLOAT_DIVIDE_BY_ZERO     = $C000008E;
  590.   {$EXTERNALSYM STATUS_FLOAT_INEXACT_RESULT}
  591.   STATUS_FLOAT_INEXACT_RESULT     = $C000008F;
  592.   {$EXTERNALSYM STATUS_FLOAT_INVALID_OPERATION}
  593.   STATUS_FLOAT_INVALID_OPERATION  = $C0000090;
  594.   {$EXTERNALSYM STATUS_FLOAT_OVERFLOW}
  595.   STATUS_FLOAT_OVERFLOW           = $C0000091;
  596.   {$EXTERNALSYM STATUS_FLOAT_STACK_CHECK}
  597.   STATUS_FLOAT_STACK_CHECK        = $C0000092;
  598.   {$EXTERNALSYM STATUS_FLOAT_UNDERFLOW}
  599.   STATUS_FLOAT_UNDERFLOW          = $C0000093;
  600.   {$EXTERNALSYM STATUS_INTEGER_DIVIDE_BY_ZERO}
  601.   STATUS_INTEGER_DIVIDE_BY_ZERO   = $C0000094;
  602.   {$EXTERNALSYM STATUS_INTEGER_OVERFLOW}
  603.   STATUS_INTEGER_OVERFLOW         = $C0000095;
  604.   {$EXTERNALSYM STATUS_PRIVILEGED_INSTRUCTION}
  605.   STATUS_PRIVILEGED_INSTRUCTION   = $C0000096;
  606.   {$EXTERNALSYM STATUS_STACK_OVERFLOW}
  607.   STATUS_STACK_OVERFLOW           = $C00000FD;
  608.   {$EXTERNALSYM STATUS_CONTROL_C_EXIT}
  609.   STATUS_CONTROL_C_EXIT           = $C000013A;
  610.  
  611.   {$EXTERNALSYM MAXIMUM_WAIT_OBJECTS}
  612.   MAXIMUM_WAIT_OBJECTS = 64;
  613.  
  614. {line 1280}
  615.   {$EXTERNALSYM SIZE_OF_80387_REGISTERS}
  616.   SIZE_OF_80387_REGISTERS = 80;
  617.  
  618.   { The following flags control the contents of the CONTEXT structure. }
  619.  
  620.   {$EXTERNALSYM CONTEXT_i386}
  621.   CONTEXT_i386 = $10000;     { this assumes that i386 and }
  622.   {$EXTERNALSYM CONTEXT_i486}
  623.   CONTEXT_i486 = $10000;     { i486 have identical context records }
  624.  
  625.   {$EXTERNALSYM CONTEXT_CONTROL}
  626.   CONTEXT_CONTROL         = (CONTEXT_i386 or $00000001); { SS:SP, CS:IP, FLAGS, BP }
  627.   {$EXTERNALSYM CONTEXT_INTEGER}
  628.   CONTEXT_INTEGER         = (CONTEXT_i386 or $00000002); { AX, BX, CX, DX, SI, DI }
  629.   {$EXTERNALSYM CONTEXT_SEGMENTS}
  630.   CONTEXT_SEGMENTS        = (CONTEXT_i386 or $00000004); { DS, ES, FS, GS }
  631.   {$EXTERNALSYM CONTEXT_FLOATING_POINT}
  632.   CONTEXT_FLOATING_POINT  = (CONTEXT_i386 or $00000008); { 387 state }
  633.   {$EXTERNALSYM CONTEXT_DEBUG_REGISTERS}
  634.   CONTEXT_DEBUG_REGISTERS = (CONTEXT_i386 or $00000010); { DB 0-3,6,7 }
  635.   {$EXTERNALSYM CONTEXT_FULL}
  636.   CONTEXT_FULL = (CONTEXT_CONTROL or CONTEXT_INTEGER or CONTEXT_SEGMENTS);
  637.  
  638. type
  639.   PFloatingSaveArea = ^TFloatingSaveArea;
  640.   {$EXTERNALSYM _FLOATING_SAVE_AREA}
  641.   _FLOATING_SAVE_AREA = record
  642.     ControlWord: DWORD;
  643.     StatusWord: DWORD;
  644.     TagWord: DWORD;
  645.     ErrorOffset: DWORD;
  646.     ErrorSelector: DWORD;
  647.     DataOffset: DWORD;
  648.     DataSelector: DWORD;
  649.     RegisterArea: array[0..SIZE_OF_80387_REGISTERS - 1] of Byte;
  650.     Cr0NpxState: DWORD;
  651.   end;
  652.   TFloatingSaveArea = _FLOATING_SAVE_AREA;
  653.   {$EXTERNALSYM FLOATING_SAVE_AREA}
  654.   FLOATING_SAVE_AREA = _FLOATING_SAVE_AREA;
  655.  
  656. { This frame has a several purposes: 1) it is used as an argument to
  657.   NtContinue, 2) is is used to constuct a call frame for APC delivery,
  658.   and 3) it is used in the user level thread creation routines.
  659.   The layout of the record conforms to a standard call frame. }
  660.  
  661.   PContext = ^TContext;
  662.   {$EXTERNALSYM _CONTEXT}
  663.   _CONTEXT = record
  664.  
  665.   { The flags values within this flag control the contents of
  666.     a CONTEXT record.
  667.  
  668.     If the context record is used as an input parameter, then
  669.     for each portion of the context record controlled by a flag
  670.     whose value is set, it is assumed that that portion of the
  671.     context record contains valid context. If the context record
  672.     is being used to modify a threads context, then only that
  673.     portion of the threads context will be modified.
  674.  
  675.     If the context record is used as an IN OUT parameter to capture
  676.     the context of a thread, then only those portions of the thread's
  677.     context corresponding to set flags will be returned.
  678.  
  679.     The context record is never used as an OUT only parameter. }
  680.  
  681.     ContextFlags: DWORD;
  682.  
  683.   { This section is specified/returned if CONTEXT_DEBUG_REGISTERS is
  684.     set in ContextFlags.  Note that CONTEXT_DEBUG_REGISTERS is NOT
  685.     included in CONTEXT_FULL. }
  686.  
  687.     Dr0: DWORD;
  688.     Dr1: DWORD;
  689.     Dr2: DWORD;
  690.     Dr3: DWORD;
  691.     Dr6: DWORD;
  692.     Dr7: DWORD;
  693.  
  694.   { This section is specified/returned if the
  695.     ContextFlags word contians the flag CONTEXT_FLOATING_POINT. }
  696.  
  697.     FloatSave: TFloatingSaveArea;
  698.  
  699.   { This section is specified/returned if the
  700.     ContextFlags word contians the flag CONTEXT_SEGMENTS. }
  701.  
  702.     SegGs: DWORD;
  703.     SegFs: DWORD;
  704.     SegEs: DWORD;
  705.     SegDs: DWORD;
  706.  
  707.   { This section is specified/returned if the
  708.     ContextFlags word contians the flag CONTEXT_INTEGER. }
  709.  
  710.     Edi: DWORD;
  711.     Esi: DWORD;
  712.     Ebx: DWORD;
  713.     Edx: DWORD;
  714.     Ecx: DWORD;
  715.     Eax: DWORD;
  716.  
  717.   { This section is specified/returned if the
  718.     ContextFlags word contians the flag CONTEXT_CONTROL. }
  719.  
  720.     Ebp: DWORD;
  721.     Eip: DWORD;
  722.     SegCs: DWORD;
  723.     EFlags: DWORD;
  724.     Esp: DWORD;
  725.     SegSs: DWORD;
  726.   end;
  727.   TContext = _CONTEXT;
  728.   {$EXTERNALSYM CONTEXT}
  729.   CONTEXT = _CONTEXT;
  730.  
  731. const
  732.   { bitfield constants for Flags field of TLDTEntry }
  733.  
  734.   LDTF_BASEMID      = $FF000000;  {8}
  735.   LDTF_TYPE_8       = $00F80000;  {5}
  736.   LDTF_DPL          = $00060000;  {2}
  737.   LDTF_PRES         = $00010000;  {1}
  738.   LDTF_LIMITHI      = $0000F000;  {4}
  739.   LDTF_SYS          = $00000800;  {1}
  740.   LDTF_RESERVED_0   = $00000400;  {1}
  741.   LDTF_DEFAULT_BIG  = $00000200;  {1}
  742.   LDTF_GRANULARITY  = $00000100;  {1}
  743.   LDTF_BASEHI       = $000000FF;  {8}
  744.  
  745.  
  746. type
  747.   PLDTEntry = ^TLDTEntry;
  748.   {$EXTERNALSYM _LDT_ENTRY}
  749.   _LDT_ENTRY = record
  750.     LimitLow: Word;
  751.     BaseLow: Word;
  752.     case Integer of
  753.       0: (
  754.         BaseMid: Byte;
  755.         Flags1: Byte;
  756.         Flags2: Byte;
  757.         BaseHi: Byte);
  758.       1: (
  759.         Flags: Longint);
  760.   end;
  761.   TLDTEntry = _LDT_ENTRY;
  762.   {$EXTERNALSYM LDT_ENTRY}
  763.   LDT_ENTRY = _LDT_ENTRY;
  764.  
  765. {line 2030}
  766. const
  767.   {$EXTERNALSYM EXCEPTION_NONCONTINUABLE}
  768.   EXCEPTION_NONCONTINUABLE     = 1;    { Noncontinuable exception }
  769.   {$EXTERNALSYM EXCEPTION_MAXIMUM_PARAMETERS}
  770.   EXCEPTION_MAXIMUM_PARAMETERS = 15;   { maximum number of exception parameters }
  771.  
  772. type
  773.   PExceptionRecord = ^TExceptionRecord;
  774.   {$EXTERNALSYM _EXCEPTION_RECORD}
  775.   _EXCEPTION_RECORD = record
  776.     ExceptionCode: DWORD;
  777.     ExceptionFlags: DWORD;
  778.     ExceptionRecord: PExceptionRecord;
  779.     ExceptionAddress: Pointer;
  780.     NumberParameters: DWORD;
  781.     ExceptionInformation: array[0..EXCEPTION_MAXIMUM_PARAMETERS - 1] of DWORD;
  782.   end;
  783.   TExceptionRecord = _EXCEPTION_RECORD;
  784.   {$EXTERNALSYM EXCEPTION_RECORD}
  785.   EXCEPTION_RECORD = _EXCEPTION_RECORD;
  786.  
  787. { Typedef for pointer returned by exception_info() }
  788.  
  789.   {$EXTERNALSYM _EXCEPTION_POINTERS}
  790.   _EXCEPTION_POINTERS = record
  791.     ExceptionRecord : PExceptionRecord;
  792.     ContextRecord : PContext;
  793.   end;
  794.   TExceptionPointers = _EXCEPTION_POINTERS;
  795.   {$EXTERNALSYM EXCEPTION_POINTERS}
  796.   EXCEPTION_POINTERS = _EXCEPTION_POINTERS;
  797.  
  798. {line 2100}
  799. const
  800.   {$EXTERNALSYM THREAD_BASE_PRIORITY_LOWRT}
  801.   THREAD_BASE_PRIORITY_LOWRT = 15;  { value that gets a thread to LowRealtime-1 }
  802.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MAX}
  803.   THREAD_BASE_PRIORITY_MAX = 2;     { maximum thread base priority boost }
  804.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MIN}
  805.   THREAD_BASE_PRIORITY_MIN = -2;    { minimum thread base priority boost }
  806.   {$EXTERNALSYM THREAD_BASE_PRIORITY_IDLE}
  807.   THREAD_BASE_PRIORITY_IDLE = -15;  { value that gets a thread to idle }
  808.  
  809.   {$EXTERNALSYM SYNCHRONIZE}
  810.   SYNCHRONIZE = $00100000;
  811.   {$EXTERNALSYM STANDARD_RIGHTS_REQUIRED}
  812.   STANDARD_RIGHTS_REQUIRED = $000F0000;
  813.   {$EXTERNALSYM EVENT_MODIFY_STATE}
  814.   EVENT_MODIFY_STATE = $0002;
  815.   {$EXTERNALSYM EVENT_ALL_ACCESS}
  816.   EVENT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);
  817.   {$EXTERNALSYM MUTANT_QUERY_STATE}
  818.   MUTANT_QUERY_STATE = $0001;
  819.   {$EXTERNALSYM MUTANT_ALL_ACCESS}
  820.   MUTANT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or
  821.     MUTANT_QUERY_STATE);
  822.  
  823.   {$EXTERNALSYM PROCESS_TERMINATE}
  824.   PROCESS_TERMINATE         = $0001;
  825.   {$EXTERNALSYM PROCESS_CREATE_THREAD}
  826.   PROCESS_CREATE_THREAD     = $0002;
  827.   {$EXTERNALSYM PROCESS_VM_OPERATION}
  828.   PROCESS_VM_OPERATION      = $0008;
  829.   {$EXTERNALSYM PROCESS_VM_READ}
  830.   PROCESS_VM_READ           = $0010;
  831.   {$EXTERNALSYM PROCESS_VM_WRITE}
  832.   PROCESS_VM_WRITE          = $0020;
  833.   {$EXTERNALSYM PROCESS_DUP_HANDLE}
  834.   PROCESS_DUP_HANDLE        = $0040;
  835.   {$EXTERNALSYM PROCESS_CREATE_PROCESS}
  836.   PROCESS_CREATE_PROCESS    = $0080;
  837.   {$EXTERNALSYM PROCESS_SET_QUOTA}
  838.   PROCESS_SET_QUOTA         = $0100;
  839.   {$EXTERNALSYM PROCESS_SET_INFORMATION}
  840.   PROCESS_SET_INFORMATION   = $0200;
  841.   {$EXTERNALSYM PROCESS_QUERY_INFORMATION}
  842.   PROCESS_QUERY_INFORMATION = $0400;
  843.   {$EXTERNALSYM PROCESS_ALL_ACCESS}
  844.   PROCESS_ALL_ACCESS        = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $FFF);
  845.  
  846. {line 2150}
  847. type
  848.   PMemoryBasicInformation = ^TMemoryBasicInformation;
  849.   {$EXTERNALSYM _MEMORY_BASIC_INFORMATION}
  850.   _MEMORY_BASIC_INFORMATION = record
  851.     BaseAddress : Pointer;
  852.     AllocationBase : Pointer;
  853.     AllocationProtect : DWORD;
  854.     RegionSize : DWORD;
  855.     State : DWORD;
  856.     Protect : DWORD;
  857.     Type_9 : DWORD;
  858.   end;
  859.   TMemoryBasicInformation = _MEMORY_BASIC_INFORMATION;
  860.   {$EXTERNALSYM MEMORY_BASIC_INFORMATION}
  861.   MEMORY_BASIC_INFORMATION = _MEMORY_BASIC_INFORMATION;
  862.  
  863. const
  864.   {$EXTERNALSYM SECTION_QUERY}
  865.   SECTION_QUERY = 1;
  866.   {$EXTERNALSYM SECTION_MAP_WRITE}
  867.   SECTION_MAP_WRITE = 2;
  868.   {$EXTERNALSYM SECTION_MAP_READ}
  869.   SECTION_MAP_READ = 4;
  870.   {$EXTERNALSYM SECTION_MAP_EXECUTE}
  871.   SECTION_MAP_EXECUTE = 8;
  872.   {$EXTERNALSYM SECTION_EXTEND_SIZE}
  873.   SECTION_EXTEND_SIZE = $10;
  874.   {$EXTERNALSYM SECTION_ALL_ACCESS}
  875.   SECTION_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SECTION_QUERY or
  876.     SECTION_MAP_WRITE or SECTION_MAP_READ or SECTION_MAP_EXECUTE or SECTION_EXTEND_SIZE);
  877.  
  878.   {$EXTERNALSYM PAGE_NOACCESS}
  879.   PAGE_NOACCESS = 1;
  880.   {$EXTERNALSYM PAGE_READONLY}
  881.   PAGE_READONLY = 2;
  882.   {$EXTERNALSYM PAGE_READWRITE}
  883.   PAGE_READWRITE = 4;
  884.   {$EXTERNALSYM PAGE_WRITECOPY}
  885.   PAGE_WRITECOPY = 8;
  886.   {$EXTERNALSYM PAGE_EXECUTE}
  887.   PAGE_EXECUTE = $10;
  888.   {$EXTERNALSYM PAGE_EXECUTE_READ}
  889.   PAGE_EXECUTE_READ = $20;
  890.   {$EXTERNALSYM PAGE_EXECUTE_READWRITE}
  891.   PAGE_EXECUTE_READWRITE = $40;
  892.   {$EXTERNALSYM PAGE_EXECUTE_WRITECOPY}
  893.   PAGE_EXECUTE_WRITECOPY = $80;
  894.   {$EXTERNALSYM PAGE_GUARD}
  895.   PAGE_GUARD = $100;
  896.   {$EXTERNALSYM PAGE_NOCACHE}
  897.   PAGE_NOCACHE = $200;
  898.   {$EXTERNALSYM MEM_COMMIT}
  899.   MEM_COMMIT = $1000;
  900.   {$EXTERNALSYM MEM_RESERVE}
  901.   MEM_RESERVE = $2000;
  902.   {$EXTERNALSYM MEM_DECOMMIT}
  903.   MEM_DECOMMIT = $4000;
  904.   {$EXTERNALSYM MEM_RELEASE}
  905.   MEM_RELEASE = $8000;
  906.   {$EXTERNALSYM MEM_FREE}
  907.   MEM_FREE = $10000;
  908.   {$EXTERNALSYM MEM_PRIVATE}
  909.   MEM_PRIVATE = $20000;
  910.   {$EXTERNALSYM MEM_MAPPED}
  911.   MEM_MAPPED = $40000;
  912.   {$EXTERNALSYM MEM_RESET}
  913.   MEM_RESET = $80000;
  914.   {$EXTERNALSYM MEM_TOP_DOWN}
  915.   MEM_TOP_DOWN = $100000;
  916.   {$EXTERNALSYM SEC_FILE}
  917.   SEC_FILE = $800000;
  918.   {$EXTERNALSYM SEC_IMAGE}
  919.   SEC_IMAGE = $1000000;
  920.   {$EXTERNALSYM SEC_RESERVE}
  921.   SEC_RESERVE = $4000000;
  922.   {$EXTERNALSYM SEC_COMMIT}
  923.   SEC_COMMIT = $8000000;
  924.   {$EXTERNALSYM SEC_NOCACHE}
  925.   SEC_NOCACHE = $10000000;
  926.   {$EXTERNALSYM MEM_IMAGE}
  927.   MEM_IMAGE = SEC_IMAGE;
  928.  
  929.  
  930. {line 2250}
  931.   {$EXTERNALSYM FILE_SHARE_READ}
  932.   FILE_SHARE_READ                     = $00000001;
  933.   {$EXTERNALSYM FILE_SHARE_WRITE}
  934.   FILE_SHARE_WRITE                    = $00000002;
  935.   {$EXTERNALSYM FILE_SHARE_DELETE}
  936.   FILE_SHARE_DELETE                   = $00000004;
  937.   {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}
  938.   FILE_ATTRIBUTE_READONLY             = $00000001;
  939.   {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}
  940.   FILE_ATTRIBUTE_HIDDEN               = $00000002;
  941.   {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}
  942.   FILE_ATTRIBUTE_SYSTEM               = $00000004;
  943.   {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}
  944.   FILE_ATTRIBUTE_DIRECTORY            = $00000010;
  945.   {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}
  946.   FILE_ATTRIBUTE_ARCHIVE              = $00000020;
  947.   {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}
  948.   FILE_ATTRIBUTE_NORMAL               = $00000080;
  949.   {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}
  950.   FILE_ATTRIBUTE_TEMPORARY            = $00000100;
  951.   {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}
  952.   FILE_ATTRIBUTE_COMPRESSED           = $00000800;
  953.   {$EXTERNALSYM FILE_ATTRIBUTE_OFFLINE}
  954.   FILE_ATTRIBUTE_OFFLINE              = $00001000;
  955.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_FILE_NAME}
  956.   FILE_NOTIFY_CHANGE_FILE_NAME        = $00000001;
  957.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_DIR_NAME}
  958.   FILE_NOTIFY_CHANGE_DIR_NAME         = $00000002;
  959.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_ATTRIBUTES}
  960.   FILE_NOTIFY_CHANGE_ATTRIBUTES       = $00000004;
  961.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SIZE}
  962.   FILE_NOTIFY_CHANGE_SIZE             = $00000008;
  963.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_WRITE}
  964.   FILE_NOTIFY_CHANGE_LAST_WRITE       = $00000010;
  965.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_ACCESS}
  966.   FILE_NOTIFY_CHANGE_LAST_ACCESS      = $00000020;
  967.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_CREATION}
  968.   FILE_NOTIFY_CHANGE_CREATION         = $00000040;
  969.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SECURITY}
  970.   FILE_NOTIFY_CHANGE_SECURITY         = $00000100;
  971.   {$EXTERNALSYM FILE_ACTION_ADDED}
  972.   FILE_ACTION_ADDED                   = $00000001;
  973.   {$EXTERNALSYM FILE_ACTION_REMOVED}
  974.   FILE_ACTION_REMOVED                 = $00000002;
  975.   {$EXTERNALSYM FILE_ACTION_MODIFIED}
  976.   FILE_ACTION_MODIFIED                = $00000003;
  977.   {$EXTERNALSYM FILE_ACTION_RENAMED_OLD_NAME}
  978.   FILE_ACTION_RENAMED_OLD_NAME        = $00000004;
  979.   {$EXTERNALSYM FILE_ACTION_RENAMED_NEW_NAME}
  980.   FILE_ACTION_RENAMED_NEW_NAME        = $00000005;
  981.   {$EXTERNALSYM MAILSLOT_NO_MESSAGE}
  982.   MAILSLOT_NO_MESSAGE                 = -1;
  983.   {$EXTERNALSYM MAILSLOT_WAIT_FOREVER}
  984.   MAILSLOT_WAIT_FOREVER               = -1;
  985.   {$EXTERNALSYM FILE_CASE_SENSITIVE_SEARCH}
  986.   FILE_CASE_SENSITIVE_SEARCH          = $00000001;
  987.   {$EXTERNALSYM FILE_CASE_PRESERVED_NAMES}
  988.   FILE_CASE_PRESERVED_NAMES           = $00000002;
  989.   {$EXTERNALSYM FILE_UNICODE_ON_DISK}
  990.   FILE_UNICODE_ON_DISK                = $00000004;
  991.   {$EXTERNALSYM FILE_PERSISTENT_ACLS}
  992.   FILE_PERSISTENT_ACLS                = $00000008;
  993.   {$EXTERNALSYM FILE_FILE_COMPRESSION}
  994.   FILE_FILE_COMPRESSION               = $00000010;
  995.   {$EXTERNALSYM FILE_VOLUME_IS_COMPRESSED}
  996.   FILE_VOLUME_IS_COMPRESSED           = $00008000;
  997.  
  998.  
  999. {line 2300}
  1000. const
  1001.   {$EXTERNALSYM IO_COMPLETION_MODIFY_STATE}
  1002.   IO_COMPLETION_MODIFY_STATE = $0002;
  1003.   {$EXTERNALSYM IO_COMPLETION_ALL_ACCESS}
  1004.   IO_COMPLETION_ALL_ACCESS   = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or 3);
  1005.   {$EXTERNALSYM DUPLICATE_CLOSE_SOURCE}
  1006.   DUPLICATE_CLOSE_SOURCE     = $00000001;
  1007.   {$EXTERNALSYM DUPLICATE_SAME_ACCESS}
  1008.   DUPLICATE_SAME_ACCESS      = $00000002;
  1009.  
  1010. type
  1011.   {$EXTERNALSYM PSECURITY_DESCRIPTOR}
  1012.   PSECURITY_DESCRIPTOR = Pointer;
  1013.  
  1014.   {$EXTERNALSYM ACCESS_MASK}
  1015.   ACCESS_MASK = DWORD;
  1016.   PACCESS_MASK = ^ACCESS_MASK;
  1017.  
  1018. const
  1019.   { The following are masks for the predefined standard access types }
  1020.  
  1021.   _DELETE                  = $00010000; { Renamed from DELETE }
  1022.   {$EXTERNALSYM READ_CONTROL}
  1023.   READ_CONTROL             = $00020000;
  1024.   {$EXTERNALSYM WRITE_DAC}
  1025.   WRITE_DAC                = $00040000;
  1026.   {$EXTERNALSYM WRITE_OWNER}
  1027.   WRITE_OWNER              = $00080000;
  1028. { SYNCHRONIZE              = $00100000; defined above }
  1029. { STANDARD_RIGHTS_REQUIRED = $000F0000; defined above }
  1030.   {$EXTERNALSYM STANDARD_RIGHTS_READ}
  1031.   STANDARD_RIGHTS_READ     = READ_CONTROL;
  1032.   {$EXTERNALSYM STANDARD_RIGHTS_WRITE}
  1033.   STANDARD_RIGHTS_WRITE    = READ_CONTROL;
  1034.   {$EXTERNALSYM STANDARD_RIGHTS_EXECUTE}
  1035.   STANDARD_RIGHTS_EXECUTE  = READ_CONTROL;
  1036.   {$EXTERNALSYM STANDARD_RIGHTS_ALL}
  1037.   STANDARD_RIGHTS_ALL      = $001F0000;
  1038.   {$EXTERNALSYM SPECIFIC_RIGHTS_ALL}
  1039.   SPECIFIC_RIGHTS_ALL      = $0000FFFF;
  1040.   {$EXTERNALSYM ACCESS_SYSTEM_SECURITY}
  1041.   ACCESS_SYSTEM_SECURITY   = $01000000;
  1042.   {$EXTERNALSYM MAXIMUM_ALLOWED}
  1043.   MAXIMUM_ALLOWED          = $02000000;
  1044.   {$EXTERNALSYM GENERIC_READ}
  1045.   GENERIC_READ             = $80000000;
  1046.   {$EXTERNALSYM GENERIC_WRITE}
  1047.   GENERIC_WRITE            = $40000000;
  1048.   {$EXTERNALSYM GENERIC_EXECUTE}
  1049.   GENERIC_EXECUTE          = $20000000;
  1050.   {$EXTERNALSYM GENERIC_ALL}
  1051.   GENERIC_ALL              = $10000000;
  1052.  
  1053. type
  1054.   { Define the generic mapping array.  This is used to denote the
  1055.     mapping of each generic access right to a specific access mask. }
  1056.  
  1057.   PGenericMapping = ^TGenericMapping;
  1058.   {$EXTERNALSYM _GENERIC_MAPPING}
  1059.   _GENERIC_MAPPING = record
  1060.     GenericRead: ACCESS_MASK;
  1061.     GenericWrite: ACCESS_MASK;
  1062.     GenericExecute: ACCESS_MASK;
  1063.     GenericAll: ACCESS_MASK;
  1064.   end;
  1065.   TGenericMapping = _GENERIC_MAPPING;
  1066.   {$EXTERNALSYM GENERIC_MAPPING}
  1067.   GENERIC_MAPPING = _GENERIC_MAPPING;
  1068.  
  1069.   PLUIDAndAttributes = ^TLUIDAndAttributes;
  1070.   {$EXTERNALSYM _LUID_AND_ATTRIBUTES}
  1071.   _LUID_AND_ATTRIBUTES = record
  1072.     Luid: TLargeInteger;
  1073.     Attributes: DWORD;
  1074.   end;
  1075.   TLUIDAndAttributes = _LUID_AND_ATTRIBUTES;
  1076.   {$EXTERNALSYM LUID_AND_ATTRIBUTES}
  1077.   LUID_AND_ATTRIBUTES = _LUID_AND_ATTRIBUTES;
  1078.  
  1079. { ////////////////////////////////////////////////////////////////////// }
  1080. {                                                                    // }
  1081. {              Security Id     (SID)                                 // }
  1082. {                                                                    // }
  1083. { ////////////////////////////////////////////////////////////////////// }
  1084.  
  1085.  
  1086. { Pictorially the structure of an SID is as follows: }
  1087.  
  1088. {         1   1   1   1   1   1 }
  1089. {         5   4   3   2   1   0   9   8   7   6   5   4   3   2   1   0 }
  1090. {      +---------------------------------------------------------------+ }
  1091. {      |      SubAuthorityCount        |Reserved1 (SBZ)|   Revision    | }
  1092. {      +---------------------------------------------------------------+ }
  1093. {      |                   IdentifierAuthority[0]                      | }
  1094. {      +---------------------------------------------------------------+ }
  1095. {      |                   IdentifierAuthority[1]                      | }
  1096. {      +---------------------------------------------------------------+ }
  1097. {      |                   IdentifierAuthority[2]                      | }
  1098. {      +---------------------------------------------------------------+ }
  1099. {      |                                                               | }
  1100. {      +- -  -  -  -  -  -  -  SubAuthority[]  -  -  -  -  -  -  -  - -+ }
  1101. {      |                                                               | }
  1102. {      +---------------------------------------------------------------+ }
  1103.  
  1104.   PSIDIdentifierAuthority = ^TSIDIdentifierAuthority;
  1105.   {$EXTERNALSYM _SID_IDENTIFIER_AUTHORITY}
  1106.   _SID_IDENTIFIER_AUTHORITY = record
  1107.     Value: array[0..5] of Byte;
  1108.   end;
  1109.   TSIDIdentifierAuthority = _SID_IDENTIFIER_AUTHORITY;
  1110.   {$EXTERNALSYM SID_IDENTIFIER_AUTHORITY}
  1111.   SID_IDENTIFIER_AUTHORITY = _SID_IDENTIFIER_AUTHORITY;
  1112.  
  1113. const
  1114.   {$EXTERNALSYM SidTypeUser}
  1115.   SidTypeUser = 1;
  1116.   {$EXTERNALSYM SidTypeGroup}
  1117.   SidTypeGroup = 2;
  1118.   {$EXTERNALSYM SidTypeDomain}
  1119.   SidTypeDomain = 3;
  1120.   {$EXTERNALSYM SidTypeAlias}
  1121.   SidTypeAlias = 4;
  1122.   {$EXTERNALSYM SidTypeWellKnownGroup}
  1123.   SidTypeWellKnownGroup = 5;
  1124.   {$EXTERNALSYM SidTypeDeletedAccount}
  1125.   SidTypeDeletedAccount = 6;
  1126.   {$EXTERNALSYM SidTypeInvalid}
  1127.   SidTypeInvalid = 7;
  1128.   {$EXTERNALSYM SidTypeUnknown}
  1129.   SidTypeUnknown = 8;
  1130. type
  1131.   {$EXTERNALSYM SID_NAME_USE}
  1132.   SID_NAME_USE = DWORD;
  1133.  
  1134.   PSIDAndAttributes = ^TSIDAndAttributes;
  1135.   {$EXTERNALSYM _SID_AND_ATTRIBUTES}
  1136.   _SID_AND_ATTRIBUTES = record
  1137.     Sid: PSID;
  1138.     Attributes: DWORD;
  1139.   end;
  1140.   TSIDAndAttributes = _SID_AND_ATTRIBUTES;
  1141.   {$EXTERNALSYM SID_AND_ATTRIBUTES}
  1142.   SID_AND_ATTRIBUTES = _SID_AND_ATTRIBUTES;
  1143.  
  1144. {line 2700}
  1145.   {$EXTERNALSYM PACL}
  1146.   PACL = ^TACL;
  1147.   {$EXTERNALSYM _ACL}
  1148.   _ACL = record
  1149.     AclRevision: Byte;
  1150.     Sbz1: Byte;
  1151.     AclSize: Word;
  1152.     AceCount: Word;
  1153.     Sbz2: Word;
  1154.   end;
  1155.   TACL = _ACL;
  1156.   {$EXTERNALSYM ACL}
  1157.   ACL = _ACL;
  1158.  
  1159. {line 2850}
  1160.   { The following declarations are used for setting and querying information
  1161.     about and ACL.  First are the various information classes available to
  1162.     the user. }
  1163.  
  1164.   {$EXTERNALSYM TAclInformationClass}
  1165.   TAclInformationClass = (AclInfoPad, AclRevisionInformation, AclSizeInformation);
  1166.  
  1167. {line 2900}
  1168. { Security Descriptor and related data types. }
  1169.  
  1170. const
  1171.   {$EXTERNALSYM SECURITY_DESCRIPTOR_MIN_LENGTH}
  1172.   SECURITY_DESCRIPTOR_MIN_LENGTH = 20;
  1173.   {$EXTERNALSYM SE_OWNER_DEFAULTED}
  1174.   SE_OWNER_DEFAULTED = $0001;
  1175.   {$EXTERNALSYM SE_GROUP_DEFAULTED}
  1176.   SE_GROUP_DEFAULTED = $0002;
  1177.   {$EXTERNALSYM SE_DACL_PRESENT}
  1178.   SE_DACL_PRESENT    = $0004;
  1179.   {$EXTERNALSYM SE_DACL_DEFAULTED}
  1180.   SE_DACL_DEFAULTED  = $0008;
  1181.   {$EXTERNALSYM SE_SACL_PRESENT}
  1182.   SE_SACL_PRESENT    = $0010;
  1183.   {$EXTERNALSYM SE_SACL_DEFAULTED}
  1184.   SE_SACL_DEFAULTED  = $0020;
  1185.   {$EXTERNALSYM SE_SELF_RELATIVE}
  1186.   SE_SELF_RELATIVE   = $8000;
  1187.  
  1188. {  Where: }
  1189.  
  1190. {      SE_OWNER_DEFAULTED - This boolean flag, when set, indicates that the }
  1191. {          SID pointed to by the Owner field was provided by a }
  1192. {          defaulting mechanism rather than explicitly provided by the }
  1193. {          original provider of the security descriptor.  This may }
  1194. {          affect the treatment of the SID with respect to inheritence }
  1195. {          of an owner. }
  1196.  
  1197. {      SE_GROUP_DEFAULTED - This boolean flag, when set, indicates that the }
  1198. {          SID in the Group field was provided by a defaulting mechanism }
  1199. {          rather than explicitly provided by the original provider of }
  1200. {          the security descriptor.  This may affect the treatment of }
  1201. {          the SID with respect to inheritence of a primary group. }
  1202.  
  1203. {      SE_DACL_PRESENT - This boolean flag, when set, indicates that the }
  1204. {          security descriptor contains a discretionary ACL.  If this }
  1205. {          flag is set and the Dacl field of the SECURITY_DESCRIPTOR is }
  1206. {          null, then a null ACL is explicitly being specified. }
  1207.  
  1208. {      SE_DACL_DEFAULTED - This boolean flag, when set, indicates that the }
  1209. {          ACL pointed to by the Dacl field was provided by a defaulting }
  1210. {          mechanism rather than explicitly provided by the original }
  1211. {          provider of the security descriptor.  This may affect the }
  1212. {          treatment of the ACL with respect to inheritence of an ACL. }
  1213. {          This flag is ignored if the DaclPresent flag is not set. }
  1214.  
  1215. {      SE_SACL_PRESENT - This boolean flag, when set,  indicates that the }
  1216. {          security descriptor contains a system ACL pointed to by the }
  1217. {          Sacl field.  If this flag is set and the Sacl field of the }
  1218. {          SECURITY_DESCRIPTOR is null, then an empty (but present) }
  1219. {          ACL is being specified. }
  1220.  
  1221. {      SE_SACL_DEFAULTED - This boolean flag, when set, indicates that the }
  1222. {          ACL pointed to by the Sacl field was provided by a defaulting }
  1223. {          mechanism rather than explicitly provided by the original }
  1224. {          provider of the security descriptor.  This may affect the }
  1225. {          treatment of the ACL with respect to inheritence of an ACL. }
  1226. {          This flag is ignored if the SaclPresent flag is not set. }
  1227.  
  1228. {      SE_SELF_RELATIVE - This boolean flag, when set, indicates that the }
  1229. {          security descriptor is in self-relative form.  In this form, }
  1230. {          all fields of the security descriptor are contiguous in memory }
  1231. {          and all pointer fields are expressed as offsets from the }
  1232. {          beginning of the security descriptor.  This form is useful }
  1233. {          for treating security descriptors as opaque data structures }
  1234. {          for transmission in communication protocol or for storage on }
  1235. {          secondary media. }
  1236.  
  1237.  
  1238.  
  1239. { Pictorially the structure of a security descriptor is as follows: }
  1240.  
  1241. {       3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 }
  1242. {       1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 }
  1243. {      +---------------------------------------------------------------+ }
  1244. {      |            Control            |Reserved1 (SBZ)|   Revision    | }
  1245. {      +---------------------------------------------------------------+ }
  1246. {      |                            Owner                              | }
  1247. {      +---------------------------------------------------------------+ }
  1248. {      |                            Group                              | }
  1249. {      +---------------------------------------------------------------+ }
  1250. {      |                            Sacl                               | }
  1251. {      +---------------------------------------------------------------+ }
  1252. {      |                            Dacl                               | }
  1253. {      +---------------------------------------------------------------+ }
  1254.  
  1255. { In general, this data structure should be treated opaquely to ensure future }
  1256. { compatibility. }
  1257.  
  1258.  
  1259. type
  1260.   {$EXTERNALSYM SECURITY_DESCRIPTOR_CONTROL}
  1261.   SECURITY_DESCRIPTOR_CONTROL = Word;
  1262.   {$EXTERNALSYM PSECURITY_DESCRIPTOR_CONTROL}
  1263.   PSECURITY_DESCRIPTOR_CONTROL = ^WORD;
  1264.  
  1265.   { In general, this data structure should be treated opaquely
  1266.     to ensure future compatibility. }
  1267.  
  1268.   PSecurityDescriptor = ^TSecurityDescriptor;
  1269.   {$EXTERNALSYM _SECURITY_DESCRIPTOR}
  1270.   _SECURITY_DESCRIPTOR = record
  1271.     Revision: Byte;
  1272.     Sbz1: Byte;
  1273.     Control: SECURITY_DESCRIPTOR_CONTROL;
  1274.     Owner: PSID;
  1275.     Group: PSID;
  1276.     Sacl: PACL;
  1277.     Dacl: PACL;
  1278.   end;
  1279.   TSecurityDescriptor = _SECURITY_DESCRIPTOR;
  1280.   {$EXTERNALSYM SECURITY_DESCRIPTOR}
  1281.   SECURITY_DESCRIPTOR = _SECURITY_DESCRIPTOR;
  1282.  
  1283. { Privilege Related Data Structures }
  1284.  
  1285. const
  1286.   { Privilege attributes }
  1287.  
  1288.   {$EXTERNALSYM SE_PRIVILEGE_ENABLED_BY_DEFAULT}
  1289.   SE_PRIVILEGE_ENABLED_BY_DEFAULT = $00000001;
  1290.   {$EXTERNALSYM SE_PRIVILEGE_ENABLED}
  1291.   SE_PRIVILEGE_ENABLED            = $00000002;
  1292.   {$EXTERNALSYM SE_PRIVILEGE_USED_FOR_ACCESS}
  1293.   SE_PRIVILEGE_USED_FOR_ACCESS    = $80000000;
  1294.  
  1295.   { Privilege Set Control flags }
  1296.  
  1297.   {$EXTERNALSYM PRIVILEGE_SET_ALL_NECESSARY}
  1298.   PRIVILEGE_SET_ALL_NECESSARY = 1;
  1299.  
  1300.   {  Privilege Set - This is defined for a privilege set of one.
  1301.                    If more than one privilege is needed, then this structure
  1302.                    will need to be allocated with more space.}
  1303.   {  Note: don't change this structure without fixing the INITIAL_PRIVILEGE_SET}
  1304.  
  1305. type
  1306.   PPrivilegeSet = ^TPrivilegeSet;
  1307.   {$EXTERNALSYM _PRIVILEGE_SET}
  1308.   _PRIVILEGE_SET = record
  1309.     PrivilegeCount: DWORD;
  1310.     Control: DWORD;
  1311.     Privilege: array[0..0] of TLUIDAndAttributes;
  1312.   end;
  1313.   TPrivilegeSet = _PRIVILEGE_SET;
  1314.   {$EXTERNALSYM PRIVILEGE_SET}
  1315.   PRIVILEGE_SET = _PRIVILEGE_SET;
  1316.  
  1317. { line 3130 }
  1318.   {$EXTERNALSYM TSecurityImpersonationLevel}
  1319.   TSecurityImpersonationLevel = (SecurityAnonymous,
  1320.     SecurityIdentification, SecurityImpersonation, SecurityDelegation);
  1321.  
  1322. const
  1323.   {$EXTERNALSYM SECURITY_MAX_IMPERSONATION_LEVEL}
  1324.   SECURITY_MAX_IMPERSONATION_LEVEL     = SecurityDelegation;
  1325.   {$EXTERNALSYM DEFAULT_IMPERSONATION_LEVEL}
  1326.   DEFAULT_IMPERSONATION_LEVEL     = SecurityImpersonation;
  1327.  
  1328. const
  1329.   {$EXTERNALSYM TOKEN_ASSIGN_PRIMARY}
  1330.   TOKEN_ASSIGN_PRIMARY = $0001;
  1331.   {$EXTERNALSYM TOKEN_DUPLICATE}
  1332.   TOKEN_DUPLICATE = $0002;
  1333.   {$EXTERNALSYM TOKEN_IMPERSONATE}
  1334.   TOKEN_IMPERSONATE = $0004;
  1335.   {$EXTERNALSYM TOKEN_QUERY}
  1336.   TOKEN_QUERY = $0008;
  1337.   {$EXTERNALSYM TOKEN_QUERY_SOURCE}
  1338.   TOKEN_QUERY_SOURCE = $0010;
  1339.   {$EXTERNALSYM TOKEN_ADJUST_PRIVILEGES}
  1340.   TOKEN_ADJUST_PRIVILEGES = $0020;
  1341.   {$EXTERNALSYM TOKEN_ADJUST_GROUPS}
  1342.   TOKEN_ADJUST_GROUPS = $0040;
  1343.   {$EXTERNALSYM TOKEN_ADJUST_DEFAULT}
  1344.   TOKEN_ADJUST_DEFAULT = $0080;
  1345.   {$EXTERNALSYM TOKEN_ALL_ACCESS}
  1346.   TOKEN_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or TOKEN_ASSIGN_PRIMARY or
  1347.     TOKEN_DUPLICATE or TOKEN_IMPERSONATE or TOKEN_QUERY or
  1348.     TOKEN_QUERY_SOURCE or TOKEN_ADJUST_PRIVILEGES or TOKEN_ADJUST_GROUPS or
  1349.     TOKEN_ADJUST_DEFAULT);
  1350.   {$EXTERNALSYM TOKEN_READ}
  1351.   TOKEN_READ = (STANDARD_RIGHTS_READ or TOKEN_QUERY);
  1352.   {$EXTERNALSYM TOKEN_WRITE}
  1353.   TOKEN_WRITE = (STANDARD_RIGHTS_WRITE or TOKEN_ADJUST_PRIVILEGES or
  1354.     TOKEN_ADJUST_GROUPS or TOKEN_ADJUST_DEFAULT);
  1355.   {$EXTERNALSYM TOKEN_EXECUTE}
  1356.   TOKEN_EXECUTE = STANDARD_RIGHTS_EXECUTE;
  1357.  
  1358. type
  1359.         {$EXTERNALSYM TTokenType}
  1360.         TTokenType = (TokenTPad, TokenPrimary, TokenImpersonation);
  1361.  
  1362.   {$EXTERNALSYM TTokenInformationClass}
  1363.   TTokenInformationClass = (TokenICPad, TokenUser, TokenGroups, TokenPrivileges,
  1364.     TokenOwner, TokenPrimaryGroup, TokenDefaultDacl, TokenSource, TokenType,
  1365.     TokenImpersonationLevel, TokenStatistics);
  1366.  
  1367.   PTokenGroups = ^TTokenGroups;
  1368.   {$EXTERNALSYM _TOKEN_GROUPS}
  1369.   _TOKEN_GROUPS = record
  1370.     GroupCount: DWORD;
  1371.     Groups: array[0..0] of TSIDAndAttributes;
  1372.   end;
  1373.   TTokenGroups = _TOKEN_GROUPS;
  1374.   {$EXTERNALSYM TOKEN_GROUPS}
  1375.   TOKEN_GROUPS = _TOKEN_GROUPS;
  1376.  
  1377.   PTokenPrivileges = ^TTokenPrivileges;
  1378.   {$EXTERNALSYM _TOKEN_PRIVILEGES}
  1379.   _TOKEN_PRIVILEGES = record
  1380.     PrivilegeCount: DWORD;
  1381.     Privileges: array[0..0] of TLUIDAndAttributes;
  1382.   end;
  1383.   TTokenPrivileges = _TOKEN_PRIVILEGES;
  1384.   {$EXTERNALSYM TOKEN_PRIVILEGES}
  1385.   TOKEN_PRIVILEGES = _TOKEN_PRIVILEGES;
  1386.  
  1387. const
  1388.   {$EXTERNALSYM SECURITY_DYNAMIC_TRACKING}
  1389.   SECURITY_DYNAMIC_TRACKING = True;
  1390.   {$EXTERNALSYM SECURITY_STATIC_TRACKING}
  1391.   SECURITY_STATIC_TRACKING  = False;
  1392.  
  1393. type
  1394.   {$EXTERNALSYM SECURITY_CONTEXT_TRACKING_MODE}
  1395.   SECURITY_CONTEXT_TRACKING_MODE = Boolean;
  1396.  
  1397.   PSecurityQualityOfService = ^TSecurityQualityOfService;
  1398.   {$EXTERNALSYM _SECURITY_QUALITY_OF_SERVICE}
  1399.   _SECURITY_QUALITY_OF_SERVICE = record
  1400.     Length: DWORD;
  1401.     ImpersonationLevel: TSecurityImpersonationLevel;
  1402.     ContextTrackingMode: SECURITY_CONTEXT_TRACKING_MODE;
  1403.     EffectiveOnly: Boolean;
  1404.   end;
  1405.   TSecurityQualityOfService = _SECURITY_QUALITY_OF_SERVICE;
  1406.   {$EXTERNALSYM SECURITY_QUALITY_OF_SERVICE}
  1407.   SECURITY_QUALITY_OF_SERVICE = _SECURITY_QUALITY_OF_SERVICE;
  1408.  
  1409. {line 3320}
  1410.   {$EXTERNALSYM SECURITY_INFORMATION}
  1411.   SECURITY_INFORMATION = DWORD;
  1412.   PSECURITY_INFORMATION = ^DWORD;
  1413.  
  1414. const
  1415.   {$EXTERNALSYM OWNER_SECURITY_INFORMATION}
  1416.   OWNER_SECURITY_INFORMATION =  $00000001;
  1417.   {$EXTERNALSYM GROUP_SECURITY_INFORMATION}
  1418.   GROUP_SECURITY_INFORMATION =  $00000002;
  1419.   {$EXTERNALSYM DACL_SECURITY_INFORMATION}
  1420.   DACL_SECURITY_INFORMATION  =  $00000004;
  1421.   {$EXTERNALSYM SACL_SECURITY_INFORMATION}
  1422.   SACL_SECURITY_INFORMATION  =  $00000008;
  1423.  
  1424. type
  1425.   TThreadStartRoutine = function(lpThreadParameter: Pointer): Integer stdcall;
  1426.  
  1427. {line 3337}
  1428. const
  1429.   {$EXTERNALSYM IMAGE_DOS_SIGNATURE}
  1430.   IMAGE_DOS_SIGNATURE                     = $5A4D;      { MZ }
  1431.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE}
  1432.   IMAGE_OS2_SIGNATURE                     = $454E;      { NE }
  1433.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE_LE}
  1434.   IMAGE_OS2_SIGNATURE_LE                  = $454C;      { LE }
  1435.   {$EXTERNALSYM IMAGE_VXD_SIGNATURE}
  1436.   IMAGE_VXD_SIGNATURE                     = $454C;      { LE }
  1437.   {$EXTERNALSYM IMAGE_NT_SIGNATURE}
  1438.   IMAGE_NT_SIGNATURE                      = $00004550;  { PE00 }
  1439.  
  1440. {line 3457}
  1441. { File header format. }
  1442.  
  1443. type
  1444.   PImageFileHeader = ^TImageFileHeader;
  1445.   {$EXTERNALSYM _IMAGE_FILE_HEADER}
  1446.   _IMAGE_FILE_HEADER = packed record
  1447.     Machine: Word;
  1448.     NumberOfSections: Word;
  1449.     TimeDateStamp: DWORD;
  1450.     PointerToSymbolTable: DWORD;
  1451.     NumberOfSymbols: DWORD;
  1452.     SizeOfOptionalHeader: Word;
  1453.     Characteristics: Word;
  1454.   end;
  1455.   TImageFileHeader = _IMAGE_FILE_HEADER;
  1456.   {$EXTERNALSYM IMAGE_FILE_HEADER}
  1457.   IMAGE_FILE_HEADER = _IMAGE_FILE_HEADER;
  1458.  
  1459. const
  1460.   {$EXTERNALSYM IMAGE_SIZEOF_FILE_HEADER}
  1461.   IMAGE_SIZEOF_FILE_HEADER                 = 20;
  1462.  
  1463.   {$EXTERNALSYM IMAGE_FILE_RELOCS_STRIPPED}
  1464.   IMAGE_FILE_RELOCS_STRIPPED               = $0001;  { Relocation info stripped from file. }
  1465.   {$EXTERNALSYM IMAGE_FILE_EXECUTABLE_IMAGE}
  1466.   IMAGE_FILE_EXECUTABLE_IMAGE              = $0002;  { File is executable  (i.e. no unresolved externel references). }
  1467.   {$EXTERNALSYM IMAGE_FILE_LINE_NUMS_STRIPPED}
  1468.   IMAGE_FILE_LINE_NUMS_STRIPPED            = $0004;  { Line nunbers stripped from file. }
  1469.   {$EXTERNALSYM IMAGE_FILE_LOCAL_SYMS_STRIPPED}
  1470.   IMAGE_FILE_LOCAL_SYMS_STRIPPED           = $0008;  { Local symbols stripped from file. }
  1471.   {$EXTERNALSYM IMAGE_FILE_AGGRESIVE_WS_TRIM}
  1472.   IMAGE_FILE_AGGRESIVE_WS_TRIM             = $0010;  { Agressively trim working set }
  1473.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_LO}
  1474.   IMAGE_FILE_BYTES_REVERSED_LO             = $0080;  { Bytes of machine word are reversed. }
  1475.   {$EXTERNALSYM IMAGE_FILE_32BIT_MACHINE}
  1476.   IMAGE_FILE_32BIT_MACHINE                 = $0100;  { 32 bit word machine. }
  1477.   {$EXTERNALSYM IMAGE_FILE_DEBUG_STRIPPED}
  1478.   IMAGE_FILE_DEBUG_STRIPPED                = $0200;  { Debugging info stripped from file in .DBG file }
  1479.   {$EXTERNALSYM IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP}
  1480.   IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP       = $0400;  { If Image is on removable media, copy and run from the swap file. }
  1481.   {$EXTERNALSYM IMAGE_FILE_NET_RUN_FROM_SWAP}
  1482.   IMAGE_FILE_NET_RUN_FROM_SWAP             = $0800;  { If Image is on Net, copy and run from the swap file. }
  1483.   {$EXTERNALSYM IMAGE_FILE_SYSTEM}
  1484.   IMAGE_FILE_SYSTEM                        = $1000;  { System File. }
  1485.   {$EXTERNALSYM IMAGE_FILE_DLL}
  1486.   IMAGE_FILE_DLL                           = $2000;  { File is a DLL. }
  1487.   {$EXTERNALSYM IMAGE_FILE_UP_SYSTEM_ONLY}
  1488.   IMAGE_FILE_UP_SYSTEM_ONLY                = $4000;  { File should only be run on a UP machine }
  1489.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_HI}
  1490.   IMAGE_FILE_BYTES_REVERSED_HI             = $8000;  { Bytes of machine word are reversed. }
  1491.  
  1492.   {$EXTERNALSYM IMAGE_FILE_MACHINE_UNKNOWN}
  1493.   IMAGE_FILE_MACHINE_UNKNOWN               = 0;
  1494.   {$EXTERNALSYM IMAGE_FILE_MACHINE_I386}
  1495.   IMAGE_FILE_MACHINE_I386                  = $14c;   { Intel 386. }
  1496.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R3000}
  1497.   IMAGE_FILE_MACHINE_R3000                 = $162;   { MIPS little-endian, 0x160 big-endian }
  1498.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R4000}
  1499.   IMAGE_FILE_MACHINE_R4000                 = $166;   { MIPS little-endian }
  1500.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R10000}
  1501.   IMAGE_FILE_MACHINE_R10000                = $168;   { MIPS little-endian }
  1502.   {$EXTERNALSYM IMAGE_FILE_MACHINE_ALPHA}
  1503.   IMAGE_FILE_MACHINE_ALPHA                 = $184;   { Alpha_AXP }
  1504.   {$EXTERNALSYM IMAGE_FILE_MACHINE_POWERPC}
  1505.   IMAGE_FILE_MACHINE_POWERPC               = $1F0;   { IBM PowerPC Little-Endian }
  1506.  
  1507. { Directory format. }
  1508.  
  1509. type
  1510.   PImageDataDirectory = ^TImageDataDirectory;
  1511.   {$EXTERNALSYM _IMAGE_DATA_DIRECTORY}
  1512.   _IMAGE_DATA_DIRECTORY = record
  1513.     VirtualAddress: DWORD;
  1514.     Size: DWORD;
  1515.   end;
  1516.   TImageDataDirectory = _IMAGE_DATA_DIRECTORY;
  1517.   {$EXTERNALSYM IMAGE_DATA_DIRECTORY}
  1518.   IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
  1519.  
  1520. const
  1521.   {$EXTERNALSYM IMAGE_NUMBEROF_DIRECTORY_ENTRIES}
  1522.   IMAGE_NUMBEROF_DIRECTORY_ENTRIES        = 16;
  1523.  
  1524. { Optional header format. }
  1525.  
  1526. type
  1527.   PImageOptionalHeader = ^TImageOptionalHeader;
  1528.   {$EXTERNALSYM _IMAGE_OPTIONAL_HEADER}
  1529.   _IMAGE_OPTIONAL_HEADER = packed record
  1530.     { Standard fields. }
  1531.     Magic: Word;
  1532.     MajorLinkerVersion: Byte;
  1533.     MinorLinkerVersion: Byte;
  1534.     SizeOfCode: DWORD;
  1535.     SizeOfInitializedData: DWORD;
  1536.     SizeOfUninitializedData: DWORD;
  1537.     AddressOfEntryPoint: DWORD;
  1538.     BaseOfCode: DWORD;
  1539.     BaseOfData: DWORD;
  1540.     { NT additional fields. }
  1541.     ImageBase: DWORD;
  1542.     SectionAlignment: DWORD;
  1543.     FileAlignment: DWORD;
  1544.     MajorOperatingSystemVersion: Word;
  1545.     MinorOperatingSystemVersion: Word;
  1546.     MajorImageVersion: Word;
  1547.     MinorImageVersion: Word;
  1548.     MajorSubsystemVersion: Word;
  1549.     MinorSubsystemVersion: Word;
  1550.     Win32VersionValue: DWORD;
  1551.     SizeOfImage: DWORD;
  1552.     SizeOfHeaders: DWORD;
  1553.     CheckSum: DWORD;
  1554.     Subsystem: Word;
  1555.     DllCharacteristics: Word;
  1556.     SizeOfStackReserve: DWORD;
  1557.     SizeOfStackCommit: DWORD;
  1558.     SizeOfHeapReserve: DWORD;
  1559.     SizeOfHeapCommit: DWORD;
  1560.     LoaderFlags: DWORD;
  1561.     NumberOfRvaAndSizes: DWORD;
  1562.     DataDirectory: packed array[0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES-1] of TImageDataDirectory;
  1563.   end;
  1564.   TImageOptionalHeader = _IMAGE_OPTIONAL_HEADER;
  1565.   {$EXTERNALSYM IMAGE_OPTIONAL_HEADER}
  1566.   IMAGE_OPTIONAL_HEADER = _IMAGE_OPTIONAL_HEADER;
  1567.  
  1568.   PImageRomOptionalHeader = ^TImageRomOptionalHeader;
  1569.   {$EXTERNALSYM _IMAGE_ROM_OPTIONAL_HEADER}
  1570.   _IMAGE_ROM_OPTIONAL_HEADER = packed record
  1571.     Magic: Word;
  1572.     MajorLinkerVersion: Byte;
  1573.     MinorLinkerVersion: Byte;
  1574.     SizeOfCode: DWORD;
  1575.     SizeOfInitializedData: DWORD;
  1576.     SizeOfUninitializedData: DWORD;
  1577.     AddressOfEntryPoint: DWORD;
  1578.     BaseOfCode: DWORD;
  1579.     BaseOfData: DWORD;
  1580.     BaseOfBss: DWORD;
  1581.     GprMask: DWORD;
  1582.     CprMask: packed array[0..3] of DWORD;
  1583.     GpValue: DWORD;
  1584.   end;
  1585.   TImageRomOptionalHeader = _IMAGE_ROM_OPTIONAL_HEADER;
  1586.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HEADER}
  1587.   IMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
  1588.  
  1589.  
  1590. const
  1591.   {$EXTERNALSYM IMAGE_SIZEOF_ROM_OPTIONAL_HEADER}
  1592.   IMAGE_SIZEOF_ROM_OPTIONAL_HEADER       = 56;
  1593.   {$EXTERNALSYM IMAGE_SIZEOF_STD_OPTIONAL_HEADER}
  1594.   IMAGE_SIZEOF_STD_OPTIONAL_HEADER       = 28;
  1595.   {$EXTERNALSYM IMAGE_SIZEOF_NT_OPTIONAL_HEADER}
  1596.   IMAGE_SIZEOF_NT_OPTIONAL_HEADER        = 224;
  1597.  
  1598.   {$EXTERNALSYM IMAGE_NT_OPTIONAL_HDR_MAGIC}
  1599.   IMAGE_NT_OPTIONAL_HDR_MAGIC            = $010B;
  1600.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HDR_MAGIC}
  1601.   IMAGE_ROM_OPTIONAL_HDR_MAGIC           = $0107;
  1602.  
  1603. type
  1604.   PImageNtHeaders = ^TImageNtHeaders;
  1605.   {$EXTERNALSYM _IMAGE_NT_HEADERS}
  1606.   _IMAGE_NT_HEADERS = packed record
  1607.     Signature: DWORD;
  1608.     FileHeader: TImageFileHeader;
  1609.     OptionalHeader: TImageOptionalHeader;
  1610.   end;
  1611.   TImageNtHeaders = _IMAGE_NT_HEADERS;
  1612.   {$EXTERNALSYM IMAGE_NT_HEADERS}
  1613.   IMAGE_NT_HEADERS = _IMAGE_NT_HEADERS;
  1614.  
  1615.  
  1616.   PImageRomHeaders = ^TImageRomHeaders;
  1617.   {$EXTERNALSYM _IMAGE_ROM_HEADERS}
  1618.   _IMAGE_ROM_HEADERS = packed record
  1619.     FileHeader: TImageFileHeader;
  1620.     OptionalHeader: TImageRomOptionalHeader;
  1621.   end;
  1622.   TImageRomHeaders = _IMAGE_ROM_HEADERS;
  1623.   {$EXTERNALSYM IMAGE_ROM_HEADERS}
  1624.   IMAGE_ROM_HEADERS = _IMAGE_ROM_HEADERS;
  1625.  
  1626.  
  1627. { Subsystem Values }
  1628.  
  1629. const
  1630.   {$EXTERNALSYM IMAGE_SUBSYSTEM_UNKNOWN}
  1631.   IMAGE_SUBSYSTEM_UNKNOWN                  = 0;  { Unknown subsystem. }
  1632.   {$EXTERNALSYM IMAGE_SUBSYSTEM_NATIVE}
  1633.   IMAGE_SUBSYSTEM_NATIVE                   = 1;  { Image doesn't require a subsystem. }
  1634.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_GUI}
  1635.   IMAGE_SUBSYSTEM_WINDOWS_GUI              = 2;  { Image runs in the Windows GUI subsystem. }
  1636.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_CUI}
  1637.   IMAGE_SUBSYSTEM_WINDOWS_CUI              = 3;  { Image runs in the Windows character subsystem. }
  1638.   {$EXTERNALSYM IMAGE_SUBSYSTEM_OS2_CUI}
  1639.   IMAGE_SUBSYSTEM_OS2_CUI                  = 5;  { image runs in the OS/2 character subsystem. }
  1640.   {$EXTERNALSYM IMAGE_SUBSYSTEM_POSIX_CUI}
  1641.   IMAGE_SUBSYSTEM_POSIX_CUI                = 7;  { image run  in the Posix character subsystem. }
  1642.   {$EXTERNALSYM IMAGE_SUBSYSTEM_RESERVED8}
  1643.   IMAGE_SUBSYSTEM_RESERVED8                = 8;  { image run  in the 8 subsystem. }
  1644.  
  1645.  
  1646. { Directory Entries }
  1647.  
  1648.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXPORT}
  1649.   IMAGE_DIRECTORY_ENTRY_EXPORT             = 0;  { Export Directory }
  1650.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IMPORT}
  1651.   IMAGE_DIRECTORY_ENTRY_IMPORT             = 1;  { Import Directory }
  1652.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_RESOURCE}
  1653.   IMAGE_DIRECTORY_ENTRY_RESOURCE           = 2;  { Resource Directory }
  1654.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXCEPTION}
  1655.   IMAGE_DIRECTORY_ENTRY_EXCEPTION          = 3;  { Exception Directory }
  1656.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_SECURITY}
  1657.   IMAGE_DIRECTORY_ENTRY_SECURITY           = 4;  { Security Directory }
  1658.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BASERELOC}
  1659.   IMAGE_DIRECTORY_ENTRY_BASERELOC          = 5;  { Base Relocation Table }
  1660.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_DEBUG}
  1661.   IMAGE_DIRECTORY_ENTRY_DEBUG              = 6;  { Debug Directory }
  1662.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_COPYRIGHT}
  1663.   IMAGE_DIRECTORY_ENTRY_COPYRIGHT          = 7;  { Description String }
  1664.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_GLOBALPTR}
  1665.   IMAGE_DIRECTORY_ENTRY_GLOBALPTR          = 8;  { Machine Value (MIPS GP) }
  1666.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_TLS}
  1667.   IMAGE_DIRECTORY_ENTRY_TLS                = 9;  { TLS Directory }
  1668.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG}
  1669.   IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG       = 10;  { Load Configuration Directory }
  1670.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT}
  1671.   IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT      = 11;  { Bound Import Directory in headers }
  1672.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IAT}
  1673.   IMAGE_DIRECTORY_ENTRY_IAT               = 12;  { Import Address Table }
  1674.  
  1675. { Section header format. }
  1676.  
  1677.   {$EXTERNALSYM IMAGE_SIZEOF_SHORT_NAME}
  1678.   IMAGE_SIZEOF_SHORT_NAME                  = 8;
  1679.  
  1680. type
  1681.   TISHMisc = packed record
  1682.     case Integer of
  1683.       0: (PhysicalAddress: DWORD);
  1684.       1: (VirtualSize: DWORD);
  1685.   end;
  1686.  
  1687.   PImageSectionHeader = ^TImageSectionHeader;
  1688.   {$EXTERNALSYM _IMAGE_SECTION_HEADER}
  1689.   _IMAGE_SECTION_HEADER = packed record
  1690.     Name: packed array[0..IMAGE_SIZEOF_SHORT_NAME-1] of Byte;
  1691.     Misc: TISHMisc;
  1692.     VirtualAddress: DWORD;
  1693.     SizeOfRawData: DWORD;
  1694.     PointerToRawData: DWORD;
  1695.     PointerToRelocations: DWORD;
  1696.     PointerToLinenumbers: DWORD;
  1697.     NumberOfRelocations: Word;
  1698.     NumberOfLinenumbers: Word;
  1699.     Characteristics: DWORD;
  1700.   end;
  1701.   TImageSectionHeader = _IMAGE_SECTION_HEADER;
  1702.   {$EXTERNALSYM IMAGE_SECTION_HEADER}
  1703.   IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
  1704.  
  1705.  
  1706. const
  1707.   {$EXTERNALSYM IMAGE_SIZEOF_SECTION_HEADER}
  1708.   IMAGE_SIZEOF_SECTION_HEADER              = 40;
  1709.  
  1710.  
  1711. { Section characteristics. }
  1712.  
  1713. {      IMAGE_SCN_TYPE_REG                   0x00000000  // Reserved. }
  1714. {      IMAGE_SCN_TYPE_DSECT                 0x00000001  // Reserved. }
  1715. {      IMAGE_SCN_TYPE_NOLOAD                0x00000002  // Reserved. }
  1716. {      IMAGE_SCN_TYPE_GROUP                 0x00000004  // Reserved. }
  1717.   {$EXTERNALSYM IMAGE_SCN_TYPE_NO_PAD}
  1718.   IMAGE_SCN_TYPE_NO_PAD                    = $00000008;  { Reserved. }
  1719. {      IMAGE_SCN_TYPE_COPY                  0x00000010  // Reserved. }
  1720.  
  1721.   {$EXTERNALSYM IMAGE_SCN_CNT_CODE}
  1722.   IMAGE_SCN_CNT_CODE                       = $00000020;  { Section contains code. }
  1723.   {$EXTERNALSYM IMAGE_SCN_CNT_INITIALIZED_DATA}
  1724.   IMAGE_SCN_CNT_INITIALIZED_DATA           = $00000040;  { Section contains initialized data. }
  1725.   {$EXTERNALSYM IMAGE_SCN_CNT_UNINITIALIZED_DATA}
  1726.   IMAGE_SCN_CNT_UNINITIALIZED_DATA         = $00000080;  { Section contains uninitialized data. }
  1727.  
  1728.   {$EXTERNALSYM IMAGE_SCN_LNK_OTHER}
  1729.   IMAGE_SCN_LNK_OTHER                      = $00000100;  { Reserved. }
  1730.   {$EXTERNALSYM IMAGE_SCN_LNK_INFO}
  1731.   IMAGE_SCN_LNK_INFO                       = $00000200;  { Section contains comments or some other type of information. }
  1732. {      IMAGE_SCN_TYPE_OVER                  0x00000400  // Reserved. }
  1733.   {$EXTERNALSYM IMAGE_SCN_LNK_REMOVE}
  1734.   IMAGE_SCN_LNK_REMOVE                     = $00000800;  { Section contents will not become part of image. }
  1735.   {$EXTERNALSYM IMAGE_SCN_LNK_COMDAT}
  1736.   IMAGE_SCN_LNK_COMDAT                     = $00001000;  { Section contents comdat. }
  1737. {                                           0x00002000  // Reserved. }
  1738.  
  1739. {      IMAGE_SCN_MEM_PROTECTED - Obsolete   0x00004000 }
  1740.   {$EXTERNALSYM IMAGE_SCN_MEM_FARDATA}
  1741.   IMAGE_SCN_MEM_FARDATA                    = $00008000;
  1742. {      IMAGE_SCN_MEM_SYSHEAP  - Obsolete    0x00010000 }
  1743.   {$EXTERNALSYM IMAGE_SCN_MEM_PURGEABLE}
  1744.   IMAGE_SCN_MEM_PURGEABLE                  = $00020000;
  1745.   {$EXTERNALSYM IMAGE_SCN_MEM_16BIT}
  1746.   IMAGE_SCN_MEM_16BIT                      = $00020000;
  1747.   {$EXTERNALSYM IMAGE_SCN_MEM_LOCKED}
  1748.   IMAGE_SCN_MEM_LOCKED                     = $00040000;
  1749.   {$EXTERNALSYM IMAGE_SCN_MEM_PRELOAD}
  1750.   IMAGE_SCN_MEM_PRELOAD                    = $00080000;
  1751.  
  1752.   {$EXTERNALSYM IMAGE_SCN_ALIGN_1BYTES}
  1753.   IMAGE_SCN_ALIGN_1BYTES                   = $00100000;
  1754.   {$EXTERNALSYM IMAGE_SCN_ALIGN_2BYTES}
  1755.   IMAGE_SCN_ALIGN_2BYTES                   = $00200000;
  1756.   {$EXTERNALSYM IMAGE_SCN_ALIGN_4BYTES}
  1757.   IMAGE_SCN_ALIGN_4BYTES                   = $00300000;
  1758.   {$EXTERNALSYM IMAGE_SCN_ALIGN_8BYTES}
  1759.   IMAGE_SCN_ALIGN_8BYTES                   = $00400000;
  1760.   {$EXTERNALSYM IMAGE_SCN_ALIGN_16BYTES}
  1761.   IMAGE_SCN_ALIGN_16BYTES                  = $00500000;  { Default alignment if no others are specified. }
  1762.   {$EXTERNALSYM IMAGE_SCN_ALIGN_32BYTES}
  1763.   IMAGE_SCN_ALIGN_32BYTES                  = $00600000;
  1764.   {$EXTERNALSYM IMAGE_SCN_ALIGN_64BYTES}
  1765.   IMAGE_SCN_ALIGN_64BYTES                  = $00700000;
  1766. { Unused                                    0x00800000 }
  1767.  
  1768.   {$EXTERNALSYM IMAGE_SCN_LNK_NRELOC_OVFL}
  1769.   IMAGE_SCN_LNK_NRELOC_OVFL                = $01000000;  { Section contains extended relocations. }
  1770.   {$EXTERNALSYM IMAGE_SCN_MEM_DISCARDABLE}
  1771.   IMAGE_SCN_MEM_DISCARDABLE                = $02000000;  { Section can be discarded. }
  1772.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_CACHED}
  1773.   IMAGE_SCN_MEM_NOT_CACHED                 = $04000000;  { Section is not cachable. }
  1774.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_PAGED}
  1775.   IMAGE_SCN_MEM_NOT_PAGED                  = $08000000;  { Section is not pageable. }
  1776.   {$EXTERNALSYM IMAGE_SCN_MEM_SHARED}
  1777.   IMAGE_SCN_MEM_SHARED                     = $10000000;  { Section is shareable. }
  1778.   {$EXTERNALSYM IMAGE_SCN_MEM_EXECUTE}
  1779.   IMAGE_SCN_MEM_EXECUTE                    = $20000000;  { Section is executable. }
  1780.   {$EXTERNALSYM IMAGE_SCN_MEM_READ}
  1781.   IMAGE_SCN_MEM_READ                       = $40000000;  { Section is readable. }
  1782.   {$EXTERNALSYM IMAGE_SCN_MEM_WRITE}
  1783.   IMAGE_SCN_MEM_WRITE                      = $80000000;  { Section is writeable. }
  1784.  
  1785.  
  1786. {line 4281}
  1787. type
  1788.   PImageLoadConfigDirectory = ^TImageLoadConfigDirectory;
  1789.   {$EXTERNALSYM _IMAGE_LOAD_CONFIG_DIRECTORY}
  1790.   _IMAGE_LOAD_CONFIG_DIRECTORY = packed record
  1791.     Characteristics: DWORD;
  1792.     TimeDateStamp: DWORD;
  1793.     MajorVersion: Word;
  1794.     MinorVersion: Word;
  1795.     GlobalFlagsClear: DWORD;
  1796.     GlobalFlagsSet: DWORD;
  1797.     CriticalSectionDefaultTimeout: DWORD;
  1798.     DeCommitFreeBlockThreshold: DWORD;
  1799.     DeCommitTotalFreeThreshold: DWORD;
  1800.     LockPrefixTable: Pointer;
  1801.     MaximumAllocationSize: DWORD;
  1802.     VirtualMemoryThreshold: DWORD;
  1803.     ProcessHeapFlags: DWORD;
  1804.     ProcessAffinityMask: DWORD;
  1805.     Reserved: array[0..2] of DWORD;
  1806.   end;
  1807.   TImageLoadConfigDirectory = _IMAGE_LOAD_CONFIG_DIRECTORY;
  1808.   {$EXTERNALSYM IMAGE_LOAD_CONFIG_DIRECTORY}
  1809.   IMAGE_LOAD_CONFIG_DIRECTORY = _IMAGE_LOAD_CONFIG_DIRECTORY;
  1810.  
  1811.  
  1812. // Function table entry format for MIPS/ALPHA images.  Function table is
  1813. // pointed to by the IMAGE_DIRECTORY_ENTRY_EXCEPTION directory entry.
  1814. // This definition duplicates ones in ntmips.h and ntalpha.h for use
  1815. // by portable image file mungers.
  1816.  
  1817.   PImageRuntimeFunctionEntry = ^TImageRuntimeFunctionEntry;
  1818.   {$EXTERNALSYM _IMAGE_RUNTIME_FUNCTION_ENTRY}
  1819.   _IMAGE_RUNTIME_FUNCTION_ENTRY = record
  1820.     BeginAddress: DWORD;
  1821.     EndAddress: DWORD;
  1822.     ExceptionHandler: Pointer;
  1823.     HandlerData: Pointer;
  1824.     PrologEndAddress: DWORD;
  1825.   end;
  1826.   TImageRuntimeFunctionEntry = _IMAGE_RUNTIME_FUNCTION_ENTRY;
  1827.   {$EXTERNALSYM IMAGE_RUNTIME_FUNCTION_ENTRY}
  1828.   IMAGE_RUNTIME_FUNCTION_ENTRY = _IMAGE_RUNTIME_FUNCTION_ENTRY;
  1829.  
  1830.  
  1831. //
  1832. // Debug Format
  1833. //
  1834.  
  1835.   PImageDebugDirectory = ^TImageDebugDirectory;
  1836.   {$EXTERNALSYM _IMAGE_DEBUG_DIRECTORY}
  1837.   _IMAGE_DEBUG_DIRECTORY = packed record
  1838.     Characteristics: DWORD;
  1839.     TimeDateStamp: DWORD;
  1840.     MajorVersion: Word;
  1841.     MinorVersion: Word;
  1842.     _Type: DWORD;
  1843.     SizeOfData: DWORD;
  1844.     AddressOfRawData: DWORD;
  1845.     PointerToRawData: DWORD;
  1846.   end;
  1847.   TImageDebugDirectory = _IMAGE_DEBUG_DIRECTORY;
  1848.   {$EXTERNALSYM IMAGE_DEBUG_DIRECTORY}
  1849.   IMAGE_DEBUG_DIRECTORY = _IMAGE_DEBUG_DIRECTORY;
  1850.  
  1851.  
  1852. const
  1853.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_UNKNOWN}
  1854.   IMAGE_DEBUG_TYPE_UNKNOWN          = 0;
  1855.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_COFF}
  1856.   IMAGE_DEBUG_TYPE_COFF             = 1;
  1857.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_CODEVIEW}
  1858.   IMAGE_DEBUG_TYPE_CODEVIEW         = 2;
  1859.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_FPO}
  1860.   IMAGE_DEBUG_TYPE_FPO              = 3;
  1861.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_MISC}
  1862.   IMAGE_DEBUG_TYPE_MISC             = 4;
  1863.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_EXCEPTION}
  1864.   IMAGE_DEBUG_TYPE_EXCEPTION        = 5;
  1865.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_FIXUP}
  1866.   IMAGE_DEBUG_TYPE_FIXUP            = 6;
  1867.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_OMAP_TO_SRC}
  1868.   IMAGE_DEBUG_TYPE_OMAP_TO_SRC      = 7;
  1869.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_OMAP_FROM_SRC}
  1870.   IMAGE_DEBUG_TYPE_OMAP_FROM_SRC    = 8;
  1871.  
  1872. type
  1873.   PImageCOFFSymbolsHeader = ^TImageCOFFSymbolsHeader;
  1874.   {$EXTERNALSYM _IMAGE_COFF_SYMBOLS_HEADER}
  1875.   _IMAGE_COFF_SYMBOLS_HEADER = record
  1876.     NumberOfSymbols: DWORD;
  1877.     LvaToFirstSymbol: DWORD;
  1878.     NumberOfLinenumbers: DWORD;
  1879.     LvaToFirstLinenumber: DWORD;
  1880.     RvaToFirstByteOfCode: DWORD;
  1881.     RvaToLastByteOfCode: DWORD;
  1882.     RvaToFirstByteOfData: DWORD;
  1883.     RvaToLastByteOfData: DWORD;
  1884.   end;
  1885.   TImageCOFFSymbolsHeader = _IMAGE_COFF_SYMBOLS_HEADER;
  1886.   {$EXTERNALSYM IMAGE_COFF_SYMBOLS_HEADER}
  1887.   IMAGE_COFF_SYMBOLS_HEADER = _IMAGE_COFF_SYMBOLS_HEADER;
  1888.  
  1889.  
  1890. const
  1891.   {$EXTERNALSYM FRAME_FPO}
  1892.   FRAME_FPO       = 0;
  1893.   {$EXTERNALSYM FRAME_TRAP}
  1894.   FRAME_TRAP      = 1;
  1895.   {$EXTERNALSYM FRAME_TSS}
  1896.   FRAME_TSS       = 2;
  1897.   {$EXTERNALSYM FRAME_NONFPO}
  1898.   FRAME_NONFPO    = 3;
  1899.  
  1900. type
  1901.   PFpoData = ^TFpoData;
  1902.   {$EXTERNALSYM _FPO_DATA}
  1903.   _FPO_DATA = packed record
  1904.     ulOffStart: DWORD;             // offset 1st byte of function code
  1905.     cbProcSize: DWORD;             // # bytes in function
  1906.     cdwLocals: DWORD;              // # bytes in locals/4
  1907.     cdwParams: Word;              // # bytes in params/4
  1908. {    WORD        cbProlog : 8;           // # bytes in prolog
  1909.      WORD        cbRegs   : 3;           // # regs saved
  1910.      WORD        fHasSEH  : 1;           // TRUE if SEH in func
  1911.      WORD        fUseBP   : 1;           // TRUE if EBP has been allocated
  1912.      WORD        reserved : 1;           // reserved for future use
  1913.      WORD        cbFrame  : 2;}           // frame type
  1914.      cbProlog: Byte;
  1915.      OtherStuff: Byte;
  1916.   end;
  1917.   TFpoData = _FPO_DATA;
  1918.   {$EXTERNALSYM FPO_DATA}
  1919.   FPO_DATA = _FPO_DATA;
  1920.  
  1921.  
  1922. const
  1923.   {$EXTERNALSYM SIZEOF_RFPO_DATA}
  1924.   SIZEOF_RFPO_DATA         = 16;
  1925.   {$EXTERNALSYM IMAGE_DEBUG_MISC_EXENAME}
  1926.   IMAGE_DEBUG_MISC_EXENAME = 1;
  1927.  
  1928. type
  1929.   PImageDebugMisc = ^TImageDebugMisc;
  1930.   {$EXTERNALSYM _IMAGE_DEBUG_MISC}
  1931.   _IMAGE_DEBUG_MISC = packed record
  1932.     DataType: DWORD;               // type of misc data, see defines
  1933.     Length: DWORD;                 // total length of record, rounded to four
  1934.                                    // byte multiple.
  1935.     Unicode: ByteBool;             // TRUE if data is unicode string
  1936.     Reserved: array[0..2] of Byte;
  1937.     Data: array[0..0] of Byte;     // Actual data
  1938.   end;
  1939.   TImageDebugMisc = _IMAGE_DEBUG_MISC;
  1940.   {$EXTERNALSYM IMAGE_DEBUG_MISC}
  1941.   IMAGE_DEBUG_MISC = _IMAGE_DEBUG_MISC;
  1942.  
  1943.  
  1944. //
  1945. // Function table extracted from MIPS/ALPHA images.  Does not contain
  1946. // information needed only for runtime support.  Just those fields for
  1947. // each entry needed by a debugger.
  1948. //
  1949.   PImageFunctionEntry = ^TImageFunctionEntry;
  1950.   {$EXTERNALSYM _IMAGE_FUNCTION_ENTRY}
  1951.   _IMAGE_FUNCTION_ENTRY = record
  1952.     StartingAddress: DWORD;
  1953.     EndingAddress: DWORD;
  1954.     EndOfPrologue: DWORD;
  1955.   end;
  1956.   TImageFunctionEntry = _IMAGE_FUNCTION_ENTRY;
  1957.   {$EXTERNALSYM IMAGE_FUNCTION_ENTRY}
  1958.   IMAGE_FUNCTION_ENTRY = _IMAGE_FUNCTION_ENTRY;
  1959.  
  1960.  
  1961. {line 4587}
  1962. type
  1963.   PRTLCriticalSection = ^TRTLCriticalSection;
  1964.   PRTLCriticalSectionDebug = ^TRTLCriticalSectionDebug;
  1965.   {$EXTERNALSYM _RTL_CRITICAL_SECTION_DEBUG}
  1966.   _RTL_CRITICAL_SECTION_DEBUG = record
  1967.     Type_18: Word;
  1968.     CreatorBackTraceIndex: Word;
  1969.     CriticalSection: PRTLCriticalSection;
  1970.     ProcessLocksList: TListEntry;
  1971.     EntryCount: DWORD;
  1972.     ContentionCount: DWORD;
  1973.     Spare: array[0..1] of DWORD;
  1974.   end;
  1975.   TRTLCriticalSectionDebug = _RTL_CRITICAL_SECTION_DEBUG;
  1976.   {$EXTERNALSYM RTL_CRITICAL_SECTION_DEBUG}
  1977.   RTL_CRITICAL_SECTION_DEBUG = _RTL_CRITICAL_SECTION_DEBUG;
  1978.  
  1979.  
  1980.   {$EXTERNALSYM _RTL_CRITICAL_SECTION}
  1981.   _RTL_CRITICAL_SECTION = record
  1982.     DebugInfo: PRTLCriticalSectionDebug;
  1983.     LockCount: Longint;
  1984.     RecursionCount: Longint;
  1985.     OwningThread: THandle;
  1986.     LockSemaphore: THandle;
  1987.     Reserved: DWORD;
  1988.   end;
  1989.   TRTLCriticalSection = _RTL_CRITICAL_SECTION;
  1990.   {$EXTERNALSYM RTL_CRITICAL_SECTION}
  1991.   RTL_CRITICAL_SECTION = _RTL_CRITICAL_SECTION;
  1992.  
  1993. const
  1994.   {$EXTERNALSYM RTL_CRITSECT_TYPE}
  1995.   RTL_CRITSECT_TYPE = 0;
  1996.   {$EXTERNALSYM RTL_RESOURCE_TYPE}
  1997.   RTL_RESOURCE_TYPE = 1;
  1998.  
  1999.  
  2000.   {$EXTERNALSYM DLL_PROCESS_ATTACH}
  2001.   DLL_PROCESS_ATTACH = 1;
  2002.   {$EXTERNALSYM DLL_THREAD_ATTACH}
  2003.   DLL_THREAD_ATTACH = 2;
  2004.   {$EXTERNALSYM DLL_THREAD_DETACH}
  2005.   DLL_THREAD_DETACH = 3;
  2006.   {$EXTERNALSYM DLL_PROCESS_DETACH}
  2007.   DLL_PROCESS_DETACH = 0;
  2008.  
  2009. {line 4700}
  2010.  
  2011. { Registry Specific Access Rights. }
  2012.  
  2013.   {$EXTERNALSYM KEY_QUERY_VALUE}
  2014.   KEY_QUERY_VALUE    = $0001;
  2015.   {$EXTERNALSYM KEY_SET_VALUE}
  2016.   KEY_SET_VALUE      = $0002;
  2017.   {$EXTERNALSYM KEY_CREATE_SUB_KEY}
  2018.   KEY_CREATE_SUB_KEY = $0004;
  2019.   {$EXTERNALSYM KEY_ENUMERATE_SUB_KEYS}
  2020.   KEY_ENUMERATE_SUB_KEYS = $0008;
  2021.   {$EXTERNALSYM KEY_NOTIFY}
  2022.   KEY_NOTIFY         = $0010;
  2023.   {$EXTERNALSYM KEY_CREATE_LINK}
  2024.   KEY_CREATE_LINK    = $0020;
  2025.  
  2026.  
  2027.   {$EXTERNALSYM KEY_READ}
  2028.   KEY_READ           = (STANDARD_RIGHTS_READ or
  2029.                         KEY_QUERY_VALUE or
  2030.                         KEY_ENUMERATE_SUB_KEYS or
  2031.                         KEY_NOTIFY) and not
  2032.                         SYNCHRONIZE;
  2033.  
  2034.  
  2035.  
  2036.   {$EXTERNALSYM KEY_WRITE}
  2037.   KEY_WRITE          = (STANDARD_RIGHTS_WRITE or
  2038.                         KEY_SET_VALUE or
  2039.                         KEY_CREATE_SUB_KEY) and not
  2040.                         SYNCHRONIZE;
  2041.  
  2042.   {$EXTERNALSYM KEY_EXECUTE}
  2043.   KEY_EXECUTE        =  KEY_READ and not SYNCHRONIZE;
  2044.  
  2045.  
  2046.   {$EXTERNALSYM KEY_ALL_ACCESS}
  2047.   KEY_ALL_ACCESS     = (STANDARD_RIGHTS_ALL or
  2048.                         KEY_QUERY_VALUE or
  2049.                         KEY_SET_VALUE or
  2050.                         KEY_CREATE_SUB_KEY or
  2051.                         KEY_ENUMERATE_SUB_KEYS or
  2052.                         KEY_NOTIFY or
  2053.                         KEY_CREATE_LINK) and not
  2054.                         SYNCHRONIZE;
  2055.  
  2056.   { Registry Open/Create Options }
  2057.  
  2058.   {$EXTERNALSYM REG_OPTION_RESERVED}
  2059.   REG_OPTION_RESERVED     = ($00000000);    { Parameter is reserved }
  2060.  
  2061.   {$EXTERNALSYM REG_OPTION_NON_VOLATILE}
  2062.   REG_OPTION_NON_VOLATILE = ($00000000);    { Key is preserved }
  2063.                                             { when system is rebooted }
  2064.  
  2065.   {$EXTERNALSYM REG_OPTION_VOLATILE}
  2066.   REG_OPTION_VOLATILE     = ($00000001);    { Key is not preserved }
  2067.                                             { when system is rebooted }
  2068.  
  2069.   {$EXTERNALSYM REG_OPTION_CREATE_LINK}
  2070.   REG_OPTION_CREATE_LINK  = ($00000002);    { Created key is a }
  2071.                                             { symbolic link }
  2072.  
  2073.   {$EXTERNALSYM REG_OPTION_BACKUP_RESTORE}
  2074.   REG_OPTION_BACKUP_RESTORE = ($00000004);  { open for backup or restore }
  2075.                                             { special access rules }
  2076.                                             { privilege required   }
  2077.  
  2078.   {$EXTERNALSYM REG_LEGAL_OPTION}
  2079.   REG_LEGAL_OPTION  = (REG_OPTION_RESERVED or
  2080.                        REG_OPTION_NON_VOLATILE or
  2081.                        REG_OPTION_VOLATILE or
  2082.                        REG_OPTION_CREATE_LINK or
  2083.                        REG_OPTION_BACKUP_RESTORE);
  2084.  
  2085.   { Registry Key creation/open disposition }
  2086.  
  2087.   {$EXTERNALSYM REG_CREATED_NEW_KEY}
  2088.   REG_CREATED_NEW_KEY     = ($00000001);    { New Registry Key created }
  2089.   {$EXTERNALSYM REG_OPENED_EXISTING_KEY}
  2090.   REG_OPENED_EXISTING_KEY = ($00000002);    { Existing Key opened }
  2091.  
  2092.   { Registry Key restore flags }
  2093.  
  2094.   {$EXTERNALSYM REG_WHOLE_HIVE_VOLATILE}
  2095.   REG_WHOLE_HIVE_VOLATILE = ($00000001);    { Restore whole hive volatile }
  2096.   {$EXTERNALSYM REG_REFRESH_HIVE}
  2097.   REG_REFRESH_HIVE        = ($00000002);    { Unwind changes to last flush }
  2098.  
  2099.   { Registry Notify filter values }
  2100.  
  2101.   {$EXTERNALSYM REG_NOTIFY_CHANGE_NAME}
  2102.   REG_NOTIFY_CHANGE_NAME       = ($00000001); { Create or delete (child) }
  2103.   {$EXTERNALSYM REG_NOTIFY_CHANGE_ATTRIBUTES}
  2104.   REG_NOTIFY_CHANGE_ATTRIBUTES = ($00000002);
  2105.   {$EXTERNALSYM REG_NOTIFY_CHANGE_LAST_SET}
  2106.   REG_NOTIFY_CHANGE_LAST_SET   = ($00000004); { time stamp }
  2107.   {$EXTERNALSYM REG_NOTIFY_CHANGE_SECURITY}
  2108.   REG_NOTIFY_CHANGE_SECURITY   = ($00000008);
  2109.  
  2110.   {$EXTERNALSYM REG_LEGAL_CHANGE_FILTER}
  2111.   REG_LEGAL_CHANGE_FILTER = (REG_OPTION_RESERVED or
  2112.                              REG_NOTIFY_CHANGE_NAME or
  2113.                              REG_NOTIFY_CHANGE_ATTRIBUTES or
  2114.                              REG_NOTIFY_CHANGE_LAST_SET or
  2115.                              REG_NOTIFY_CHANGE_SECURITY);
  2116.  
  2117.   { Registry Predefined Value Types }
  2118.  
  2119.   {$EXTERNALSYM REG_NONE}
  2120.   REG_NONE                    = 0;
  2121.   {$EXTERNALSYM REG_SZ}
  2122.   REG_SZ                      = 1;
  2123.   {$EXTERNALSYM REG_EXPAND_SZ}
  2124.   REG_EXPAND_SZ               = 2;
  2125.   {$EXTERNALSYM REG_BINARY}
  2126.   REG_BINARY                  = 3;
  2127.   {$EXTERNALSYM REG_DWORD}
  2128.   REG_DWORD                   = 4;
  2129.   {$EXTERNALSYM REG_DWORD_LITTLE_ENDIAN}
  2130.   REG_DWORD_LITTLE_ENDIAN     = 4;
  2131.   {$EXTERNALSYM REG_DWORD_BIG_ENDIAN}
  2132.   REG_DWORD_BIG_ENDIAN        = 5;
  2133.   {$EXTERNALSYM REG_LINK}
  2134.   REG_LINK                    = 6;
  2135.   {$EXTERNALSYM REG_MULTI_SZ}
  2136.   REG_MULTI_SZ                = 7;
  2137.   {$EXTERNALSYM REG_RESOURCE_LIST}
  2138.   REG_RESOURCE_LIST           = 8;
  2139.   {$EXTERNALSYM REG_FULL_RESOURCE_DESCRIPTOR}
  2140.   REG_FULL_RESOURCE_DESCRIPTOR = 9;
  2141.   {$EXTERNALSYM REG_RESOURCE_REQUIREMENTS_LIST}
  2142.   REG_RESOURCE_REQUIREMENTS_LIST = 10;
  2143.  
  2144. { END Translated from WINNT.H }
  2145.  
  2146. type
  2147.   {$EXTERNALSYM WPARAM}
  2148.   WPARAM = Longint;
  2149.   {$EXTERNALSYM LPARAM}
  2150.   LPARAM = Longint;
  2151.   {$EXTERNALSYM LRESULT}
  2152.   LRESULT = Longint;
  2153.  
  2154. function MakeWord(a, b: Byte): Word;
  2155. function MakeLong(a, b: Word): Longint;
  2156.  
  2157. type
  2158.   {$EXTERNALSYM LOWORD}
  2159.   LOWORD = Word;
  2160.  
  2161. function HiWord(l: DWORD): Word;
  2162.  
  2163. type
  2164.   {$EXTERNALSYM LOBYTE}
  2165.   LOBYTE = Byte;
  2166.  
  2167. function HiByte(W: Word): Byte;
  2168.  
  2169. type
  2170. {$IFDEF STRICT}
  2171. { Standard Handle Declarations }
  2172. {   XXXX__ records are used to ensure the handle has a unique type that is }
  2173. {   not compatible with other types.  }
  2174.  
  2175.   HWND__ = record
  2176.     unused: BOOL;
  2177.   end;
  2178.   {$EXTERNALSYM HWND}
  2179.   HWND = ^HWND__;
  2180.   HHOOK__ = record
  2181.     unused: BOOL;
  2182.   end;
  2183.   {$EXTERNALSYM HHOOK}
  2184.   HHOOK = ^HHOOK__;
  2185. {$ELSE}
  2186.   {$EXTERNALSYM HWND}
  2187.   HWND = type Integer;
  2188.   {$EXTERNALSYM HHOOK}
  2189.   HHOOK = type Integer;
  2190. {$ENDIF}
  2191.  
  2192.   {$EXTERNALSYM ATOM}
  2193.   ATOM = Word;
  2194.   TAtom = Word;
  2195.  
  2196.   {$EXTERNALSYM HGLOBAL}
  2197.   HGLOBAL = THandle;
  2198.   {$EXTERNALSYM HLOCAL}
  2199.   HLOCAL = THandle;
  2200.   {$EXTERNALSYM FARPROC}
  2201.   FARPROC = Pointer;
  2202.   TFarProc = Pointer;
  2203.   PROC_22 = Pointer;
  2204.  
  2205. {$IFDEF STRICT}
  2206.   {$EXTERNALSYM HGDIOBJ}
  2207.   HGDIOBJ = Pointer;
  2208.  
  2209.   HACCEL__ = record
  2210.     unused: BOOL;
  2211.   end;
  2212.   {$EXTERNALSYM HACCEL}
  2213.   HACCEL = ^HACCEL__;
  2214.   HBITMAP__ = record
  2215.     unused: BOOL;
  2216.   end;
  2217.   {$EXTERNALSYM HBITMAP}
  2218.   HBITMAP = ^HBITMAP__;
  2219.   HBRUSH__ = record
  2220.     unused: BOOL;
  2221.   end;
  2222.   {$EXTERNALSYM HBRUSH}
  2223.   HBRUSH = ^HBRUSH__;
  2224.   HCOLORSPACE__ = record
  2225.     unused: BOOL;
  2226.   end;
  2227.   {$EXTERNALSYM HCOLORSPACE}
  2228.   HCOLORSPACE = ^HCOLORSPACE__;
  2229.   HDC__ = record
  2230.     unused: BOOL;
  2231.   end;
  2232.   {$EXTERNALSYM HDC}
  2233.   HDC = ^HDC__;
  2234.   HGLRC__ = record
  2235.     unused: BOOL;
  2236.   end;
  2237.   {$EXTERNALSYM HGLRC}
  2238.   HGLRC = ^HGLRC__;              {OpenGL}
  2239.   HDESK__ = record
  2240.     unused: BOOL;
  2241.   end;
  2242.   {$EXTERNALSYM HDESK}
  2243.   HDESK = ^HDESK__;
  2244.   HENHMETAFILE__ = record
  2245.     unused: BOOL;
  2246.   end;
  2247.   {$EXTERNALSYM HENHMETAFILE}
  2248.   HENHMETAFILE = ^HENHMETAFILE__;
  2249.   HFONT__ = record
  2250.     unused: BOOL;
  2251.   end;
  2252.   {$EXTERNALSYM HFONT}
  2253.   HFONT = ^HFONT__;
  2254.   HICON__ = record
  2255.     unused: BOOL;
  2256.   end;
  2257.   {$EXTERNALSYM HICON}
  2258.   HICON = ^HICON__;
  2259.   HMENU__ = record
  2260.     unused: BOOL;
  2261.   end;
  2262.   {$EXTERNALSYM HMENU}
  2263.   HMENU = ^HMENU__;
  2264.   HMETAFILE__ = record
  2265.     unused: BOOL;
  2266.   end;
  2267.   {$EXTERNALSYM HMETAFILE}
  2268.   HMETAFILE = ^HMETAFILE__;
  2269.   HINSTANCE__ = record
  2270.     unused: BOOL;
  2271.   end;
  2272.   HINST = ^HINSTANCE__;
  2273.   {$EXTERNALSYM HMODULE}
  2274.   HMODULE = HINST;              { HMODULEs can be used in place of HINSTs }
  2275.   HPALETTE__ = record
  2276.     unused: BOOL;
  2277.   end;
  2278.   {$EXTERNALSYM HPALETTE}
  2279.   HPALETTE = ^HPALETTE__;
  2280.   HPEN__ = record
  2281.     unused: BOOL;
  2282.   end;
  2283.   {$EXTERNALSYM HPEN}
  2284.   HPEN = ^HPEN__;
  2285.   HRGN__ = record
  2286.     unused: BOOL;
  2287.   end;
  2288.   {$EXTERNALSYM HRGN}
  2289.   HRGN = ^HRGN__;
  2290.   HRSRC__ = record
  2291.     unused: BOOL;
  2292.   end;
  2293.   {$EXTERNALSYM HRSRC}
  2294.   HRSRC = ^HRSRC__;
  2295.   HSTR__ = record
  2296.     unused: BOOL;
  2297.   end;
  2298.   {$EXTERNALSYM HSTR}
  2299.   HSTR = ^HSTR__;
  2300.   HTASK__ = record
  2301.     unused: BOOL;
  2302.   end;
  2303.   {$EXTERNALSYM HTASK}
  2304.   HTASK = ^HTASK__;
  2305.   HWINSTA__ = record
  2306.     unused: BOOL;
  2307.   end;
  2308.   {$EXTERNALSYM HWINSTA}
  2309.   HWINSTA = ^HWINSTA__;
  2310.   HKL__ = record
  2311.     unused: BOOL;
  2312.   end;
  2313.   {$EXTERNALSYM HKL}
  2314.   HKL = ^HKL__;
  2315.  
  2316. {$ELSE}
  2317.  
  2318.   {$EXTERNALSYM HGDIOBJ}
  2319.   HGDIOBJ = type Integer;
  2320.   {$EXTERNALSYM HACCEL}
  2321.   HACCEL = type Integer;
  2322.   {$EXTERNALSYM HBITMAP}
  2323.   HBITMAP = type Integer;
  2324.   {$EXTERNALSYM HBRUSH}
  2325.   HBRUSH = type Integer;
  2326.   {$EXTERNALSYM HCOLORSPACE}
  2327.   HCOLORSPACE = type Integer;
  2328.   {$EXTERNALSYM HDC}
  2329.   HDC = type Integer;
  2330.   {$EXTERNALSYM HGLRC}
  2331.   HGLRC = type Integer;
  2332.   {$EXTERNALSYM HDESK}
  2333.   HDESK = type Integer;
  2334.   {$EXTERNALSYM HENHMETAFILE}
  2335.   HENHMETAFILE = type Integer;
  2336.   {$EXTERNALSYM HFONT}
  2337.   HFONT = type Integer;
  2338.   {$EXTERNALSYM HICON}
  2339.   HICON = type Integer;
  2340.   {$EXTERNALSYM HMENU}
  2341.   HMENU = type Integer;
  2342.   {$EXTERNALSYM HMETAFILE}
  2343.   HMETAFILE = type Integer;
  2344.   HINST = type Integer;
  2345.   {$EXTERNALSYM HMODULE}
  2346.   HMODULE = HINST;              { HMODULEs can be used in place of HINSTs }
  2347.   {$EXTERNALSYM HPALETTE}
  2348.   HPALETTE = type Integer;
  2349.   {$EXTERNALSYM HPEN}
  2350.   HPEN = type Integer;
  2351.   {$EXTERNALSYM HRGN}
  2352.   HRGN = type Integer;
  2353.   {$EXTERNALSYM HRSRC}
  2354.   HRSRC = type Integer;
  2355.   {$EXTERNALSYM HSTR}
  2356.   HSTR = type Integer;
  2357.   {$EXTERNALSYM HTASK}
  2358.   HTASK = type Integer;
  2359.   {$EXTERNALSYM HWINSTA}
  2360.   HWINSTA = type Integer;
  2361.   {$EXTERNALSYM HKL}
  2362.   HKL = type Integer;
  2363.  
  2364. {$ENDIF}
  2365.  
  2366.   {$EXTERNALSYM HFILE}
  2367.   HFILE = Integer;
  2368.   {$EXTERNALSYM HCURSOR}
  2369.   HCURSOR = HICON;              { HICONs & HCURSORs are polymorphic }
  2370.  
  2371.   {$EXTERNALSYM COLORREF}
  2372.   COLORREF = DWORD;
  2373.   TColorRef = Longint;
  2374.  
  2375. const
  2376.   {$EXTERNALSYM HFILE_ERROR}
  2377.   HFILE_ERROR = HFILE(-1);
  2378.  
  2379. type
  2380.   PPoint = ^TPoint;
  2381.   {$EXTERNALSYM tagPOINT}
  2382.   tagPOINT = record
  2383.     x: Longint;
  2384.     y: Longint;
  2385.   end;
  2386.   TPoint = tagPOINT;
  2387.  
  2388.   PRect = ^TRect;
  2389.  
  2390.   TRect = record
  2391.     case Integer of
  2392.       0: (Left, Top, Right, Bottom: Integer);
  2393.       1: (TopLeft, BottomRight: TPoint);
  2394.   end;
  2395.   {$NODEFINE TRect}
  2396.  
  2397.   (*$HPPEMIT 'namespace Windows'*)
  2398.   (*$HPPEMIT '{'*)
  2399.   (*$HPPEMIT '  struct TRect'*)
  2400.   (*$HPPEMIT '  {'*)
  2401.   (*$HPPEMIT '          TRect() {}'*)
  2402.   (*$HPPEMIT '          TRect(RECT& r)'*)
  2403.   (*$HPPEMIT '          {'*)
  2404.   (*$HPPEMIT '                  Left    = r.left;'*)
  2405.   (*$HPPEMIT '                  Top     = r.top;'*)
  2406.   (*$HPPEMIT '                  Right   = r.right;'*)
  2407.   (*$HPPEMIT '                  Bottom  = r.bottom;'*)
  2408.   (*$HPPEMIT '          }'*)
  2409.   (*$HPPEMIT '          operator RECT()'*)
  2410.   (*$HPPEMIT '          {'*)
  2411.   (*$HPPEMIT '                  RECT r;'*)
  2412.   (*$HPPEMIT '                  r.left     = Left;'*)
  2413.   (*$HPPEMIT '                  r.top      = Top;'*)
  2414.   (*$HPPEMIT '                  r.right    = Right;'*)
  2415.   (*$HPPEMIT '                  r.bottom   = Bottom;'*)
  2416.   (*$HPPEMIT '                  return r;'*)
  2417.   (*$HPPEMIT '          }'*)
  2418.   (*$HPPEMIT '          union'*)
  2419.   (*$HPPEMIT '          {'*)
  2420.   (*$HPPEMIT '                  struct'*)
  2421.   (*$HPPEMIT '                  {'*)
  2422.   (*$HPPEMIT '                          POINT TopLeft;'*)
  2423.   (*$HPPEMIT '                          POINT BottomRight;'*)
  2424.   (*$HPPEMIT '                  };'*)
  2425.   (*$HPPEMIT '                  struct'*)
  2426.   (*$HPPEMIT '                  {'*)
  2427.   (*$HPPEMIT '                          int Left;'*)
  2428.   (*$HPPEMIT '                          int Top;'*)
  2429.   (*$HPPEMIT '                          int Right;'*)
  2430.   (*$HPPEMIT '                          int Bottom;'*)
  2431.   (*$HPPEMIT '                  };'*)
  2432.   (*$HPPEMIT '          };'*)
  2433.   (*$HPPEMIT '  };'*)
  2434.   (*$HPPEMIT '} /* namespace Windows */'*)
  2435.  
  2436.   PSize = ^TSize;
  2437.   {$EXTERNALSYM tagSIZE}
  2438.   tagSIZE = record
  2439.     cx: Longint;
  2440.     cy: Longint;
  2441.   end;
  2442.   TSize = tagSIZE;
  2443.   {$EXTERNALSYM SIZE}
  2444.   SIZE = tagSIZE;
  2445.  
  2446.   PSmallPoint = ^TSmallPoint;
  2447.   TSmallPoint = record
  2448.     x: SHORT;
  2449.     y: SHORT;
  2450.   end;
  2451.  
  2452. { Translated from WINBASE.H }
  2453.  
  2454. { Compatiblity functions and procedures }
  2455.  
  2456. {$EXTERNALSYM DefineHandleTable}
  2457. function DefineHandleTable(Offset: Word): Bool;
  2458. {$EXTERNALSYM LimitEmsPages}
  2459. procedure LimitEmsPages(Kbytes: Longint);
  2460. {$EXTERNALSYM SetSwapAreaSize}
  2461. function SetSwapAreaSize(Size: Word): Longint;
  2462. {$EXTERNALSYM LockSegment}
  2463. procedure LockSegment(Segment: THandle);
  2464. {$EXTERNALSYM UnlockSegment}
  2465. procedure UnlockSegment(Segment: THandle);
  2466. {$EXTERNALSYM GetCurrentTime}
  2467. function GetCurrentTime: Longint;
  2468. {$EXTERNALSYM Yield}
  2469. function Yield: Bool;
  2470.  
  2471. const
  2472.   {$EXTERNALSYM INVALID_HANDLE_VALUE}
  2473.   INVALID_HANDLE_VALUE = -1;
  2474.   {$EXTERNALSYM INVALID_FILE_SIZE}
  2475.   INVALID_FILE_SIZE = DWORD($FFFFFFFF);
  2476.  
  2477.   {$EXTERNALSYM FILE_BEGIN}
  2478.   FILE_BEGIN = 0;
  2479.   {$EXTERNALSYM FILE_CURRENT}
  2480.   FILE_CURRENT = 1;
  2481.   {$EXTERNALSYM FILE_END}
  2482.   FILE_END = 2;
  2483.  
  2484.   {$EXTERNALSYM TIME_ZONE_ID_INVALID}
  2485.   TIME_ZONE_ID_INVALID = DWORD($FFFFFFFF);
  2486.  
  2487.   {$EXTERNALSYM WAIT_FAILED}
  2488.   WAIT_FAILED  = DWORD($FFFFFFFF);
  2489.   {$EXTERNALSYM WAIT_OBJECT_0}
  2490.   WAIT_OBJECT_0 = ((STATUS_WAIT_0 ) + 0 );
  2491.  
  2492.   {$EXTERNALSYM WAIT_ABANDONED}
  2493.   WAIT_ABANDONED = ((STATUS_ABANDONED_WAIT_0 ) + 0 );
  2494.   {$EXTERNALSYM WAIT_ABANDONED_0}
  2495.   WAIT_ABANDONED_0 = ((STATUS_ABANDONED_WAIT_0 ) + 0 );
  2496.  
  2497.   {$EXTERNALSYM WAIT_TIMEOUT}
  2498.   WAIT_TIMEOUT = STATUS_TIMEOUT;
  2499.   {$EXTERNALSYM WAIT_IO_COMPLETION}
  2500.   WAIT_IO_COMPLETION = STATUS_USER_APC;
  2501.   {$EXTERNALSYM STILL_ACTIVE}
  2502.   STILL_ACTIVE = STATUS_PENDING;
  2503.   {$EXTERNALSYM EXCEPTION_ACCESS_VIOLATION}
  2504.   EXCEPTION_ACCESS_VIOLATION = STATUS_ACCESS_VIOLATION;
  2505.   {$EXTERNALSYM EXCEPTION_DATATYPE_MISALIGNMENT}
  2506.   EXCEPTION_DATATYPE_MISALIGNMENT = STATUS_DATATYPE_MISALIGNMENT;
  2507.   {$EXTERNALSYM EXCEPTION_BREAKPOINT}
  2508.   EXCEPTION_BREAKPOINT = STATUS_BREAKPOINT;
  2509.   {$EXTERNALSYM EXCEPTION_SINGLE_STEP}
  2510.   EXCEPTION_SINGLE_STEP = STATUS_SINGLE_STEP;
  2511.   {$EXTERNALSYM EXCEPTION_ARRAY_BOUNDS_EXCEEDED}
  2512.   EXCEPTION_ARRAY_BOUNDS_EXCEEDED = STATUS_ARRAY_BOUNDS_EXCEEDED;
  2513.   {$EXTERNALSYM EXCEPTION_FLT_DENORMAL_OPERAND}
  2514.   EXCEPTION_FLT_DENORMAL_OPERAND = STATUS_FLOAT_DENORMAL_OPERAND;
  2515.   {$EXTERNALSYM EXCEPTION_FLT_DIVIDE_BY_ZERO}
  2516.   EXCEPTION_FLT_DIVIDE_BY_ZERO = STATUS_FLOAT_DIVIDE_BY_ZERO;
  2517.   {$EXTERNALSYM EXCEPTION_FLT_INEXACT_RESULT}
  2518.   EXCEPTION_FLT_INEXACT_RESULT = STATUS_FLOAT_INEXACT_RESULT;
  2519.   {$EXTERNALSYM EXCEPTION_FLT_INVALID_OPERATION}
  2520.   EXCEPTION_FLT_INVALID_OPERATION = STATUS_FLOAT_INVALID_OPERATION;
  2521.   {$EXTERNALSYM EXCEPTION_FLT_OVERFLOW}
  2522.   EXCEPTION_FLT_OVERFLOW = STATUS_FLOAT_OVERFLOW;
  2523.   {$EXTERNALSYM EXCEPTION_FLT_STACK_CHECK}
  2524.   EXCEPTION_FLT_STACK_CHECK = STATUS_FLOAT_STACK_CHECK;
  2525.   {$EXTERNALSYM EXCEPTION_FLT_UNDERFLOW}
  2526.   EXCEPTION_FLT_UNDERFLOW = STATUS_FLOAT_UNDERFLOW;
  2527.   {$EXTERNALSYM EXCEPTION_INT_DIVIDE_BY_ZERO}
  2528.   EXCEPTION_INT_DIVIDE_BY_ZERO = STATUS_INTEGER_DIVIDE_BY_ZERO;
  2529.   {$EXTERNALSYM EXCEPTION_INT_OVERFLOW}
  2530.   EXCEPTION_INT_OVERFLOW = STATUS_INTEGER_OVERFLOW;
  2531.   {$EXTERNALSYM EXCEPTION_PRIV_INSTRUCTION}
  2532.   EXCEPTION_PRIV_INSTRUCTION = STATUS_PRIVILEGED_INSTRUCTION;
  2533.   {$EXTERNALSYM EXCEPTION_IN_PAGE_ERROR}
  2534.   EXCEPTION_IN_PAGE_ERROR = STATUS_IN_PAGE_ERROR;
  2535.   {$EXTERNALSYM EXCEPTION_ILLEGAL_INSTRUCTION}
  2536.   EXCEPTION_ILLEGAL_INSTRUCTION = STATUS_ILLEGAL_INSTRUCTION;
  2537.   {$EXTERNALSYM EXCEPTION_NONCONTINUABLE_EXCEPTION}
  2538.   EXCEPTION_NONCONTINUABLE_EXCEPTION = STATUS_NONCONTINUABLE_EXCEPTION;
  2539.   {$EXTERNALSYM EXCEPTION_STACK_OVERFLOW}
  2540.   EXCEPTION_STACK_OVERFLOW = STATUS_STACK_OVERFLOW;
  2541.   {$EXTERNALSYM EXCEPTION_INVALID_DISPOSITION}
  2542.   EXCEPTION_INVALID_DISPOSITION = STATUS_INVALID_DISPOSITION;
  2543.   {$EXTERNALSYM EXCEPTION_GUARD_PAGE}
  2544.   EXCEPTION_GUARD_PAGE = STATUS_GUARD_PAGE_VIOLATION;
  2545.   {$EXTERNALSYM EXCEPTION_INVALID_HANDLE}
  2546.   EXCEPTION_INVALID_HANDLE = STATUS_INVALID_HANDLE;
  2547.   {$EXTERNALSYM CONTROL_C_EXIT}
  2548.   CONTROL_C_EXIT = STATUS_CONTROL_C_EXIT;
  2549.  
  2550. {$EXTERNALSYM MoveMemory}
  2551. procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
  2552. {$EXTERNALSYM CopyMemory}
  2553. procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
  2554. {$EXTERNALSYM FillMemory}
  2555. procedure FillMemory(Destination: Pointer; Length: DWORD; Fill: Byte);
  2556. {$EXTERNALSYM ZeroMemory}
  2557. procedure ZeroMemory(Destination: Pointer; Length: DWORD);
  2558.  
  2559. const
  2560.   { File creation flags must start at the high end since they }
  2561.   { are combined with the attributes}
  2562.  
  2563.   {$EXTERNALSYM FILE_FLAG_WRITE_THROUGH}
  2564.   FILE_FLAG_WRITE_THROUGH = $80000000;
  2565.   {$EXTERNALSYM FILE_FLAG_OVERLAPPED}
  2566.   FILE_FLAG_OVERLAPPED = $40000000;
  2567.   {$EXTERNALSYM FILE_FLAG_NO_BUFFERING}
  2568.   FILE_FLAG_NO_BUFFERING = $20000000;
  2569.   {$EXTERNALSYM FILE_FLAG_RANDOM_ACCESS}
  2570.   FILE_FLAG_RANDOM_ACCESS = $10000000;
  2571.   {$EXTERNALSYM FILE_FLAG_SEQUENTIAL_SCAN}
  2572.   FILE_FLAG_SEQUENTIAL_SCAN = $8000000;
  2573.   {$EXTERNALSYM FILE_FLAG_DELETE_ON_CLOSE}
  2574.   FILE_FLAG_DELETE_ON_CLOSE = $4000000;
  2575.   {$EXTERNALSYM FILE_FLAG_BACKUP_SEMANTICS}
  2576.   FILE_FLAG_BACKUP_SEMANTICS = $2000000;
  2577.   {$EXTERNALSYM FILE_FLAG_POSIX_SEMANTICS}
  2578.   FILE_FLAG_POSIX_SEMANTICS = $1000000;
  2579.  
  2580.   {$EXTERNALSYM CREATE_NEW}
  2581.   CREATE_NEW = 1;
  2582.   {$EXTERNALSYM CREATE_ALWAYS}
  2583.   CREATE_ALWAYS = 2;
  2584.   {$EXTERNALSYM OPEN_EXISTING}
  2585.   OPEN_EXISTING = 3;
  2586.   {$EXTERNALSYM OPEN_ALWAYS}
  2587.   OPEN_ALWAYS = 4;
  2588.   {$EXTERNALSYM TRUNCATE_EXISTING}
  2589.   TRUNCATE_EXISTING = 5;
  2590.  
  2591.  
  2592. { Define possible return codes from the CopyFileEx callback routine }
  2593.  
  2594.   {$EXTERNALSYM PROGRESS_CONTINUE}
  2595.   PROGRESS_CONTINUE = 0;
  2596.   {$EXTERNALSYM PROGRESS_CANCEL}
  2597.   PROGRESS_CANCEL = 1;
  2598.   {$EXTERNALSYM PROGRESS_STOP}
  2599.   PROGRESS_STOP = 2;
  2600.   {$EXTERNALSYM PROGRESS_QUIET}
  2601.   PROGRESS_QUIET = 3;
  2602.  
  2603.  
  2604. { Define CopyFileEx callback routine state change values }
  2605.  
  2606.   {$EXTERNALSYM CALLBACK_CHUNK_FINISHED}
  2607.   CALLBACK_CHUNK_FINISHED = $00000000;
  2608.   {$EXTERNALSYM CALLBACK_STREAM_SWITCH}
  2609.   CALLBACK_STREAM_SWITCH = $00000001;
  2610.  
  2611.  
  2612. { Define CopyFileEx option flags }
  2613.  
  2614.   {$EXTERNALSYM COPY_FILE_FAIL_IF_EXISTS}
  2615.   COPY_FILE_FAIL_IF_EXISTS = $00000001;
  2616.   {$EXTERNALSYM COPY_FILE_RESTARTABLE}
  2617.   COPY_FILE_RESTARTABLE = $00000002;
  2618.  
  2619.  
  2620. { Define the NamedPipe definitions}
  2621.  
  2622.   { Define the dwOpenMode values for CreateNamedPipe }
  2623.  
  2624.   {$EXTERNALSYM PIPE_ACCESS_INBOUND}
  2625.   PIPE_ACCESS_INBOUND = 1;
  2626.   {$EXTERNALSYM PIPE_ACCESS_OUTBOUND}
  2627.   PIPE_ACCESS_OUTBOUND = 2;
  2628.   {$EXTERNALSYM PIPE_ACCESS_DUPLEX}
  2629.   PIPE_ACCESS_DUPLEX = 3;
  2630.  
  2631.   { Define the Named Pipe End flags for GetNamedPipeInfo }
  2632.  
  2633.   {$EXTERNALSYM PIPE_CLIENT_END}
  2634.   PIPE_CLIENT_END = 0;
  2635.   {$EXTERNALSYM PIPE_SERVER_END}
  2636.   PIPE_SERVER_END = 1;
  2637.  
  2638.   { Define the dwPipeMode values for CreateNamedPipe }
  2639.  
  2640.   {$EXTERNALSYM PIPE_WAIT}
  2641.   PIPE_WAIT = 0;
  2642.   {$EXTERNALSYM PIPE_NOWAIT}
  2643.   PIPE_NOWAIT = 1;
  2644.   {$EXTERNALSYM PIPE_READMODE_BYTE}
  2645.   PIPE_READMODE_BYTE = 0;
  2646.   {$EXTERNALSYM PIPE_READMODE_MESSAGE}
  2647.   PIPE_READMODE_MESSAGE = 2;
  2648.   {$EXTERNALSYM PIPE_TYPE_BYTE}
  2649.   PIPE_TYPE_BYTE = 0;
  2650.   {$EXTERNALSYM PIPE_TYPE_MESSAGE}
  2651.   PIPE_TYPE_MESSAGE = 4;
  2652.  
  2653.   { Define the well known values for CreateNamedPipe nMaxInstances }
  2654.  
  2655.   {$EXTERNALSYM PIPE_UNLIMITED_INSTANCES}
  2656.   PIPE_UNLIMITED_INSTANCES = 255;
  2657.  
  2658.   { Define the Security Quality of Service bits to be passed into CreateFile }
  2659.  
  2660.   {$EXTERNALSYM SECURITY_ANONYMOUS}
  2661.   SECURITY_ANONYMOUS = (Ord(SecurityAnonymous) shl 16);
  2662.   {$EXTERNALSYM SECURITY_IDENTIFICATION}
  2663.   SECURITY_IDENTIFICATION = (Ord(SecurityIdentification) shl 16);
  2664.   {$EXTERNALSYM SECURITY_IMPERSONATION}
  2665.   SECURITY_IMPERSONATION = (Ord(SecurityImpersonation) shl 16);
  2666.   {$EXTERNALSYM SECURITY_DELEGATION}
  2667.   SECURITY_DELEGATION = (Ord(SecurityDelegation) shl 16);
  2668.  
  2669.   {$EXTERNALSYM SECURITY_CONTEXT_TRACKING}
  2670.   SECURITY_CONTEXT_TRACKING = $40000;
  2671.   {$EXTERNALSYM SECURITY_EFFECTIVE_ONLY}
  2672.   SECURITY_EFFECTIVE_ONLY = $80000;
  2673.  
  2674.   {$EXTERNALSYM SECURITY_SQOS_PRESENT}
  2675.   SECURITY_SQOS_PRESENT = $100000;
  2676.   {$EXTERNALSYM SECURITY_VALID_SQOS_FLAGS}
  2677.   SECURITY_VALID_SQOS_FLAGS = $1F0000;
  2678.  
  2679. { File structures }
  2680.  
  2681. type
  2682.   POverlapped = ^TOverlapped;
  2683.   {$EXTERNALSYM _OVERLAPPED}
  2684.   _OVERLAPPED = record
  2685.     Internal: DWORD;
  2686.     InternalHigh: DWORD;
  2687.     Offset: DWORD;
  2688.     OffsetHigh: DWORD;
  2689.     hEvent: THandle;
  2690.   end;
  2691.   TOverlapped = _OVERLAPPED;
  2692.   {$EXTERNALSYM OVERLAPPED}
  2693.   OVERLAPPED = _OVERLAPPED;
  2694.  
  2695.   PSecurityAttributes = ^TSecurityAttributes;
  2696.   {$EXTERNALSYM _SECURITY_ATTRIBUTES}
  2697.   _SECURITY_ATTRIBUTES = record
  2698.     nLength: DWORD;
  2699.     lpSecurityDescriptor: Pointer;
  2700.     bInheritHandle: BOOL;
  2701.   end;
  2702.   TSecurityAttributes = _SECURITY_ATTRIBUTES;
  2703.   {$EXTERNALSYM SECURITY_ATTRIBUTES}
  2704.   SECURITY_ATTRIBUTES = _SECURITY_ATTRIBUTES;
  2705.  
  2706.   PProcessInformation = ^TProcessInformation;
  2707.   {$EXTERNALSYM _PROCESS_INFORMATION}
  2708.   _PROCESS_INFORMATION = record
  2709.     hProcess: THandle;
  2710.     hThread: THandle;
  2711.     dwProcessId: DWORD;
  2712.     dwThreadId: DWORD;
  2713.   end;
  2714.   TProcessInformation = _PROCESS_INFORMATION;
  2715.   {$EXTERNALSYM PROCESS_INFORMATION}
  2716.   PROCESS_INFORMATION = _PROCESS_INFORMATION;
  2717.  
  2718.   { File System time stamps are represented with the following structure: }
  2719.   PFileTime = ^TFileTime;
  2720.   {$EXTERNALSYM _FILETIME}
  2721.   _FILETIME = record
  2722.     dwLowDateTime: DWORD;
  2723.     dwHighDateTime: DWORD;
  2724.   end;
  2725.   TFileTime = _FILETIME;
  2726.   {$EXTERNALSYM FILETIME}
  2727.   FILETIME = _FILETIME;
  2728.  
  2729.   { System time is represented with the following structure: }
  2730.   PSystemTime = ^TSystemTime;
  2731.   {$EXTERNALSYM _SYSTEMTIME}
  2732.   _SYSTEMTIME = record
  2733.     wYear: Word;
  2734.     wMonth: Word;
  2735.     wDayOfWeek: Word;
  2736.     wDay: Word;
  2737.     wHour: Word;
  2738.     wMinute: Word;
  2739.     wSecond: Word;
  2740.     wMilliseconds: Word;
  2741.   end;
  2742.   TSystemTime = _SYSTEMTIME;
  2743.   {$EXTERNALSYM SYSTEMTIME}
  2744.   SYSTEMTIME = _SYSTEMTIME;
  2745.  
  2746. {$IFDEF STRICT}
  2747.   TFNThreadStartRoutine = function (lpThreadParameter: Pointer): DWORD stdcall;
  2748.   TFNFiberStartRoutine = function(lpFiberParameter: Pointer): Pointer stdcall;
  2749. {$ELSE}
  2750.   TFNThreadStartRoutine = TFarProc;
  2751.   TFNFiberStartRoutine = TFarProc;
  2752. {$ENDIF}
  2753.  
  2754. const
  2755.   {$EXTERNALSYM MUTEX_MODIFY_STATE}
  2756.   MUTEX_MODIFY_STATE = MUTANT_QUERY_STATE;
  2757.   {$EXTERNALSYM MUTEX_ALL_ACCESS}
  2758.   MUTEX_ALL_ACCESS = MUTANT_ALL_ACCESS;
  2759.  
  2760.   { Serial provider type. }
  2761.  
  2762.   {$EXTERNALSYM SP_SERIALCOMM}
  2763.   SP_SERIALCOMM = $00000001;
  2764.  
  2765.   { Provider SubTypes }
  2766.  
  2767.   {$EXTERNALSYM PST_UNSPECIFIED}
  2768.   PST_UNSPECIFIED = $00000000;
  2769.   {$EXTERNALSYM PST_RS232}
  2770.   PST_RS232 = $00000001;
  2771.   {$EXTERNALSYM PST_PARALLELPORT}
  2772.   PST_PARALLELPORT = $00000002;
  2773.   {$EXTERNALSYM PST_RS422}
  2774.   PST_RS422 = $00000003;
  2775.   {$EXTERNALSYM PST_RS423}
  2776.   PST_RS423 = $00000004;
  2777.   {$EXTERNALSYM PST_RS449}
  2778.   PST_RS449 = $00000005;
  2779.   {$EXTERNALSYM PST_MODEM}
  2780.   PST_MODEM = $00000006;
  2781.   {$EXTERNALSYM PST_FAX}
  2782.   PST_FAX = $00000021;
  2783.   {$EXTERNALSYM PST_SCANNER}
  2784.   PST_SCANNER = $00000022;
  2785.   {$EXTERNALSYM PST_NETWORK_BRIDGE}
  2786.   PST_NETWORK_BRIDGE = $00000100;
  2787.   {$EXTERNALSYM PST_LAT}
  2788.   PST_LAT = $00000101;
  2789.   {$EXTERNALSYM PST_TCPIP_TELNET}
  2790.   PST_TCPIP_TELNET = $00000102;
  2791.   {$EXTERNALSYM PST_X25}
  2792.   PST_X25 = $00000103;
  2793.  
  2794.   { Provider capabilities flags. }
  2795.  
  2796.   {$EXTERNALSYM PCF_DTRDSR}
  2797.   PCF_DTRDSR = $0001;
  2798.   {$EXTERNALSYM PCF_RTSCTS}
  2799.   PCF_RTSCTS = $0002;
  2800.   {$EXTERNALSYM PCF_RLSD}
  2801.   PCF_RLSD = $0004;
  2802.   {$EXTERNALSYM PCF_PARITY_CHECK}
  2803.   PCF_PARITY_CHECK = $0008;
  2804.   {$EXTERNALSYM PCF_XONXOFF}
  2805.   PCF_XONXOFF = $0010;
  2806.   {$EXTERNALSYM PCF_SETXCHAR}
  2807.   PCF_SETXCHAR = $0020;
  2808.   {$EXTERNALSYM PCF_TOTALTIMEOUTS}
  2809.   PCF_TOTALTIMEOUTS = $0040;
  2810.   {$EXTERNALSYM PCF_INTTIMEOUTS}
  2811.   PCF_INTTIMEOUTS = $0080;
  2812.   {$EXTERNALSYM PCF_SPECIALCHARS}
  2813.   PCF_SPECIALCHARS = $0100;
  2814.   {$EXTERNALSYM PCF_16BITMODE}
  2815.   PCF_16BITMODE = $0200;
  2816.  
  2817.   { Comm provider settable parameters. }
  2818.  
  2819.   {$EXTERNALSYM SP_PARITY}
  2820.   SP_PARITY = $0001;
  2821.   {$EXTERNALSYM SP_BAUD}
  2822.   SP_BAUD = $0002;
  2823.   {$EXTERNALSYM SP_DATABITS}
  2824.   SP_DATABITS = $0004;
  2825.   {$EXTERNALSYM SP_STOPBITS}
  2826.   SP_STOPBITS = $0008;
  2827.   {$EXTERNALSYM SP_HANDSHAKING}
  2828.   SP_HANDSHAKING = $0010;
  2829.   {$EXTERNALSYM SP_PARITY_CHECK}
  2830.   SP_PARITY_CHECK = $0020;
  2831.   {$EXTERNALSYM SP_RLSD}
  2832.   SP_RLSD = $0040;
  2833.  
  2834.   { Settable baud rates in the provider. }
  2835.  
  2836.   {$EXTERNALSYM BAUD_075}
  2837.   BAUD_075 = $00000001;
  2838.   {$EXTERNALSYM BAUD_110}
  2839.   BAUD_110 = $00000002;
  2840.   {$EXTERNALSYM BAUD_134_5}
  2841.   BAUD_134_5 = $00000004;
  2842.   {$EXTERNALSYM BAUD_150}
  2843.   BAUD_150 = $00000008;
  2844.   {$EXTERNALSYM BAUD_300}
  2845.   BAUD_300 = $00000010;
  2846.   {$EXTERNALSYM BAUD_600}
  2847.   BAUD_600 = $00000020;
  2848.   {$EXTERNALSYM BAUD_1200}
  2849.   BAUD_1200 = $00000040;
  2850.   {$EXTERNALSYM BAUD_1800}
  2851.   BAUD_1800 = $00000080;
  2852.   {$EXTERNALSYM BAUD_2400}
  2853.   BAUD_2400 = $00000100;
  2854.   {$EXTERNALSYM BAUD_4800}
  2855.   BAUD_4800 = $00000200;
  2856.   {$EXTERNALSYM BAUD_7200}
  2857.   BAUD_7200 = $00000400;
  2858.   {$EXTERNALSYM BAUD_9600}
  2859.   BAUD_9600 = $00000800;
  2860.   {$EXTERNALSYM BAUD_14400}
  2861.   BAUD_14400 = $00001000;
  2862.   {$EXTERNALSYM BAUD_19200}
  2863.   BAUD_19200 = $00002000;
  2864.   {$EXTERNALSYM BAUD_38400}
  2865.   BAUD_38400 = $00004000;
  2866.   {$EXTERNALSYM BAUD_56K}
  2867.   BAUD_56K = $00008000;
  2868.   {$EXTERNALSYM BAUD_128K}
  2869.   BAUD_128K = $00010000;
  2870.   {$EXTERNALSYM BAUD_115200}
  2871.   BAUD_115200 = $00020000;
  2872.   {$EXTERNALSYM BAUD_57600}
  2873.   BAUD_57600 = $00040000;
  2874.   {$EXTERNALSYM BAUD_USER}
  2875.   BAUD_USER = $10000000;
  2876.  
  2877.   { Settable Data Bits }
  2878.  
  2879.   {$EXTERNALSYM DATABITS_5}
  2880.   DATABITS_5 = $0001;
  2881.   {$EXTERNALSYM DATABITS_6}
  2882.   DATABITS_6 = $0002;
  2883.   {$EXTERNALSYM DATABITS_7}
  2884.   DATABITS_7 = $0004;
  2885.   {$EXTERNALSYM DATABITS_8}
  2886.   DATABITS_8 = $0008;
  2887.   {$EXTERNALSYM DATABITS_16}
  2888.   DATABITS_16 = $0010;
  2889.   {$EXTERNALSYM DATABITS_16X}
  2890.   DATABITS_16X = $0020;
  2891.  
  2892.   { Settable Stop and Parity bits. }
  2893.  
  2894.   {$EXTERNALSYM STOPBITS_10}
  2895.   STOPBITS_10 = $0001;
  2896.   {$EXTERNALSYM STOPBITS_15}
  2897.   STOPBITS_15 = $0002;
  2898.   {$EXTERNALSYM STOPBITS_20}
  2899.   STOPBITS_20 = $0004;
  2900.   {$EXTERNALSYM PARITY_NONE}
  2901.   PARITY_NONE = $0100;
  2902.   {$EXTERNALSYM PARITY_ODD}
  2903.   PARITY_ODD = $0200;
  2904.   {$EXTERNALSYM PARITY_EVEN}
  2905.   PARITY_EVEN = $0400;
  2906.   {$EXTERNALSYM PARITY_MARK}
  2907.   PARITY_MARK = $0800;
  2908.   {$EXTERNALSYM PARITY_SPACE}
  2909.   PARITY_SPACE = $1000;
  2910.  
  2911. type
  2912.   PCommProp = ^TCommProp;
  2913.   {$EXTERNALSYM _COMMPROP}
  2914.   _COMMPROP = record
  2915.     wPacketLength: Word;
  2916.     wPacketVersion: Word;
  2917.     dwServiceMask: DWORD;
  2918.     dwReserved1: DWORD;
  2919.     dwMaxTxQueue: DWORD;
  2920.     dwMaxRxQueue: DWORD;
  2921.     dwMaxBaud: DWORD;
  2922.     dwProvSubType: DWORD;
  2923.     dwProvCapabilities: DWORD;
  2924.     dwSettableParams: DWORD;
  2925.     dwSettableBaud: DWORD;
  2926.     wSettableData: Word;
  2927.     wSettableStopParity: Word;
  2928.     dwCurrentTxQueue: DWORD;
  2929.     dwCurrentRxQueue: DWORD;
  2930.     dwProvSpec1: DWORD;
  2931.     dwProvSpec2: DWORD;
  2932.     wcProvChar: array[0..0] of WCHAR;
  2933.   end;
  2934.   TCommProp = _COMMPROP;
  2935.   {$EXTERNALSYM COMMPROP}
  2936.   COMMPROP = _COMMPROP;
  2937.  
  2938.   { Set dwProvSpec1 to COMMPROP_INITIALIZED to indicate that wPacketLength
  2939.     is valid before a call to GetCommProperties(). }
  2940. const
  2941.   {$EXTERNALSYM COMMPROP_INITIALIZED}
  2942.   COMMPROP_INITIALIZED = $E73CF52E;
  2943.  
  2944. type
  2945.   TComStateFlag = (fCtlHold, fDsrHold, fRlsHold, fXoffHold, fXOffSent, fEof,
  2946.     fTxim);  // not in Windows Headers
  2947.   TComStateFlags = set of TComStateFlag;
  2948.   {$EXTERNALSYM _COMSTAT}
  2949.   _COMSTAT = record
  2950.     Flags: TComStateFlags;
  2951.     Reserved: array[0..2] of Byte;
  2952.     cbInQue: DWORD;
  2953.     cbOutQue: DWORD;
  2954.   end;
  2955.   TComStat = _COMSTAT;
  2956.   {$EXTERNALSYM COMSTAT}
  2957.   COMSTAT = _COMSTAT;
  2958.   PComStat = ^TComStat;
  2959.  
  2960. const
  2961.   { DTR Control Flow Values. }
  2962.   {$EXTERNALSYM DTR_CONTROL_DISABLE}
  2963.   DTR_CONTROL_DISABLE = 0;
  2964.   {$EXTERNALSYM DTR_CONTROL_ENABLE}
  2965.   DTR_CONTROL_ENABLE = 1;
  2966.   {$EXTERNALSYM DTR_CONTROL_HANDSHAKE}
  2967.   DTR_CONTROL_HANDSHAKE = 2;
  2968.  
  2969.   { RTS Control Flow Values}
  2970.   {$EXTERNALSYM RTS_CONTROL_DISABLE}
  2971.   RTS_CONTROL_DISABLE = 0;
  2972.   {$EXTERNALSYM RTS_CONTROL_ENABLE}
  2973.   RTS_CONTROL_ENABLE = 1;
  2974.   {$EXTERNALSYM RTS_CONTROL_HANDSHAKE}
  2975.   RTS_CONTROL_HANDSHAKE = 2;
  2976.   {$EXTERNALSYM RTS_CONTROL_TOGGLE}
  2977.   RTS_CONTROL_TOGGLE = 3;
  2978.  
  2979. type
  2980.   {$EXTERNALSYM _DCB}
  2981.   _DCB = packed record
  2982.     DCBlength: DWORD;
  2983.     BaudRate: DWORD;
  2984.     Flags: Longint;
  2985.     wReserved: Word;
  2986.     XonLim: Word;
  2987.     XoffLim: Word;
  2988.     ByteSize: Byte;
  2989.     Parity: Byte;
  2990.     StopBits: Byte;
  2991.     XonChar: CHAR;
  2992.     XoffChar: CHAR;
  2993.     ErrorChar: CHAR;
  2994.     EofChar: CHAR;
  2995.     EvtChar: CHAR;
  2996.     wReserved1: Word;
  2997.   end;
  2998.   TDCB = _DCB;
  2999.   {$EXTERNALSYM DCB}
  3000.   DCB = _DCB;
  3001.   PDCB = ^TDCB;
  3002.  
  3003.   PCommTimeouts = ^TCommTimeouts;
  3004.   {$EXTERNALSYM _COMMTIMEOUTS}
  3005.   _COMMTIMEOUTS = record
  3006.     ReadIntervalTimeout: DWORD;
  3007.     ReadTotalTimeoutMultiplier: DWORD;
  3008.     ReadTotalTimeoutConstant: DWORD;
  3009.     WriteTotalTimeoutMultiplier: DWORD;
  3010.     WriteTotalTimeoutConstant: DWORD;
  3011.   end;
  3012.   TCommTimeouts = _COMMTIMEOUTS;
  3013.   {$EXTERNALSYM COMMTIMEOUTS}
  3014.   COMMTIMEOUTS = _COMMTIMEOUTS;
  3015.  
  3016.   PCommConfig = ^TCommConfig;
  3017.   {$EXTERNALSYM _COMMCONFIG}
  3018.   _COMMCONFIG = record
  3019.     dwSize: DWORD;
  3020.     wVersion: Word;
  3021.     wReserved: Word;
  3022.     dcb: TDCB;
  3023.     dwProviderSubType: DWORD;
  3024.     dwProviderOffset: DWORD;
  3025.     dwProviderSize: DWORD;
  3026.     wcProviderData: array[0..0] of WCHAR;
  3027.   end;
  3028.   TCommConfig = _COMMCONFIG;
  3029.   {$EXTERNALSYM COMMCONFIG}
  3030.   COMMCONFIG = _COMMCONFIG;
  3031.  
  3032.   PSystemInfo = ^TSystemInfo;
  3033.   {$EXTERNALSYM _SYSTEM_INFO}
  3034.   _SYSTEM_INFO = record
  3035.     case Integer of
  3036.       0: (
  3037.         dwOemId: DWORD);
  3038.       1: (
  3039.         wProcessorArchitecture: Word;
  3040.         wReserved: Word;
  3041.         dwPageSize: DWORD;
  3042.         lpMinimumApplicationAddress: Pointer;
  3043.         lpMaximumApplicationAddress: Pointer;
  3044.         dwActiveProcessorMask: DWORD;
  3045.         dwNumberOfProcessors: DWORD;
  3046.         dwProcessorType: DWORD;
  3047.         dwAllocationGranularity: DWORD;
  3048.         wProcessorLevel: Word;
  3049.         wProcessorRevision: Word);
  3050.   end;
  3051.   TSystemInfo = _SYSTEM_INFO;
  3052.   {$EXTERNALSYM SYSTEM_INFO}
  3053.   SYSTEM_INFO = _SYSTEM_INFO;
  3054.  
  3055. {$EXTERNALSYM FreeModule}
  3056. function FreeModule(var hLibModule: HINST): BOOL;
  3057. {$EXTERNALSYM MakeProcInstance}
  3058. function MakeProcInstance(Proc: FARPROC; Instance: THandle): FARPROC;
  3059. {$EXTERNALSYM FreeProcInstance}
  3060. procedure FreeProcInstance(Proc: FARPROC);
  3061.  
  3062.  
  3063. const
  3064.   { Global Memory Flags }
  3065.  
  3066.   {$EXTERNALSYM GMEM_FIXED}
  3067.   GMEM_FIXED = 0;
  3068.   {$EXTERNALSYM GMEM_MOVEABLE}
  3069.   GMEM_MOVEABLE = 2;
  3070.   {$EXTERNALSYM GMEM_NOCOMPACT}
  3071.   GMEM_NOCOMPACT = $10;
  3072.   {$EXTERNALSYM GMEM_NODISCARD}
  3073.   GMEM_NODISCARD = $20;
  3074.   {$EXTERNALSYM GMEM_ZEROINIT}
  3075.   GMEM_ZEROINIT = $40;
  3076.   {$EXTERNALSYM GMEM_MODIFY}
  3077.   GMEM_MODIFY = $80;
  3078.   {$EXTERNALSYM GMEM_DISCARDABLE}
  3079.   GMEM_DISCARDABLE = $100;
  3080.   {$EXTERNALSYM GMEM_NOT_BANKED}
  3081.   GMEM_NOT_BANKED = $1000;
  3082.   {$EXTERNALSYM GMEM_SHARE}
  3083.   GMEM_SHARE = $2000;
  3084.   {$EXTERNALSYM GMEM_DDESHARE}
  3085.   GMEM_DDESHARE = $2000;
  3086.   {$EXTERNALSYM GMEM_NOTIFY}
  3087.   GMEM_NOTIFY = $4000;
  3088.   {$EXTERNALSYM GMEM_LOWER}
  3089.   GMEM_LOWER = GMEM_NOT_BANKED;
  3090.   {$EXTERNALSYM GMEM_VALID_FLAGS}
  3091.   GMEM_VALID_FLAGS = 32626;
  3092.   {$EXTERNALSYM GMEM_INVALID_HANDLE}
  3093.   GMEM_INVALID_HANDLE = $8000;
  3094.  
  3095.   {$EXTERNALSYM GHND}
  3096.   GHND = GMEM_MOVEABLE or GMEM_ZEROINIT;
  3097.   {$EXTERNALSYM GPTR}
  3098.   GPTR = GMEM_FIXED or GMEM_ZEROINIT;
  3099.  
  3100. {$EXTERNALSYM GlobalLRUNewest}
  3101. function GlobalLRUNewest(h: THandle): THandle;
  3102. {$EXTERNALSYM GlobalLRUOldest}
  3103. function GlobalLRUOldest(h: THandle): THandle;
  3104. {$EXTERNALSYM GlobalDiscard}
  3105. function GlobalDiscard(h: THandle): THandle;
  3106.  
  3107. {$EXTERNALSYM GlobalAllocPtr}
  3108. function GlobalAllocPtr(Flags: Integer; Bytes: Longint): Pointer;
  3109. {$EXTERNALSYM GlobalReAllocPtr}
  3110. function GlobalReAllocPtr(P: Pointer; Bytes: Longint; Flags: Integer): Pointer;
  3111. {$EXTERNALSYM GlobalFreePtr}
  3112. function GlobalFreePtr(P: Pointer): THandle;
  3113.  
  3114. const
  3115.   { Flags returned by GlobalFlags (in addition to GMEM_DISCARDABLE) }
  3116.   {$EXTERNALSYM GMEM_DISCARDED}
  3117.   GMEM_DISCARDED = $4000;
  3118.   {$EXTERNALSYM GMEM_LOCKCOUNT}
  3119.   GMEM_LOCKCOUNT = 255;
  3120.  
  3121. type
  3122.   PMemoryStatus = ^TMemoryStatus;
  3123.   {$EXTERNALSYM _MEMORYSTATUS}
  3124.   _MEMORYSTATUS = record
  3125.     dwLength: DWORD;
  3126.     dwMemoryLoad: DWORD;
  3127.     dwTotalPhys: DWORD;
  3128.     dwAvailPhys: DWORD;
  3129.     dwTotalPageFile: DWORD;
  3130.     dwAvailPageFile: DWORD;
  3131.     dwTotalVirtual: DWORD;
  3132.     dwAvailVirtual: DWORD;
  3133.   end;
  3134.   TMemoryStatus = _MEMORYSTATUS;
  3135.   {$EXTERNALSYM MEMORYSTATUS}
  3136.   MEMORYSTATUS = _MEMORYSTATUS;
  3137.  
  3138. const
  3139.   { Local Memory Flags }
  3140.  
  3141.   {$EXTERNALSYM LMEM_FIXED}
  3142.   LMEM_FIXED = 0;
  3143.   {$EXTERNALSYM LMEM_MOVEABLE}
  3144.   LMEM_MOVEABLE = 2;
  3145.   {$EXTERNALSYM LMEM_NOCOMPACT}
  3146.   LMEM_NOCOMPACT = $10;
  3147.   {$EXTERNALSYM LMEM_NODISCARD}
  3148.   LMEM_NODISCARD = $20;
  3149.   {$EXTERNALSYM LMEM_ZEROINIT}
  3150.   LMEM_ZEROINIT = $40;
  3151.   {$EXTERNALSYM LMEM_MODIFY}
  3152.   LMEM_MODIFY = $80;
  3153.   {$EXTERNALSYM LMEM_DISCARDABLE}
  3154.   LMEM_DISCARDABLE = $F00;
  3155.   {$EXTERNALSYM LMEM_VALID_FLAGS}
  3156.   LMEM_VALID_FLAGS = $F72;
  3157.   {$EXTERNALSYM LMEM_INVALID_HANDLE}
  3158.   LMEM_INVALID_HANDLE = $8000;
  3159.  
  3160.   {$EXTERNALSYM LHND}
  3161.   LHND = LMEM_MOVEABLE or LMEM_ZEROINIT;
  3162.   {$EXTERNALSYM LPTR}
  3163.   LPTR = LMEM_FIXED or LMEM_ZEROINIT;
  3164.  
  3165.   {$EXTERNALSYM NONZEROLPTR}
  3166.   NONZEROLPTR = LMEM_FIXED;
  3167.  
  3168.  
  3169. {$EXTERNALSYM LocalDiscard}
  3170. function LocalDiscard(h: THandle): THandle;
  3171.  
  3172. const
  3173.   { Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE) }
  3174.  
  3175.   {$EXTERNALSYM LMEM_DISCARDED}
  3176.   LMEM_DISCARDED = $4000;
  3177.   {$EXTERNALSYM LMEM_LOCKCOUNT}
  3178.   LMEM_LOCKCOUNT = 255;
  3179.  
  3180.   { dwCreationFlag values }
  3181.  
  3182. { dwCreationFlag values }
  3183.  
  3184.  
  3185.   {$EXTERNALSYM DEBUG_PROCESS}
  3186.   DEBUG_PROCESS                   = $00000001;
  3187.   {$EXTERNALSYM DEBUG_ONLY_THIS_PROCESS}
  3188.   DEBUG_ONLY_THIS_PROCESS         = $00000002;
  3189.  
  3190.   {$EXTERNALSYM CREATE_SUSPENDED}
  3191.   CREATE_SUSPENDED                = $00000004;
  3192.  
  3193.   {$EXTERNALSYM DETACHED_PROCESS}
  3194.   DETACHED_PROCESS                = $00000008;
  3195.  
  3196.   {$EXTERNALSYM CREATE_NEW_CONSOLE}
  3197.   CREATE_NEW_CONSOLE              = $00000010;
  3198.  
  3199.   {$EXTERNALSYM NORMAL_PRIORITY_CLASS}
  3200.   NORMAL_PRIORITY_CLASS           = $00000020;
  3201.   {$EXTERNALSYM IDLE_PRIORITY_CLASS}
  3202.   IDLE_PRIORITY_CLASS             = $00000040;
  3203.   {$EXTERNALSYM HIGH_PRIORITY_CLASS}
  3204.   HIGH_PRIORITY_CLASS             = $00000080;
  3205.   {$EXTERNALSYM REALTIME_PRIORITY_CLASS}
  3206.   REALTIME_PRIORITY_CLASS         = $00000100;
  3207.  
  3208.   {$EXTERNALSYM CREATE_NEW_PROCESS_GROUP}
  3209.   CREATE_NEW_PROCESS_GROUP        = $00000200;
  3210.   {$EXTERNALSYM CREATE_UNICODE_ENVIRONMENT}
  3211.   CREATE_UNICODE_ENVIRONMENT      = $00000400;
  3212.  
  3213.   {$EXTERNALSYM CREATE_SEPARATE_WOW_VDM}
  3214.   CREATE_SEPARATE_WOW_VDM         = $00000800;
  3215.   {$EXTERNALSYM CREATE_SHARED_WOW_VDM}
  3216.   CREATE_SHARED_WOW_VDM           = $00001000;
  3217.   {$EXTERNALSYM CREATE_FORCEDOS}
  3218.   CREATE_FORCEDOS                 = $00002000;
  3219.  
  3220.   {$EXTERNALSYM CREATE_DEFAULT_ERROR_MODE}
  3221.   CREATE_DEFAULT_ERROR_MODE       = $04000000;
  3222.   {$EXTERNALSYM CREATE_NO_WINDOW}
  3223.   CREATE_NO_WINDOW                = $08000000;
  3224.  
  3225.   {$EXTERNALSYM PROFILE_USER}
  3226.   PROFILE_USER                    = $10000000;
  3227.   {$EXTERNALSYM PROFILE_KERNEL}
  3228.   PROFILE_KERNEL                  = $20000000;
  3229.   {$EXTERNALSYM PROFILE_SERVER}
  3230.   PROFILE_SERVER                  = $40000000;
  3231.  
  3232.   {$EXTERNALSYM THREAD_PRIORITY_LOWEST}
  3233.   THREAD_PRIORITY_LOWEST              = THREAD_BASE_PRIORITY_MIN;
  3234.   {$EXTERNALSYM THREAD_PRIORITY_BELOW_NORMAL}
  3235.   THREAD_PRIORITY_BELOW_NORMAL        = THREAD_PRIORITY_LOWEST + 1;
  3236.   {$EXTERNALSYM THREAD_PRIORITY_NORMAL}
  3237.   THREAD_PRIORITY_NORMAL              = 0;
  3238.   {$EXTERNALSYM THREAD_PRIORITY_HIGHEST}
  3239.   THREAD_PRIORITY_HIGHEST             = THREAD_BASE_PRIORITY_MAX;
  3240.   {$EXTERNALSYM THREAD_PRIORITY_ABOVE_NORMAL}
  3241.   THREAD_PRIORITY_ABOVE_NORMAL        = THREAD_PRIORITY_HIGHEST - 1;
  3242.   {$EXTERNALSYM THREAD_PRIORITY_ERROR_RETURN}
  3243.   THREAD_PRIORITY_ERROR_RETURN        = MAXLONG;
  3244.  
  3245.   {$EXTERNALSYM THREAD_PRIORITY_TIME_CRITICAL}
  3246.   THREAD_PRIORITY_TIME_CRITICAL       = THREAD_BASE_PRIORITY_LOWRT;
  3247.   {$EXTERNALSYM THREAD_PRIORITY_IDLE}
  3248.   THREAD_PRIORITY_IDLE                = THREAD_BASE_PRIORITY_IDLE;
  3249.  
  3250. { Debug APIs }
  3251.  
  3252.   {$EXTERNALSYM EXCEPTION_DEBUG_EVENT}
  3253.   EXCEPTION_DEBUG_EVENT = 1;
  3254.   {$EXTERNALSYM CREATE_THREAD_DEBUG_EVENT}
  3255.   CREATE_THREAD_DEBUG_EVENT = 2;
  3256.   {$EXTERNALSYM CREATE_PROCESS_DEBUG_EVENT}
  3257.   CREATE_PROCESS_DEBUG_EVENT = 3;
  3258.   {$EXTERNALSYM EXIT_THREAD_DEBUG_EVENT}
  3259.   EXIT_THREAD_DEBUG_EVENT = 4;
  3260.   {$EXTERNALSYM EXIT_PROCESS_DEBUG_EVENT}
  3261.   EXIT_PROCESS_DEBUG_EVENT = 5;
  3262.   {$EXTERNALSYM LOAD_DLL_DEBUG_EVENT}
  3263.   LOAD_DLL_DEBUG_EVENT = 6;
  3264.   {$EXTERNALSYM UNLOAD_DLL_DEBUG_EVENT}
  3265.   UNLOAD_DLL_DEBUG_EVENT = 7;
  3266.   {$EXTERNALSYM OUTPUT_DEBUG_STRING_EVENT}
  3267.   OUTPUT_DEBUG_STRING_EVENT = 8;
  3268.   {$EXTERNALSYM RIP_EVENT}
  3269.   RIP_EVENT = 9;
  3270.  
  3271. type
  3272.   PExceptionDebugInfo = ^TExceptionDebugInfo;
  3273.   {$EXTERNALSYM _EXCEPTION_DEBUG_INFO}
  3274.   _EXCEPTION_DEBUG_INFO = record
  3275.     ExceptionRecord: TExceptionRecord;
  3276.     dwFirstChance: DWORD;
  3277.   end;
  3278.   TExceptionDebugInfo = _EXCEPTION_DEBUG_INFO;
  3279.   {$EXTERNALSYM EXCEPTION_DEBUG_INFO}
  3280.   EXCEPTION_DEBUG_INFO = _EXCEPTION_DEBUG_INFO;
  3281.  
  3282.   PCreateThreadDebugInfo = ^TCreateThreadDebugInfo;
  3283.   {$EXTERNALSYM _CREATE_THREAD_DEBUG_INFO}
  3284.   _CREATE_THREAD_DEBUG_INFO = record
  3285.     hThread: THandle;
  3286.     lpThreadLocalBase: Pointer;
  3287.     lpStartAddress: TFNThreadStartRoutine;
  3288.   end;
  3289.   TCreateThreadDebugInfo = _CREATE_THREAD_DEBUG_INFO;
  3290.   {$EXTERNALSYM CREATE_THREAD_DEBUG_INFO}
  3291.   CREATE_THREAD_DEBUG_INFO = _CREATE_THREAD_DEBUG_INFO;
  3292.  
  3293.   PCreateProcessDebugInfo = ^TCreateProcessDebugInfo;
  3294.   {$EXTERNALSYM _CREATE_PROCESS_DEBUG_INFO}
  3295.   _CREATE_PROCESS_DEBUG_INFO = record
  3296.     hFile: THandle;
  3297.     hProcess: THandle;
  3298.     hThread: THandle;
  3299.     lpBaseOfImage: Pointer;
  3300.     dwDebugInfoFileOffset: DWORD;
  3301.     nDebugInfoSize: DWORD;
  3302.     lpThreadLocalBase: Pointer;
  3303.     lpStartAddress: TFNThreadStartRoutine;
  3304.     lpImageName: Pointer;
  3305.     fUnicode: Word;
  3306.   end;
  3307.   TCreateProcessDebugInfo = _CREATE_PROCESS_DEBUG_INFO;
  3308.   {$EXTERNALSYM CREATE_PROCESS_DEBUG_INFO}
  3309.   CREATE_PROCESS_DEBUG_INFO = _CREATE_PROCESS_DEBUG_INFO;
  3310.  
  3311.   PExitThreadDebugInfo = ^TExitThreadDebugInfo;
  3312.   {$EXTERNALSYM _EXIT_THREAD_DEBUG_INFO}
  3313.   _EXIT_THREAD_DEBUG_INFO = record
  3314.     dwExitCode: DWORD;
  3315.   end;
  3316.   TExitThreadDebugInfo = _EXIT_THREAD_DEBUG_INFO;
  3317.   {$EXTERNALSYM EXIT_THREAD_DEBUG_INFO}
  3318.   EXIT_THREAD_DEBUG_INFO = _EXIT_THREAD_DEBUG_INFO;
  3319.  
  3320.   PExitProcessDebugInfo = ^TExitProcessDebugInfo;
  3321.   {$EXTERNALSYM _EXIT_PROCESS_DEBUG_INFO}
  3322.   _EXIT_PROCESS_DEBUG_INFO = record
  3323.     dwExitCode: DWORD;
  3324.   end;
  3325.   TExitProcessDebugInfo = _EXIT_PROCESS_DEBUG_INFO;
  3326.   {$EXTERNALSYM EXIT_PROCESS_DEBUG_INFO}
  3327.   EXIT_PROCESS_DEBUG_INFO = _EXIT_PROCESS_DEBUG_INFO;
  3328.  
  3329.   PLoadDLLDebugInfo = ^TLoadDLLDebugInfo;
  3330.   {$EXTERNALSYM _LOAD_DLL_DEBUG_INFO}
  3331.   _LOAD_DLL_DEBUG_INFO = record
  3332.     hFile: THandle;
  3333.     lpBaseOfDll: Pointer;
  3334.     dwDebugInfoFileOffset: DWORD;
  3335.     nDebugInfoSize: DWORD;
  3336.     lpImageName: Pointer;
  3337.     fUnicode: Word;
  3338.   end;
  3339.   TLoadDLLDebugInfo = _LOAD_DLL_DEBUG_INFO;
  3340.   {$EXTERNALSYM LOAD_DLL_DEBUG_INFO}
  3341.   LOAD_DLL_DEBUG_INFO = _LOAD_DLL_DEBUG_INFO;
  3342.  
  3343.   PUnloadDLLDebugInfo = ^TUnloadDLLDebugInfo;
  3344.   {$EXTERNALSYM _UNLOAD_DLL_DEBUG_INFO}
  3345.   _UNLOAD_DLL_DEBUG_INFO = record
  3346.     lpBaseOfDll: Pointer;
  3347.   end;
  3348.   TUnloadDLLDebugInfo = _UNLOAD_DLL_DEBUG_INFO;
  3349.   {$EXTERNALSYM UNLOAD_DLL_DEBUG_INFO}
  3350.   UNLOAD_DLL_DEBUG_INFO = _UNLOAD_DLL_DEBUG_INFO;
  3351.  
  3352.   POutputDebugStringInfo = ^TOutputDebugStringInfo;
  3353.   {$EXTERNALSYM _OUTPUT_DEBUG_STRING_INFO}
  3354.   _OUTPUT_DEBUG_STRING_INFO = record
  3355.     lpDebugStringData: LPSTR;
  3356.     fUnicode: Word;
  3357.     nDebugStringLength: Word;
  3358.   end;
  3359.   TOutputDebugStringInfo = _OUTPUT_DEBUG_STRING_INFO;
  3360.   {$EXTERNALSYM OUTPUT_DEBUG_STRING_INFO}
  3361.   OUTPUT_DEBUG_STRING_INFO = _OUTPUT_DEBUG_STRING_INFO;
  3362.  
  3363.   PRIPInfo = ^TRIPInfo;
  3364.   {$EXTERNALSYM _RIP_INFO}
  3365.   _RIP_INFO = record
  3366.     dwError: DWORD;
  3367.     dwType: DWORD;
  3368.   end;
  3369.   TRIPInfo = _RIP_INFO;
  3370.   {$EXTERNALSYM RIP_INFO}
  3371.   RIP_INFO = _RIP_INFO;
  3372.  
  3373.   PDebugEvent = ^TDebugEvent;
  3374.   {$EXTERNALSYM _DEBUG_EVENT}
  3375.   _DEBUG_EVENT = record
  3376.     dwDebugEventCode: DWORD;
  3377.     dwProcessId: DWORD;
  3378.     dwThreadId: DWORD;
  3379.     case Integer of
  3380.       0: (Exception: TExceptionDebugInfo);
  3381.       1: (CreateThread: TCreateThreadDebugInfo);
  3382.       2: (CreateProcessInfo: TCreateProcessDebugInfo);
  3383.       3: (ExitThread: TExitThreadDebugInfo);
  3384.       4: (ExitProcess: TExitThreadDebugInfo);
  3385.       5: (LoadDll: TLoadDLLDebugInfo);
  3386.       6: (UnloadDll: TUnloadDLLDebugInfo);
  3387.       7: (DebugString: TOutputDebugStringInfo);
  3388.       8: (RipInfo: TRIPInfo);
  3389.   end;
  3390.   TDebugEvent = _DEBUG_EVENT;
  3391.   {$EXTERNALSYM DEBUG_EVENT}
  3392.   DEBUG_EVENT = _DEBUG_EVENT;
  3393.  
  3394. const
  3395.   {$EXTERNALSYM DRIVE_UNKNOWN}
  3396.   DRIVE_UNKNOWN = 0;
  3397.   {$EXTERNALSYM DRIVE_NO_ROOT_DIR}
  3398.   DRIVE_NO_ROOT_DIR = 1;
  3399.   {$EXTERNALSYM DRIVE_REMOVABLE}
  3400.   DRIVE_REMOVABLE = 2;
  3401.   {$EXTERNALSYM DRIVE_FIXED}
  3402.   DRIVE_FIXED = 3;
  3403.   {$EXTERNALSYM DRIVE_REMOTE}
  3404.   DRIVE_REMOTE = 4;
  3405.   {$EXTERNALSYM DRIVE_CDROM}
  3406.   DRIVE_CDROM = 5;
  3407.   {$EXTERNALSYM DRIVE_RAMDISK}
  3408.   DRIVE_RAMDISK = 6;
  3409.  
  3410. {$EXTERNALSYM GetFreeSpace}
  3411. function GetFreeSpace(w: Word): DWORD;
  3412.  
  3413. const
  3414.   {$EXTERNALSYM FILE_TYPE_UNKNOWN}
  3415.   FILE_TYPE_UNKNOWN = 0;
  3416.   {$EXTERNALSYM FILE_TYPE_DISK}
  3417.   FILE_TYPE_DISK = 1;
  3418.   {$EXTERNALSYM FILE_TYPE_CHAR}
  3419.   FILE_TYPE_CHAR = 2;
  3420.   {$EXTERNALSYM FILE_TYPE_PIPE}
  3421.   FILE_TYPE_PIPE = 3;
  3422.   {$EXTERNALSYM FILE_TYPE_REMOTE}
  3423.   FILE_TYPE_REMOTE = $8000;
  3424.  
  3425.   {$EXTERNALSYM STD_INPUT_HANDLE}
  3426.   STD_INPUT_HANDLE = DWORD(-10);
  3427.   {$EXTERNALSYM STD_OUTPUT_HANDLE}
  3428.   STD_OUTPUT_HANDLE = DWORD(-11);
  3429.   {$EXTERNALSYM STD_ERROR_HANDLE}
  3430.   STD_ERROR_HANDLE = DWORD(-12);
  3431.  
  3432.   {$EXTERNALSYM NOPARITY}
  3433.   NOPARITY = 0;
  3434.   {$EXTERNALSYM ODDPARITY}
  3435.   ODDPARITY = 1;
  3436.   {$EXTERNALSYM EVENPARITY}
  3437.   EVENPARITY = 2;
  3438.   {$EXTERNALSYM MARKPARITY}
  3439.   MARKPARITY = 3;
  3440.   {$EXTERNALSYM SPACEPARITY}
  3441.   SPACEPARITY = 4;
  3442.  
  3443.   {$EXTERNALSYM ONESTOPBIT}
  3444.   ONESTOPBIT = 0;
  3445.   {$EXTERNALSYM ONE5STOPBITS}
  3446.   ONE5STOPBITS = 1;
  3447.   {$EXTERNALSYM TWOSTOPBITS}
  3448.   TWOSTOPBITS = 2;
  3449.  
  3450.   {$EXTERNALSYM IGNORE}
  3451.   IGNORE = 0;               { Ignore signal }
  3452.   {$EXTERNALSYM INFINITE}
  3453.   INFINITE = $FFFFFFFF;     { Infinite timeout }
  3454.  
  3455.   { Baud rates at which the communication device operates }
  3456.  
  3457.   {$EXTERNALSYM CBR_110}
  3458.   CBR_110 = 110;
  3459.   {$EXTERNALSYM CBR_300}
  3460.   CBR_300 = 300;
  3461.   {$EXTERNALSYM CBR_600}
  3462.   CBR_600 = 600;
  3463.   {$EXTERNALSYM CBR_1200}
  3464.   CBR_1200 = 1200;
  3465.   {$EXTERNALSYM CBR_2400}
  3466.   CBR_2400 = 2400;
  3467.   {$EXTERNALSYM CBR_4800}
  3468.   CBR_4800 = 4800;
  3469.   {$EXTERNALSYM CBR_9600}
  3470.   CBR_9600 = 9600;
  3471.   {$EXTERNALSYM CBR_14400}
  3472.   CBR_14400 = 14400;
  3473.   {$EXTERNALSYM CBR_19200}
  3474.   CBR_19200 = 19200;
  3475.   {$EXTERNALSYM CBR_38400}
  3476.   CBR_38400 = 38400;
  3477.   {$EXTERNALSYM CBR_56000}
  3478.   CBR_56000 = 56000;
  3479.   {$EXTERNALSYM CBR_57600}
  3480.   CBR_57600 = 57600;
  3481.   {$EXTERNALSYM CBR_115200}
  3482.   CBR_115200 = $1C200;
  3483.   {$EXTERNALSYM CBR_128000}
  3484.   CBR_128000 = $1F400;
  3485.   {$EXTERNALSYM CBR_256000}
  3486.   CBR_256000 = $3E800;
  3487.  
  3488.   { Error Flags }
  3489.  
  3490.   {$EXTERNALSYM CE_RXOVER}
  3491.   CE_RXOVER = 1;        { Receive Queue overflow }
  3492.   {$EXTERNALSYM CE_OVERRUN}
  3493.   CE_OVERRUN = 2;       { Receive Overrun Error }
  3494.   {$EXTERNALSYM CE_RXPARITY}
  3495.   CE_RXPARITY = 4;      { Receive Parity Error }
  3496.   {$EXTERNALSYM CE_FRAME}
  3497.   CE_FRAME = 8;         { Receive Framing error }
  3498.   {$EXTERNALSYM CE_BREAK}
  3499.   CE_BREAK = $10;       { Break Detected }
  3500.   {$EXTERNALSYM CE_TXFULL}
  3501.   CE_TXFULL = $100;     { TX Queue is full }
  3502.   {$EXTERNALSYM CE_PTO}
  3503.   CE_PTO = $200;        { LPTx Timeout }
  3504.   {$EXTERNALSYM CE_IOE}
  3505.   CE_IOE = $400;        { LPTx I/O Error }
  3506.   {$EXTERNALSYM CE_DNS}
  3507.   CE_DNS = $800;        { LPTx Device not selected }
  3508.   {$EXTERNALSYM CE_OOP}
  3509.   CE_OOP = $1000;       { LPTx Out-Of-Paper }
  3510.   {$EXTERNALSYM CE_MODE}
  3511.   CE_MODE = $8000;      { Requested mode unsupported }
  3512.  
  3513.   {$EXTERNALSYM IE_BADID}
  3514.   IE_BADID = -1;        { Invalid or unsupported id }
  3515.   {$EXTERNALSYM IE_OPEN}
  3516.   IE_OPEN = -2;         { Device Already Open }
  3517.   {$EXTERNALSYM IE_NOPEN}
  3518.   IE_NOPEN = -3;        { Device Not Open }
  3519.   {$EXTERNALSYM IE_MEMORY}
  3520.   IE_MEMORY = -4;       { Unable to allocate queues }
  3521.   {$EXTERNALSYM IE_DEFAULT}
  3522.   IE_DEFAULT = -5;      { Error in default parameters }
  3523.   {$EXTERNALSYM IE_HARDWARE}
  3524.   IE_HARDWARE = -10;    { Hardware Not Present }
  3525.   {$EXTERNALSYM IE_BYTESIZE}
  3526.   IE_BYTESIZE = -11;    { Illegal Byte Size }
  3527.   {$EXTERNALSYM IE_BAUDRATE}
  3528.   IE_BAUDRATE = -12;    { Unsupported BaudRate }
  3529.  
  3530.   { Events }
  3531.  
  3532.   {$EXTERNALSYM EV_RXCHAR}
  3533.   EV_RXCHAR = 1;        { Any Character received }
  3534.   {$EXTERNALSYM EV_RXFLAG}
  3535.   EV_RXFLAG = 2;        { Received certain character }
  3536.   {$EXTERNALSYM EV_TXEMPTY}
  3537.   EV_TXEMPTY = 4;       { Transmitt Queue Empty }
  3538.   {$EXTERNALSYM EV_CTS}
  3539.   EV_CTS = 8;           { CTS changed state }
  3540.   {$EXTERNALSYM EV_DSR}
  3541.   EV_DSR = $10;         { DSR changed state }
  3542.   {$EXTERNALSYM EV_RLSD}
  3543.   EV_RLSD = $20;        { RLSD changed state }
  3544.   {$EXTERNALSYM EV_BREAK}
  3545.   EV_BREAK = $40;       { BREAK received }
  3546.   {$EXTERNALSYM EV_ERR}
  3547.   EV_ERR = $80;         { Line status error occurred }
  3548.   {$EXTERNALSYM EV_RING}
  3549.   EV_RING = $100;       { Ring signal detected }
  3550.   {$EXTERNALSYM EV_PERR}
  3551.   EV_PERR = $200;       { Printer error occured }
  3552.   {$EXTERNALSYM EV_RX80FULL}
  3553.   EV_RX80FULL = $400;   { Receive buffer is 80 percent full }
  3554.   {$EXTERNALSYM EV_EVENT1}
  3555.   EV_EVENT1 = $800;     { Provider specific event 1 }
  3556.   {$EXTERNALSYM EV_EVENT2}
  3557.   EV_EVENT2 = $1000;    { Provider specific event 2 }
  3558.  
  3559.   { Escape functions }
  3560.  
  3561.   {$EXTERNALSYM SETXOFF}
  3562.   SETXOFF = 1;    { Simulate XOFF received }
  3563.   {$EXTERNALSYM SETXON}
  3564.   SETXON = 2;     { Simulate XON received }
  3565.   {$EXTERNALSYM SETRTS}
  3566.   SETRTS = 3;     { Set RTS high }
  3567.   {$EXTERNALSYM CLRRTS}
  3568.   CLRRTS = 4;     { Set RTS low }
  3569.   {$EXTERNALSYM SETDTR}
  3570.   SETDTR = 5;     { Set DTR high }
  3571.   {$EXTERNALSYM CLRDTR}
  3572.   CLRDTR = 6;     { Set DTR low }
  3573.   {$EXTERNALSYM RESETDEV}
  3574.   RESETDEV = 7;   { Reset device if possible }
  3575.   {$EXTERNALSYM SETBREAK}
  3576.   SETBREAK = 8;   { Set the device break line. }
  3577.   {$EXTERNALSYM CLRBREAK}
  3578.   CLRBREAK = 9;   { Clear the device break line. }
  3579.  
  3580.   { PURGE function flags. }
  3581.  
  3582.   {$EXTERNALSYM PURGE_TXABORT}
  3583.   PURGE_TXABORT = 1;     { Kill the pending/current writes to the comm port. }
  3584.   {$EXTERNALSYM PURGE_RXABORT}
  3585.   PURGE_RXABORT = 2;     { Kill the pending/current reads to the comm port. }
  3586.   {$EXTERNALSYM PURGE_TXCLEAR}
  3587.   PURGE_TXCLEAR = 4;     { Kill the transmit queue if there. }
  3588.   {$EXTERNALSYM PURGE_RXCLEAR}
  3589.   PURGE_RXCLEAR = 8;     { Kill the typeahead buffer if there. }
  3590.  
  3591.   {$EXTERNALSYM LPTx}
  3592.   LPTx = $80;     { Set if ID is for LPT device }
  3593.  
  3594.   { Modem Status Flags }
  3595.  
  3596.   {$EXTERNALSYM MS_CTS_ON}
  3597.   MS_CTS_ON = DWORD($0010);
  3598.   {$EXTERNALSYM MS_DSR_ON}
  3599.   MS_DSR_ON = DWORD($0020);
  3600.   {$EXTERNALSYM MS_RING_ON}
  3601.   MS_RING_ON = DWORD($0040);
  3602.   {$EXTERNALSYM MS_RLSD_ON}
  3603.   MS_RLSD_ON = DWORD($0080);
  3604.  
  3605.   { WaitSoundState() Constants }
  3606.  
  3607.   {$EXTERNALSYM S_QUEUEEMPTY}
  3608.   S_QUEUEEMPTY = 0;
  3609.   {$EXTERNALSYM S_THRESHOLD}
  3610.   S_THRESHOLD = 1;
  3611.   {$EXTERNALSYM S_ALLTHRESHOLD}
  3612.   S_ALLTHRESHOLD = 2;
  3613.  
  3614.   { Accent Modes }
  3615.  
  3616.   {$EXTERNALSYM S_NORMAL}
  3617.   S_NORMAL = 0;
  3618.   {$EXTERNALSYM S_LEGATO}
  3619.   S_LEGATO = 1;
  3620.   {$EXTERNALSYM S_STACCATO}
  3621.   S_STACCATO = 2;
  3622.  
  3623.   { SetSoundNoise() Sources }
  3624.  
  3625.   {$EXTERNALSYM S_PERIOD512}
  3626.   S_PERIOD512 = 0;     { Freq = N/512 high pitch, less coarse hiss }
  3627.   {$EXTERNALSYM S_PERIOD1024}
  3628.   S_PERIOD1024 = 1;    { Freq = N/1024 }
  3629.   {$EXTERNALSYM S_PERIOD2048}
  3630.   S_PERIOD2048 = 2;    { Freq = N/2048 low pitch, more coarse hiss }
  3631.   {$EXTERNALSYM S_PERIODVOICE}
  3632.   S_PERIODVOICE = 3;   { Source is frequency from voice channel (3) }
  3633.   {$EXTERNALSYM S_WHITE512}
  3634.   S_WHITE512 = 4;      { Freq = N/512 high pitch, less coarse hiss }
  3635.   {$EXTERNALSYM S_WHITE1024}
  3636.   S_WHITE1024 = 5;     { Freq = N/1024 }
  3637.   {$EXTERNALSYM S_WHITE2048}
  3638.   S_WHITE2048 = 6;     { Freq = N/2048 low pitch, more coarse hiss }
  3639.   {$EXTERNALSYM S_WHITEVOICE}
  3640.   S_WHITEVOICE = 7;    { Source is frequency from voice channel (3) }
  3641.  
  3642.   {$EXTERNALSYM S_SERDVNA}
  3643.   S_SERDVNA = -1;     { Device not available  }
  3644.   {$EXTERNALSYM S_SEROFM}
  3645.   S_SEROFM = -2;      { Out of memory }
  3646.   {$EXTERNALSYM S_SERMACT}
  3647.   S_SERMACT = -3;     { Music active }
  3648.   {$EXTERNALSYM S_SERQFUL}
  3649.   S_SERQFUL = -4;     { Queue full }
  3650.   {$EXTERNALSYM S_SERBDNT}
  3651.   S_SERBDNT = -5;     { Invalid note }
  3652.   {$EXTERNALSYM S_SERDLN}
  3653.   S_SERDLN = -6;      { Invalid note length }
  3654.   {$EXTERNALSYM S_SERDCC}
  3655.   S_SERDCC = -7;      { Invalid note count }
  3656.   {$EXTERNALSYM S_SERDTP}
  3657.   S_SERDTP = -8;      { Invalid tempo }
  3658.   {$EXTERNALSYM S_SERDVL}
  3659.   S_SERDVL = -9;      { Invalid volume }
  3660.   {$EXTERNALSYM S_SERDMD}
  3661.   S_SERDMD = -10;     { Invalid mode }
  3662.   {$EXTERNALSYM S_SERDSH}
  3663.   S_SERDSH = -11;     { Invalid shape }
  3664.   {$EXTERNALSYM S_SERDPT}
  3665.   S_SERDPT = -12;     { Invalid pitch }
  3666.   {$EXTERNALSYM S_SERDFQ}
  3667.   S_SERDFQ = -13;     { Invalid frequency }
  3668.   {$EXTERNALSYM S_SERDDR}
  3669.   S_SERDDR = -14;     { Invalid duration }
  3670.   {$EXTERNALSYM S_SERDSR}
  3671.   S_SERDSR = -15;     { Invalid source }
  3672.   {$EXTERNALSYM S_SERDST}
  3673.   S_SERDST = -16;     { Invalid state }
  3674.  
  3675.   {$EXTERNALSYM NMPWAIT_WAIT_FOREVER}
  3676.   NMPWAIT_WAIT_FOREVER = $FFFFFFFF;
  3677.   {$EXTERNALSYM NMPWAIT_NOWAIT}
  3678.   NMPWAIT_NOWAIT = 1;
  3679.   {$EXTERNALSYM NMPWAIT_USE_DEFAULT_WAIT}
  3680.   NMPWAIT_USE_DEFAULT_WAIT = 0;
  3681.  
  3682.   {$EXTERNALSYM FS_CASE_IS_PRESERVED}
  3683.   FS_CASE_IS_PRESERVED = FILE_CASE_PRESERVED_NAMES;
  3684.   {$EXTERNALSYM FS_CASE_SENSITIVE}
  3685.   FS_CASE_SENSITIVE = FILE_CASE_SENSITIVE_SEARCH;
  3686.   {$EXTERNALSYM FS_UNICODE_STORED_ON_DISK}
  3687.   FS_UNICODE_STORED_ON_DISK = FILE_UNICODE_ON_DISK;
  3688.   {$EXTERNALSYM FS_PERSISTENT_ACLS}
  3689.   FS_PERSISTENT_ACLS = FILE_PERSISTENT_ACLS;
  3690.   {$EXTERNALSYM FS_VOL_IS_COMPRESSED}
  3691.   FS_VOL_IS_COMPRESSED = FILE_VOLUME_IS_COMPRESSED;
  3692.   {$EXTERNALSYM FS_FILE_COMPRESSION}
  3693.   FS_FILE_COMPRESSION = FILE_FILE_COMPRESSION;
  3694.  
  3695.   {$EXTERNALSYM FILE_MAP_COPY}
  3696.   FILE_MAP_COPY = SECTION_QUERY;
  3697.   {$EXTERNALSYM FILE_MAP_WRITE}
  3698.   FILE_MAP_WRITE = SECTION_MAP_WRITE;
  3699.   {$EXTERNALSYM FILE_MAP_READ}
  3700.   FILE_MAP_READ = SECTION_MAP_READ;
  3701.   {$EXTERNALSYM FILE_MAP_ALL_ACCESS}
  3702.   FILE_MAP_ALL_ACCESS = SECTION_ALL_ACCESS;
  3703.  
  3704.   {$EXTERNALSYM OF_READ}
  3705.   OF_READ = 0;
  3706.   {$EXTERNALSYM OF_WRITE}
  3707.   OF_WRITE = 1;
  3708.   {$EXTERNALSYM OF_READWRITE}
  3709.   OF_READWRITE = 2;
  3710.   {$EXTERNALSYM OF_SHARE_COMPAT}
  3711.   OF_SHARE_COMPAT = 0;
  3712.   {$EXTERNALSYM OF_SHARE_EXCLUSIVE}
  3713.   OF_SHARE_EXCLUSIVE = $10;
  3714.   {$EXTERNALSYM OF_SHARE_DENY_WRITE}
  3715.   OF_SHARE_DENY_WRITE = $20;
  3716.   {$EXTERNALSYM OF_SHARE_DENY_READ}
  3717.   OF_SHARE_DENY_READ = 48;
  3718.   {$EXTERNALSYM OF_SHARE_DENY_NONE}
  3719.   OF_SHARE_DENY_NONE = $40;
  3720.   {$EXTERNALSYM OF_PARSE}
  3721.   OF_PARSE = $100;
  3722.   {$EXTERNALSYM OF_DELETE}
  3723.   OF_DELETE = $200;
  3724.   {$EXTERNALSYM OF_VERIFY}
  3725.   OF_VERIFY = $400;
  3726.   {$EXTERNALSYM OF_CANCEL}
  3727.   OF_CANCEL = $800;
  3728.   {$EXTERNALSYM OF_CREATE}
  3729.   OF_CREATE = $1000;
  3730.   {$EXTERNALSYM OF_PROMPT}
  3731.   OF_PROMPT = $2000;
  3732.   {$EXTERNALSYM OF_EXIST}
  3733.   OF_EXIST = $4000;
  3734.   {$EXTERNALSYM OF_REOPEN}
  3735.   OF_REOPEN = $8000;
  3736.  
  3737.   {$EXTERNALSYM OFS_MAXPATHNAME}
  3738.   OFS_MAXPATHNAME = 128;
  3739. type
  3740.   POFStruct = ^TOFStruct;
  3741.   {$EXTERNALSYM _OFSTRUCT}
  3742.   _OFSTRUCT = record
  3743.     cBytes: Byte;
  3744.     fFixedDisk: Byte;
  3745.     nErrCode: Word;
  3746.     Reserved1: Word;
  3747.     Reserved2: Word;
  3748.     szPathName: array[0..OFS_MAXPATHNAME-1] of CHAR;
  3749.   end;
  3750.   TOFStruct = _OFSTRUCT;
  3751.   {$EXTERNALSYM OFSTRUCT}
  3752.   OFSTRUCT = _OFSTRUCT;
  3753.  
  3754. {$EXTERNALSYM InterlockedIncrement}
  3755. function InterlockedIncrement(var Addend: Integer): Integer; stdcall;
  3756. {$EXTERNALSYM InterlockedDecrement}
  3757. function InterlockedDecrement(var Addend: Integer): Integer; stdcall;
  3758. {$EXTERNALSYM InterlockedExchange}
  3759. function InterlockedExchange(var Target: Integer; Value: Integer): Integer; stdcall;
  3760. {$EXTERNALSYM InterlockedCompareExchange}
  3761. function InterlockedCompareExchange(var Destination: Pointer; Exchange: Pointer;
  3762.   Comperand: Pointer): Pointer stdcall;
  3763. {$EXTERNALSYM InterlockedExchangeAdd}
  3764. function InterlockedExchangeAdd(Addend: PLongint; Value: Longint): Longint stdcall;
  3765.  
  3766.  
  3767. {$EXTERNALSYM FreeResource}
  3768. function FreeResource(hResData: HGLOBAL): BOOL; stdcall;
  3769. {$EXTERNALSYM LockResource}
  3770. function LockResource(hResData: HGLOBAL): Pointer; stdcall;
  3771. {$EXTERNALSYM UnlockResource}
  3772. function UnlockResource(hResData: THandle): BOOL;
  3773.  
  3774. const
  3775.   {$EXTERNALSYM MAXINTATOM}
  3776.   MAXINTATOM = $C000;
  3777.   {$EXTERNALSYM INVALID_ATOM}
  3778.   INVALID_ATOM = 0;
  3779.  
  3780. type
  3781.   MakeIntAtomA = PAnsiChar;
  3782.   MakeIntAtomW = PWideChar;
  3783.   MakeIntAtom = MakeIntAtomA;
  3784.  
  3785. {$EXTERNALSYM FreeLibrary}
  3786. function FreeLibrary(hLibModule: HMODULE): BOOL; stdcall;
  3787. {$EXTERNALSYM FreeLibraryAndExitThread}
  3788. procedure FreeLibraryAndExitThread(hLibModule: HMODULE; dwExitCode: DWORD); stdcall;
  3789. {$EXTERNALSYM DisableThreadLibraryCalls}
  3790. function DisableThreadLibraryCalls(hLibModule: HMODULE): BOOL; stdcall;
  3791. {$EXTERNALSYM GetProcAddress}
  3792. function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; stdcall;
  3793. {$EXTERNALSYM GetVersion}
  3794. function GetVersion: DWORD; stdcall;
  3795. {$EXTERNALSYM GlobalAlloc}
  3796. function GlobalAlloc(uFlags: UINT; dwBytes: DWORD): HGLOBAL; stdcall;
  3797. {$EXTERNALSYM GlobalReAlloc}
  3798. function GlobalReAlloc(hMem: HGLOBAL; dwBytes: DWORD; uFlags: UINT): HGLOBAL; stdcall;
  3799. {$EXTERNALSYM GlobalSize}
  3800. function GlobalSize(hMem: HGLOBAL): DWORD; stdcall;
  3801. {$EXTERNALSYM GlobalFlags}
  3802. function GlobalFlags(hMem: HGLOBAL): UINT; stdcall;
  3803. {$EXTERNALSYM GlobalLock}
  3804. function GlobalLock(hMem: HGLOBAL): Pointer; stdcall;
  3805. {$EXTERNALSYM GlobalHandle}
  3806. function GlobalHandle(Mem: Pointer): HGLOBAL; stdcall;
  3807. {$EXTERNALSYM GlobalUnlock}
  3808. function GlobalUnlock(hMem: HGLOBAL): BOOL; stdcall;
  3809. {$EXTERNALSYM GlobalFree}
  3810. function GlobalFree(hMem: HGLOBAL): HGLOBAL; stdcall;
  3811. {$EXTERNALSYM GlobalCompact}
  3812. function GlobalCompact(dwMinFree: DWORD): UINT; stdcall;
  3813. {$EXTERNALSYM GlobalFix}
  3814. procedure GlobalFix(hMem: HGLOBAL); stdcall;
  3815. {$EXTERNALSYM GlobalUnfix}
  3816. procedure GlobalUnfix(hMem: HGLOBAL); stdcall;
  3817. {$EXTERNALSYM GlobalWire}
  3818. function GlobalWire(hMem: HGLOBAL): Pointer; stdcall;
  3819. {$EXTERNALSYM GlobalUnWire}
  3820. function GlobalUnWire(hMem: HGLOBAL): BOOL; stdcall;
  3821. {$EXTERNALSYM GlobalMemoryStatus}
  3822. procedure GlobalMemoryStatus(var lpBuffer: TMemoryStatus); stdcall;
  3823. {$EXTERNALSYM LocalAlloc}
  3824. function LocalAlloc(uFlags, uBytes: UINT): HLOCAL; stdcall;
  3825. {$EXTERNALSYM LocalReAlloc}
  3826. function LocalReAlloc(hMem: HLOCAL; uBytes, uFlags: UINT): HLOCAL; stdcall;
  3827. {$EXTERNALSYM LocalLock}
  3828. function LocalLock(hMem: HLOCAL): Pointer; stdcall;
  3829. {$EXTERNALSYM LocalUnlock}
  3830. function LocalUnlock(hMem: HLOCAL): BOOL; stdcall;
  3831. {$EXTERNALSYM LocalSize}
  3832. function LocalSize(hMem: HLOCAL): UINT; stdcall;
  3833. {$EXTERNALSYM LocalFlags}
  3834. function LocalFlags(hMem: HLOCAL): UINT; stdcall;
  3835. {$EXTERNALSYM LocalFree}
  3836. function LocalFree(hMem: HLOCAL): HLOCAL; stdcall;
  3837. {$EXTERNALSYM LocalShrink}
  3838. function LocalShrink(hMem: HLOCAL; cbNewSize: UINT): UINT; stdcall;
  3839. {$EXTERNALSYM LocalCompact}
  3840. function LocalCompact(uMinFree: UINT): UINT; stdcall;
  3841. {$EXTERNALSYM FlushInstructionCache}
  3842. function FlushInstructionCache(hProcess: THandle;
  3843.   const lpBaseAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  3844. {$EXTERNALSYM VirtualAlloc}
  3845. function VirtualAlloc(lpvAddress: Pointer;
  3846.   dwSize, flAllocationType, flProtect: DWORD): Pointer; stdcall;
  3847. {$EXTERNALSYM VirtualFree}
  3848. function VirtualFree(lpAddress: Pointer; dwSize, dwFreeType: DWORD): BOOL; stdcall;
  3849. {$EXTERNALSYM VirtualProtect}
  3850. function VirtualProtect(lpAddress: Pointer; dwSize, flNewProtect: DWORD;
  3851.   lpflOldProtect: Pointer): BOOL; stdcall;
  3852. {$EXTERNALSYM VirtualQuery}
  3853. function VirtualQuery(lpAddress: Pointer;
  3854.   var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; stdcall;
  3855. {$EXTERNALSYM VirtualAllocEx}
  3856. function VirtualAllocEx(hProcess: THandle; lpAddress: Pointer;
  3857.   dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall;
  3858. {$EXTERNALSYM VirtualFreeEx}
  3859. function VirtualFreeEx(hProcess: THandle; lpAddress: Pointer;
  3860.         dwSize, dwFreeType: DWORD): Pointer; stdcall;
  3861. {$EXTERNALSYM VirtualProtectEx}
  3862. function VirtualProtectEx(hProcess: THandle; lpAddress: Pointer;
  3863.   dwSize, flNewProtect: DWORD; lpflOldProtect: Pointer): BOOL; stdcall;
  3864. {$EXTERNALSYM VirtualQueryEx}
  3865. function VirtualQueryEx(hProcess: THandle; lpAddress: Pointer;
  3866.   var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; stdcall;
  3867. {$EXTERNALSYM HeapCreate}
  3868. function HeapCreate(flOptions, dwInitialSize, dwMaximumSize: DWORD): THandle; stdcall;
  3869. {$EXTERNALSYM HeapDestroy}
  3870. function HeapDestroy(hHeap: THandle): BOOL; stdcall;
  3871. {$EXTERNALSYM HeapAlloc}
  3872. function HeapAlloc(hHeap: THandle; dwFlags, dwBytes: DWORD): Pointer; stdcall;
  3873. {$EXTERNALSYM HeapReAlloc}
  3874. function HeapReAlloc(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer; dwBytes: DWORD): Pointer; stdcall;
  3875. {$EXTERNALSYM HeapFree}
  3876. function HeapFree(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): BOOL; stdcall;
  3877. {$EXTERNALSYM HeapSize}
  3878. function HeapSize(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): DWORD; stdcall;
  3879. {$EXTERNALSYM HeapValidate}
  3880. function HeapValidate(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): BOOL; stdcall;
  3881. {$EXTERNALSYM HeapCompact}
  3882. function HeapCompact(hHeap: THandle; dwFlags: DWORD): UINT; stdcall;
  3883. {$EXTERNALSYM GetProcessHeap}
  3884. function GetProcessHeap: THandle; stdcall;
  3885. {$EXTERNALSYM GetProcessHeaps}
  3886. function GetProcessHeaps(NumberOfHeaps: DWORD; var ProcessHeaps: THandle): DWORD; stdcall;
  3887.  
  3888. type
  3889.   PProcessHeapEntry = ^TProcessHeapEntry;
  3890.   {$EXTERNALSYM _PROCESS_HEAP_ENTRY}
  3891.   _PROCESS_HEAP_ENTRY = record
  3892.     lpData: Pointer;
  3893.     cbData: DWORD;
  3894.     cbOverhead: Byte;
  3895.     iRegionIndex: Byte;
  3896.     wFlags: Word;
  3897.     case Integer of
  3898.       0: (
  3899.         hMem: THandle);
  3900.       1: (
  3901.         dwCommittedSize: DWORD;
  3902.         dwUnCommittedSize: DWORD;
  3903.         lpFirstBlock: Pointer;
  3904.         lpLastBlock: Pointer);
  3905.   end;
  3906.   TProcessHeapEntry = _PROCESS_HEAP_ENTRY;
  3907.   {$EXTERNALSYM PROCESS_HEAP_ENTRY}
  3908.   PROCESS_HEAP_ENTRY = _PROCESS_HEAP_ENTRY;
  3909.  
  3910. const
  3911.   {$EXTERNALSYM PROCESS_HEAP_REGION}
  3912.   PROCESS_HEAP_REGION = 1;
  3913.   {$EXTERNALSYM PROCESS_HEAP_UNCOMMITTED_RANGE}
  3914.   PROCESS_HEAP_UNCOMMITTED_RANGE = 2;
  3915.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_BUSY}
  3916.   PROCESS_HEAP_ENTRY_BUSY = 4;
  3917.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_MOVEABLE}
  3918.   PROCESS_HEAP_ENTRY_MOVEABLE = $10;
  3919.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_DDESHARE}
  3920.   PROCESS_HEAP_ENTRY_DDESHARE = $20;
  3921.  
  3922. {$EXTERNALSYM HeapLock}
  3923. function HeapLock(hHeap: THandle): BOOL; stdcall;
  3924. {$EXTERNALSYM HeapUnlock}
  3925. function HeapUnlock(hHeap: THandle): BOOL; stdcall;
  3926. {$EXTERNALSYM HeapWalk}
  3927. function HeapWalk(hHeap: THandle; var lpEntry: TProcessHeapEntry): BOOL; stdcall;
  3928.  
  3929.  
  3930. { GetBinaryType return values.}
  3931.  
  3932. const
  3933.   {$EXTERNALSYM SCS_32BIT_BINARY}
  3934.   SCS_32BIT_BINARY = 0;
  3935.   {$EXTERNALSYM SCS_DOS_BINARY}
  3936.   SCS_DOS_BINARY = 1;
  3937.   {$EXTERNALSYM SCS_WOW_BINARY}
  3938.   SCS_WOW_BINARY = 2;
  3939.   {$EXTERNALSYM SCS_PIF_BINARY}
  3940.   SCS_PIF_BINARY = 3;
  3941.   {$EXTERNALSYM SCS_POSIX_BINARY}
  3942.   SCS_POSIX_BINARY = 4;
  3943.   {$EXTERNALSYM SCS_OS216_BINARY}
  3944.   SCS_OS216_BINARY = 5;
  3945.  
  3946. {$EXTERNALSYM GetBinaryTypeA}
  3947. function GetBinaryTypeA(lpApplicationName: PAnsiChar; var lpBinaryType: DWORD): BOOL; stdcall;
  3948. {$EXTERNALSYM GetBinaryTypeW}
  3949. function GetBinaryTypeW(lpApplicationName: PWideChar; var lpBinaryType: DWORD): BOOL; stdcall;
  3950. {$EXTERNALSYM GetBinaryType}
  3951. function GetBinaryType(lpApplicationName: PChar; var lpBinaryType: DWORD): BOOL; stdcall;
  3952. {$EXTERNALSYM GetShortPathNameA}
  3953. function GetShortPathNameA(lpszLongPath: PAnsiChar; lpszShortPath: PAnsiChar;
  3954.   cchBuffer: DWORD): DWORD; stdcall;
  3955. {$EXTERNALSYM GetShortPathNameW}
  3956. function GetShortPathNameW(lpszLongPath: PWideChar; lpszShortPath: PWideChar;
  3957.   cchBuffer: DWORD): DWORD; stdcall;
  3958. {$EXTERNALSYM GetShortPathName}
  3959. function GetShortPathName(lpszLongPath: PChar; lpszShortPath: PChar;
  3960.   cchBuffer: DWORD): DWORD; stdcall;
  3961. {$EXTERNALSYM GetProcessAffinityMask}
  3962. function GetProcessAffinityMask(hProcess: THandle;
  3963.   var lpProcessAffinityMask, lpSystemAffinityMask: DWORD): BOOL; stdcall;
  3964. {$EXTERNALSYM SetProcessAffinityMask}
  3965. function SetProcessAffinityMask(hProcess: THandle;
  3966.   dwProcessAffinityMask: DWORD): BOOL; stdcall;
  3967. {$EXTERNALSYM GetProcessTimes}
  3968. function GetProcessTimes(hProcess: THandle;
  3969.   var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; stdcall;
  3970. {$EXTERNALSYM GetProcessWorkingSetSize}
  3971. function GetProcessWorkingSetSize(hProcess: THandle;
  3972.   var lpMinimumWorkingSetSize, lpMaximumWorkingSetSize: DWORD): BOOL; stdcall;
  3973. {$EXTERNALSYM SetProcessWorkingSetSize}
  3974. function SetProcessWorkingSetSize(hProcess: THandle;
  3975.   dwMinimumWorkingSetSize, dwMaximumWorkingSetSize: DWORD): BOOL; stdcall;
  3976. {$EXTERNALSYM OpenProcess}
  3977. function OpenProcess(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwProcessId: DWORD): THandle; stdcall;
  3978. {$EXTERNALSYM GetCurrentProcess}
  3979. function GetCurrentProcess: THandle; stdcall;
  3980. {$EXTERNALSYM GetCurrentProcessId}
  3981. function GetCurrentProcessId: DWORD; stdcall;
  3982. {$EXTERNALSYM ExitProcess}
  3983. procedure ExitProcess(uExitCode: UINT); stdcall;
  3984. {$EXTERNALSYM TerminateProcess}
  3985. function TerminateProcess(hProcess: THandle; uExitCode: UINT): BOOL; stdcall;
  3986. {$EXTERNALSYM GetExitCodeProcess}
  3987. function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; stdcall;
  3988. {$EXTERNALSYM FatalExit}
  3989. procedure FatalExit(ExitCode: Integer); stdcall;
  3990. {$EXTERNALSYM GetEnvironmentStringsA}
  3991. function GetEnvironmentStringsA: PAnsiChar; stdcall;
  3992. {$EXTERNALSYM GetEnvironmentStringsW}
  3993. function GetEnvironmentStringsW: PWideChar; stdcall;
  3994. {$EXTERNALSYM GetEnvironmentStrings}
  3995. function GetEnvironmentStrings: PChar; stdcall;
  3996. {$EXTERNALSYM FreeEnvironmentStringsA}
  3997. function FreeEnvironmentStringsA(p1: PAnsiChar): BOOL; stdcall;
  3998. {$EXTERNALSYM FreeEnvironmentStringsW}
  3999. function FreeEnvironmentStringsW(p1: PWideChar): BOOL; stdcall;
  4000. {$EXTERNALSYM FreeEnvironmentStrings}
  4001. function FreeEnvironmentStrings(p1: PChar): BOOL; stdcall;
  4002. {$EXTERNALSYM RaiseException}
  4003. procedure RaiseException(dwExceptionCode, dwExceptionFlags, nNumberOfArguments: DWORD;
  4004.   lpArguments: PDWORD); stdcall;
  4005. {$EXTERNALSYM UnhandledExceptionFilter}
  4006. function UnhandledExceptionFilter(const ExceptionInfo: TExceptionPointers): Longint; stdcall;
  4007. {$EXTERNALSYM CreateFiber}
  4008. function CreateFiber(dwStackSize: DWORD; lpStartAddress: TFNFiberStartRoutine;
  4009.   lpParameter: Pointer): BOOL; stdcall;
  4010. {$EXTERNALSYM DeleteFiber}
  4011. function DeleteFiber(lpFiber: Pointer): BOOL; stdcall;
  4012. {$EXTERNALSYM ConvertThreadToFiber}
  4013. function ConvertThreadToFiber(lpParameter: Pointer): BOOL; stdcall;
  4014. {$EXTERNALSYM SwitchToFiber}
  4015. function SwitchToFiber(lpFiber: Pointer): BOOL; stdcall;
  4016. {$EXTERNALSYM SwitchToThread}
  4017. function SwitchToThread: BOOL; stdcall;
  4018.  
  4019. type
  4020. {$IFDEF STRICT}
  4021.   TFNTopLevelExceptionFilter = function (const ExceptionInfo: TExceptionPointers): Longint stdcall;
  4022. {$ELSE}
  4023.   TFNTopLevelExceptionFilter = TFarProc;
  4024. {$ENDIF}
  4025.  
  4026. {$EXTERNALSYM SetUnhandledExceptionFilter}
  4027. function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter: TFNTopLevelExceptionFilter):
  4028.   TFNTopLevelExceptionFilter; stdcall;
  4029. {$EXTERNALSYM CreateThread}
  4030. function CreateThread(lpThreadAttributes: Pointer;
  4031.   dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine;
  4032.   lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
  4033. {$EXTERNALSYM CreateRemoteThread}
  4034. function CreateRemoteThread(hProcess: THandle; lpThreadAttributes: Pointer;
  4035.   dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer;
  4036.   dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
  4037. {$EXTERNALSYM GetCurrentThread}
  4038. function GetCurrentThread: THandle; stdcall;
  4039. {$EXTERNALSYM GetCurrentThreadId}
  4040. function GetCurrentThreadId: DWORD; stdcall;
  4041. {$EXTERNALSYM SetThreadAffinityMask}
  4042. function SetThreadAffinityMask(hThread: THandle; dwThreadAffinityMask: DWORD): DWORD; stdcall;
  4043. {$EXTERNALSYM SetThreadIdealProcessor}
  4044. function SetThreadIdealProcessor(hThread: THandle; dwIdealProcessor: DWORD): BOOL; stdcall;
  4045. {$EXTERNALSYM SetProcessPriorityBoost}
  4046. function SetProcessPriorityBoost(hThread: THandle; DisablePriorityBoost: Bool): BOOL; stdcall;
  4047. {$EXTERNALSYM GetProcessPriorityBoost}
  4048. function GetProcessPriorityBoost(hThread: THandle; var DisablePriorityBoost: Bool): BOOL; stdcall;
  4049. {$EXTERNALSYM SetThreadPriority}
  4050. function SetThreadPriority(hThread: THandle; nPriority: Integer): BOOL; stdcall;
  4051. {$EXTERNALSYM GetThreadPriority}
  4052. function GetThreadPriority(hThread: THandle): Integer; stdcall;
  4053. {$EXTERNALSYM SetThreadPriorityBoost}
  4054. function SetThreadPriorityBoost(hThread: THandle; DisablePriorityBoost: Bool): BOOL; stdcall;
  4055. {$EXTERNALSYM GetThreadPriorityBoost}
  4056. function GetThreadPriorityBoost(hThread: THandle; var DisablePriorityBoost: Bool): BOOL; stdcall;
  4057. {$EXTERNALSYM GetThreadTimes}
  4058. function GetThreadTimes(hThread: THandle;
  4059.   var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; stdcall;
  4060. {$EXTERNALSYM ExitThread}
  4061. procedure ExitThread(dwExitCode: DWORD); stdcall;
  4062. {$EXTERNALSYM TerminateThread}
  4063. function TerminateThread(hThread: THandle; dwExitCode: DWORD): BOOL; stdcall;
  4064. {$EXTERNALSYM GetExitCodeThread}
  4065. function GetExitCodeThread(hThread: THandle; var lpExitCode: DWORD): BOOL; stdcall;
  4066. {$EXTERNALSYM GetThreadSelectorEntry}
  4067. function GetThreadSelectorEntry(hThread: THandle; dwSelector: DWORD;
  4068.   var lpSelectorEntry: TLDTEntry): BOOL; stdcall;
  4069. {$EXTERNALSYM GetLastError}
  4070. function GetLastError: DWORD; stdcall;
  4071. {$EXTERNALSYM SetLastError}
  4072. procedure SetLastError(dwErrCode: DWORD); stdcall;
  4073. {$EXTERNALSYM GetOverlappedResult}
  4074. function GetOverlappedResult(hFile: THandle; const lpOverlapped: TOverlapped;
  4075.   var lpNumberOfBytesTransferred: DWORD; bWait: BOOL): BOOL; stdcall;
  4076. {$EXTERNALSYM CreateIoCompletionPort}
  4077. function CreateIoCompletionPort(FileHandle, ExistingCompletionPort: THandle;
  4078.   CompletionKey, NumberOfConcurrentThreads: DWORD): THandle; stdcall;
  4079. {$EXTERNALSYM GetQueuedCompletionStatus}
  4080. function GetQueuedCompletionStatus(CompletionPort: THandle;
  4081.   var lpNumberOfBytesTransferred, lpCompletionKey: DWORD;
  4082.   var lpOverlapped: POverlapped; dwMilliseconds: DWORD): BOOL; stdcall;
  4083. {$EXTERNALSYM PostQueuedCompletionStatus}
  4084. function PostQueuedCompletionStatus(CompletionPort: THandle; dwNumberOfBytesTransferred: DWORD;
  4085.   dwCompletionKey: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4086.  
  4087. const
  4088.   {$EXTERNALSYM SEM_FAILCRITICALERRORS}
  4089.   SEM_FAILCRITICALERRORS = 1;
  4090.   {$EXTERNALSYM SEM_NOGPFAULTERRORBOX}
  4091.   SEM_NOGPFAULTERRORBOX = 2;
  4092.   {$EXTERNALSYM SEM_NOALIGNMENTFAULTEXCEPT}
  4093.   SEM_NOALIGNMENTFAULTEXCEPT = 4;
  4094.   {$EXTERNALSYM SEM_NOOPENFILEERRORBOX}
  4095.   SEM_NOOPENFILEERRORBOX = $8000;
  4096.  
  4097. {$EXTERNALSYM SetErrorMode}
  4098. function SetErrorMode(uMode: UINT): UINT; stdcall;
  4099. {$EXTERNALSYM ReadProcessMemory}
  4100. function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  4101.   nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
  4102. {$EXTERNALSYM WriteProcessMemory}
  4103. function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  4104.   nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;
  4105. {$EXTERNALSYM GetThreadContext}
  4106. function GetThreadContext(hThread: THandle; var lpContext: TContext): BOOL; stdcall;
  4107. {$EXTERNALSYM SetThreadContext}
  4108. function SetThreadContext(hThread: THandle; const lpContext: TContext): BOOL; stdcall;
  4109. {$EXTERNALSYM SuspendThread}
  4110. function SuspendThread(hThread: THandle): DWORD; stdcall;
  4111. {$EXTERNALSYM ResumeThread}
  4112. function ResumeThread(hThread: THandle): DWORD; stdcall;
  4113.  
  4114. type
  4115. {$IFDEF STRICT}
  4116.   TFNAPCProc = procedure (dwParam: DWORD) stdcall;
  4117. {$ELSE}
  4118.   TFNAPCProc = TFarProc;
  4119. {$ENDIF}
  4120.  
  4121. {$EXTERNALSYM QueueUserAPC}
  4122. function QueueUserAPC(pfnAPC: TFNAPCProc; hThread: THandle; dwData: DWORD): BOOL; stdcall;
  4123. {$EXTERNALSYM DebugBreak}
  4124. procedure DebugBreak; stdcall;
  4125. {$EXTERNALSYM WaitForDebugEvent}
  4126. function WaitForDebugEvent(var lpDebugEvent: TDebugEvent; dwMilliseconds: DWORD): BOOL; stdcall;
  4127. {$EXTERNALSYM ContinueDebugEvent}
  4128. function ContinueDebugEvent(dwProcessId, dwThreadId, dwContinueStatus: DWORD): BOOL; stdcall;
  4129. {$EXTERNALSYM DebugActiveProcess}
  4130. function DebugActiveProcess(dwProcessId: DWORD): BOOL; stdcall;
  4131. {$EXTERNALSYM InitializeCriticalSection}
  4132. procedure InitializeCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4133. {$EXTERNALSYM EnterCriticalSection}
  4134. procedure EnterCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4135. {$EXTERNALSYM LeaveCriticalSection}
  4136. procedure LeaveCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4137. {$EXTERNALSYM TryEnterCriticalSection}
  4138. function TryEnterCriticalSection(var lpCriticalSection: TRTLCriticalSection): BOOL; stdcall;
  4139. {$EXTERNALSYM DeleteCriticalSection}
  4140. procedure DeleteCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4141. {$EXTERNALSYM SetEvent}
  4142. function SetEvent(hEvent: THandle): BOOL; stdcall;
  4143. {$EXTERNALSYM ResetEvent}
  4144. function ResetEvent(hEvent: THandle): BOOL; stdcall;
  4145. {$EXTERNALSYM PulseEvent}
  4146. function PulseEvent(hEvent: THandle): BOOL; stdcall;
  4147. {$EXTERNALSYM ReleaseSemaphore}
  4148. function ReleaseSemaphore(hSemaphore: THandle; lReleaseCount: Longint;
  4149.   lpPreviousCount: Pointer): BOOL; stdcall;
  4150. {$EXTERNALSYM ReleaseMutex}
  4151. function ReleaseMutex(hMutex: THandle): BOOL; stdcall;
  4152. {$EXTERNALSYM WaitForSingleObject}
  4153. function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; stdcall;
  4154.  
  4155. type
  4156.   TWOHandleArray = array[0..MAXIMUM_WAIT_OBJECTS - 1] of THandle;
  4157.   PWOHandleArray = ^TWOHandleArray;
  4158.  
  4159. {$EXTERNALSYM WaitForMultipleObjects}
  4160. function WaitForMultipleObjects(nCount: DWORD; lpHandles: PWOHandleArray;
  4161.   bWaitAll: BOOL; dwMilliseconds: DWORD): DWORD; stdcall;
  4162. {$EXTERNALSYM Sleep}
  4163. procedure Sleep(dwMilliseconds: DWORD); stdcall;
  4164. {$EXTERNALSYM LoadResource}
  4165. function LoadResource(hModule: HINST; hResInfo: HRSRC): HGLOBAL; stdcall;
  4166. {$EXTERNALSYM SizeofResource}
  4167. function SizeofResource(hModule: HINST; hResInfo: HRSRC): DWORD; stdcall;
  4168. {$EXTERNALSYM GlobalDeleteAtom}
  4169. function GlobalDeleteAtom(nAtom: ATOM): ATOM; stdcall;
  4170. {$EXTERNALSYM InitAtomTable}
  4171. function InitAtomTable(nSize: DWORD): BOOL; stdcall;
  4172. {$EXTERNALSYM DeleteAtom}
  4173. function DeleteAtom(nAtom: ATOM): ATOM; stdcall;
  4174. {$EXTERNALSYM SetHandleCount}
  4175. function SetHandleCount(uNumber: UINT): UINT; stdcall;
  4176. {$EXTERNALSYM GetLogicalDrives}
  4177. function GetLogicalDrives: DWORD; stdcall;
  4178. {$EXTERNALSYM LockFile}
  4179. function LockFile(hFile: THandle; dwFileOffsetLow, dwFileOffsetHigh: DWORD;
  4180.   nNumberOfBytesToLockLow, nNumberOfBytesToLockHigh: DWORD): BOOL; stdcall;
  4181. {$EXTERNALSYM UnlockFile}
  4182. function UnlockFile(hFile: THandle; dwFileOffsetLow, dwFileOffsetHigh: DWORD;
  4183.   nNumberOfBytesToUnlockLow, nNumberOfBytesToUnlockHigh: DWORD): BOOL; stdcall;
  4184. {$EXTERNALSYM LockFileEx}
  4185. function LockFileEx(hFile: THandle; dwFlags, dwReserved: DWORD;
  4186.   nNumberOfBytesToLockLow, nNumberOfBytesToLockHigh: DWORD;
  4187.   const lpOverlapped: TOverlapped): BOOL; stdcall;
  4188.  
  4189. const
  4190.   {$EXTERNALSYM LOCKFILE_FAIL_IMMEDIATELY}
  4191.   LOCKFILE_FAIL_IMMEDIATELY = 1;
  4192.   {$EXTERNALSYM LOCKFILE_EXCLUSIVE_LOCK}
  4193.   LOCKFILE_EXCLUSIVE_LOCK = 2;
  4194.  
  4195. {$EXTERNALSYM UnlockFileEx}
  4196. function UnlockFileEx(hFile: THandle; dwReserved, nNumberOfBytesToUnlockLow: DWORD;
  4197.   nNumberOfBytesToUnlockHigh: DWORD; const lpOverlapped: TOverlapped): BOOL; stdcall;
  4198.  
  4199. type
  4200.   PByHandleFileInformation = ^TByHandleFileInformation;
  4201.   {$EXTERNALSYM _BY_HANDLE_FILE_INFORMATION}
  4202.   _BY_HANDLE_FILE_INFORMATION = record
  4203.     dwFileAttributes: DWORD;
  4204.     ftCreationTime: TFileTime;
  4205.     ftLastAccessTime: TFileTime;
  4206.     ftLastWriteTime: TFileTime;
  4207.     dwVolumeSerialNumber: DWORD;
  4208.     nFileSizeHigh: DWORD;
  4209.     nFileSizeLow: DWORD;
  4210.     nNumberOfLinks: DWORD;
  4211.     nFileIndexHigh: DWORD;
  4212.     nFileIndexLow: DWORD;
  4213.   end;
  4214.   TByHandleFileInformation = _BY_HANDLE_FILE_INFORMATION;
  4215.   {$EXTERNALSYM BY_HANDLE_FILE_INFORMATION}
  4216.   BY_HANDLE_FILE_INFORMATION = _BY_HANDLE_FILE_INFORMATION;
  4217.  
  4218. {$EXTERNALSYM GetFileInformationByHandle}
  4219. function GetFileInformationByHandle(hFile: THandle;
  4220.   var lpFileInformation: TByHandleFileInformation): BOOL; stdcall;
  4221. {$EXTERNALSYM GetFileType}
  4222. function GetFileType(hFile: THandle): DWORD; stdcall;
  4223. {$EXTERNALSYM GetFileSize}
  4224. function GetFileSize(hFile: THandle; lpFileSizeHigh: Pointer): DWORD; stdcall;
  4225. {$EXTERNALSYM GetStdHandle}
  4226. function GetStdHandle(nStdHandle: DWORD): THandle; stdcall;
  4227. {$EXTERNALSYM SetStdHandle}
  4228. function SetStdHandle(nStdHandle: DWORD; hHandle: THandle): BOOL; stdcall;
  4229. {$EXTERNALSYM WriteFile}
  4230. function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
  4231.   var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4232. {$EXTERNALSYM ReadFile}
  4233. function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;
  4234.   var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4235. {$EXTERNALSYM FlushFileBuffers}
  4236. function FlushFileBuffers(hFile: THandle): BOOL; stdcall;
  4237. {$EXTERNALSYM DeviceIoControl}
  4238. function DeviceIoControl(hDevice: THandle; dwIoControlCode: DWORD; lpInBuffer: Pointer;
  4239.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  4240.   var lpBytesReturned: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4241. {$EXTERNALSYM SetEndOfFile}
  4242. function SetEndOfFile(hFile: THandle): BOOL; stdcall;
  4243. {$EXTERNALSYM SetFilePointer}
  4244. function SetFilePointer(hFile: THandle; lDistanceToMove: Longint;
  4245.   lpDistanceToMoveHigh: Pointer; dwMoveMethod: DWORD): DWORD; stdcall;
  4246. {$EXTERNALSYM FindClose}
  4247. function FindClose(hFindFile: THandle): BOOL; stdcall;
  4248. {$EXTERNALSYM GetFileTime}
  4249. function GetFileTime(hFile: THandle;
  4250.   lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall;
  4251. {$EXTERNALSYM SetFileTime}
  4252. function SetFileTime(hFile: THandle;
  4253.   lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall;
  4254. {$EXTERNALSYM CloseHandle}
  4255. function CloseHandle(hObject: THandle): BOOL; stdcall;
  4256. {$EXTERNALSYM DuplicateHandle}
  4257. function DuplicateHandle(hSourceProcessHandle, hSourceHandle, hTargetProcessHandle: THandle;
  4258.   lpTargetHandle: PHandle; dwDesiredAccess: DWORD;
  4259.   bInheritHandle: BOOL; dwOptions: DWORD): BOOL; stdcall;
  4260. {$EXTERNALSYM GetHandleInformation}
  4261. function GetHandleInformation(hObject: THandle; var lpdwFlags: DWORD): BOOL; stdcall;
  4262. {$EXTERNALSYM SetHandleInformation}
  4263. function SetHandleInformation(hObject: THandle; dwMask: DWORD; dwFlags: DWORD): BOOL; stdcall;
  4264.  
  4265. const
  4266.   {$EXTERNALSYM HANDLE_FLAG_INHERIT}
  4267.   HANDLE_FLAG_INHERIT = 1;
  4268.   {$EXTERNALSYM HANDLE_FLAG_PROTECT_FROM_CLOSE}
  4269.   HANDLE_FLAG_PROTECT_FROM_CLOSE = 2;
  4270.   {$EXTERNALSYM HINSTANCE_ERROR}
  4271.   HINSTANCE_ERROR = $20;
  4272.  
  4273. {$EXTERNALSYM LoadModule}
  4274. function LoadModule(lpModuleName: LPCSTR; lpParameterBlock: Pointer): DWORD; stdcall;
  4275. {$EXTERNALSYM WinExec}
  4276. function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall;
  4277. {$EXTERNALSYM ClearCommBreak}
  4278. function ClearCommBreak(hFile: THandle): BOOL; stdcall;
  4279. {$EXTERNALSYM ClearCommError}
  4280. function ClearCommError(hFile: THandle; var lpErrors: DWORD; lpStat: PComStat): BOOL; stdcall;
  4281. {$EXTERNALSYM SetupComm}
  4282. function SetupComm(hFile: THandle; dwInQueue, dwOutQueue: DWORD): BOOL; stdcall;
  4283. {$EXTERNALSYM EscapeCommFunction}
  4284. function EscapeCommFunction(hFile: THandle; dwFunc: DWORD): BOOL; stdcall;
  4285. {$EXTERNALSYM GetCommConfig}
  4286. function GetCommConfig(hCommDev: THandle; var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  4287. {$EXTERNALSYM GetCommMask}
  4288. function GetCommMask(hFile: THandle; var lpEvtMask: DWORD): BOOL; stdcall;
  4289. {$EXTERNALSYM GetCommProperties}
  4290. function GetCommProperties(hFile: THandle; var lpCommProp: TCommProp): BOOL; stdcall;
  4291. {$EXTERNALSYM GetCommModemStatus}
  4292. function GetCommModemStatus(hFile: THandle; var lpModemStat: DWORD): BOOL; stdcall;
  4293. {$EXTERNALSYM GetCommState}
  4294. function GetCommState(hFile: THandle; var lpDCB: TDCB): BOOL; stdcall;
  4295. {$EXTERNALSYM GetCommTimeouts}
  4296. function GetCommTimeouts(hFile: THandle; var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  4297. {$EXTERNALSYM PurgeComm}
  4298. function PurgeComm(hFile: THandle; dwFlags: DWORD): BOOL; stdcall;
  4299. {$EXTERNALSYM SetCommBreak}
  4300. function SetCommBreak(hFile: THandle): BOOL; stdcall;
  4301. {$EXTERNALSYM SetCommConfig}
  4302. function SetCommConfig(hCommDev: THandle; const lpCC: TCommConfig; dwSize: DWORD): BOOL; stdcall;
  4303. {$EXTERNALSYM SetCommMask}
  4304. function SetCommMask(hFile: THandle; dwEvtMask: DWORD): BOOL; stdcall;
  4305. {$EXTERNALSYM SetCommState}
  4306. function SetCommState(hFile: THandle; const lpDCB: TDCB): BOOL; stdcall;
  4307. {$EXTERNALSYM SetCommTimeouts}
  4308. function SetCommTimeouts(hFile: THandle; const lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  4309. {$EXTERNALSYM TransmitCommChar}
  4310. function TransmitCommChar(hFile: THandle; cChar: CHAR): BOOL; stdcall;
  4311. {$EXTERNALSYM WaitCommEvent}
  4312. function WaitCommEvent(hFile: THandle; var lpEvtMask: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4313. {$EXTERNALSYM SetTapePosition}
  4314. function SetTapePosition(hDevice: THandle; dwPositionMethod, dwPartition: DWORD;
  4315.   dwOffsetLow, dwOffsetHigh: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4316. {$EXTERNALSYM GetTapePosition}
  4317. function GetTapePosition(hDevice: THandle; dwPositionType: DWORD;
  4318.   var lpdwPartition, lpdwOffsetLow: DWORD; lpdwOffsetHigh: Pointer): DWORD; stdcall;
  4319. {$EXTERNALSYM PrepareTape}
  4320. function PrepareTape(hDevice: THandle; dwOperation: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4321. {$EXTERNALSYM EraseTape}
  4322. function EraseTape(hDevice: THandle; dwEraseType: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4323. {$EXTERNALSYM CreateTapePartition}
  4324. function CreateTapePartition(hDevice: THandle; dwPartitionMethod, dwCount, dwSize: DWORD): DWORD; stdcall;
  4325. {$EXTERNALSYM WriteTapemark}
  4326. function WriteTapemark(hDevice: THandle;
  4327.   dwTapemarkType, dwTapemarkCount: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4328. {$EXTERNALSYM GetTapeStatus}
  4329. function GetTapeStatus(hDevice: THandle): DWORD; stdcall;
  4330. {$EXTERNALSYM GetTapeParameters}
  4331. function GetTapeParameters(hDevice: THandle; dwOperation: DWORD;
  4332.   var lpdwSize: DWORD; lpTapeInformation: Pointer): DWORD; stdcall;
  4333.  
  4334. const
  4335.   {$EXTERNALSYM GET_TAPE_MEDIA_INFORMATION}
  4336.   GET_TAPE_MEDIA_INFORMATION = 0;
  4337.   {$EXTERNALSYM GET_TAPE_DRIVE_INFORMATION}
  4338.   GET_TAPE_DRIVE_INFORMATION = 1;
  4339.  
  4340. {$EXTERNALSYM SetTapeParameters}
  4341. function SetTapeParameters(hDevice: THandle; dwOperation: DWORD;
  4342.   lpTapeInformation: Pointer): DWORD; stdcall;
  4343.  
  4344. const
  4345.   {$EXTERNALSYM SET_TAPE_MEDIA_INFORMATION}
  4346.   SET_TAPE_MEDIA_INFORMATION = 0;
  4347.   {$EXTERNALSYM SET_TAPE_DRIVE_INFORMATION}
  4348.   SET_TAPE_DRIVE_INFORMATION = 1;
  4349.  
  4350. {$EXTERNALSYM Beep}
  4351. function Beep(dwFreq, dwDuration: DWORD): BOOL; stdcall;
  4352. {$EXTERNALSYM MulDiv}
  4353. function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; stdcall;
  4354. {$EXTERNALSYM GetSystemTime}
  4355. procedure GetSystemTime(var lpSystemTime: TSystemTime); stdcall;
  4356. {$EXTERNALSYM GetSystemTimeAsFileTime}
  4357. procedure GetSystemTimeAsFileTime(var lpSystemTimeAsFileTime: TFileTime); stdcall;
  4358. {$EXTERNALSYM SetSystemTime}
  4359. function SetSystemTime(const lpSystemTime: TSystemTime): BOOL; stdcall;
  4360. {$EXTERNALSYM GetLocalTime}
  4361. procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall;
  4362. {$EXTERNALSYM SetLocalTime}
  4363. function SetLocalTime(const lpSystemTime: TSystemTime): BOOL; stdcall;
  4364. {$EXTERNALSYM GetSystemInfo}
  4365. procedure GetSystemInfo(var lpSystemInfo: TSystemInfo); stdcall;
  4366. {$EXTERNALSYM IsProcessorFeaturePresent}
  4367. function IsProcessorFeaturePresent(ProcessorFeature: DWORD): BOOL; stdcall;
  4368.  
  4369.  
  4370. type
  4371.   PTimeZoneInformation = ^TTimeZoneInformation;
  4372.   {$EXTERNALSYM _TIME_ZONE_INFORMATION}
  4373.   _TIME_ZONE_INFORMATION = record
  4374.     Bias: Longint;
  4375.     StandardName: array[0..31] of WCHAR;
  4376.     StandardDate: TSystemTime;
  4377.     StandardBias: Longint;
  4378.     DaylightName: array[0..31] of WCHAR;
  4379.     DaylightDate: TSystemTime;
  4380.     DaylightBias: Longint;
  4381.   end;
  4382.   TTimeZoneInformation = _TIME_ZONE_INFORMATION;
  4383.   {$EXTERNALSYM TIME_ZONE_INFORMATION}
  4384.   TIME_ZONE_INFORMATION = _TIME_ZONE_INFORMATION;
  4385.  
  4386. {$EXTERNALSYM SystemTimeToTzSpecificLocalTime}
  4387. function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation;
  4388.   var lpUniversalTime, lpLocalTime: TSystemTime): BOOL; stdcall;
  4389. {$EXTERNALSYM GetTimeZoneInformation}
  4390. function GetTimeZoneInformation(var lpTimeZoneInformation: TTimeZoneInformation): DWORD; stdcall;
  4391. {$EXTERNALSYM SetTimeZoneInformation}
  4392. function SetTimeZoneInformation(const lpTimeZoneInformation: TTimeZoneInformation): BOOL; stdcall;
  4393.  
  4394. { Routines to convert back and forth between system time and file time }
  4395.  
  4396. {$EXTERNALSYM SystemTimeToFileTime}
  4397. function SystemTimeToFileTime(const lpSystemTime: TSystemTime; var lpFileTime: TFileTime): BOOL; stdcall;
  4398. {$EXTERNALSYM FileTimeToLocalFileTime}
  4399. function FileTimeToLocalFileTime(const lpFileTime: TFileTime; var lpLocalFileTime: TFileTime): BOOL; stdcall;
  4400. {$EXTERNALSYM LocalFileTimeToFileTime}
  4401. function LocalFileTimeToFileTime(const lpLocalFileTime: TFileTime; var lpFileTime: TFileTime): BOOL; stdcall;
  4402. {$EXTERNALSYM FileTimeToSystemTime}
  4403. function FileTimeToSystemTime(const lpFileTime: TFileTime; var lpSystemTime: TSystemTime): BOOL; stdcall;
  4404. {$EXTERNALSYM CompareFileTime}
  4405. function CompareFileTime(const lpFileTime1, lpFileTime2: TFileTime): Longint; stdcall;
  4406. {$EXTERNALSYM FileTimeToDosDateTime}
  4407. function FileTimeToDosDateTime(const lpFileTime: TFileTime;
  4408.   var lpFatDate, lpFatTime: Word): BOOL; stdcall;
  4409. {$EXTERNALSYM DosDateTimeToFileTime}
  4410. function DosDateTimeToFileTime(wFatDate, wFatTime: Word; var lpFileTime: TFileTime): BOOL; stdcall;
  4411. {$EXTERNALSYM GetTickCount}
  4412. function GetTickCount: DWORD; stdcall;
  4413. {$EXTERNALSYM SetSystemTimeAdjustment}
  4414. function SetSystemTimeAdjustment(dwTimeAdjustment: DWORD; bTimeAdjustmentDisabled: BOOL): BOOL; stdcall;
  4415. {$EXTERNALSYM GetSystemTimeAdjustment}
  4416. function GetSystemTimeAdjustment(var lpTimeAdjustment, lpTimeIncrement: DWORD;
  4417.   var lpTimeAdjustmentDisabled: BOOL): BOOL; stdcall;
  4418. {$EXTERNALSYM FormatMessageA}
  4419. function FormatMessageA(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4420.   lpBuffer: PAnsiChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4421. {$EXTERNALSYM FormatMessageW}
  4422. function FormatMessageW(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4423.   lpBuffer: PWideChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4424. {$EXTERNALSYM FormatMessage}
  4425. function FormatMessage(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4426.   lpBuffer: PChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4427.  
  4428. const
  4429.   {$EXTERNALSYM FORMAT_MESSAGE_ALLOCATE_BUFFER}
  4430.   FORMAT_MESSAGE_ALLOCATE_BUFFER = $100;
  4431.   {$EXTERNALSYM FORMAT_MESSAGE_IGNORE_INSERTS}
  4432.   FORMAT_MESSAGE_IGNORE_INSERTS = $200;
  4433.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_STRING}
  4434.   FORMAT_MESSAGE_FROM_STRING = $400;
  4435.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_HMODULE}
  4436.   FORMAT_MESSAGE_FROM_HMODULE = $800;
  4437.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_SYSTEM}
  4438.   FORMAT_MESSAGE_FROM_SYSTEM = $1000;
  4439.   {$EXTERNALSYM FORMAT_MESSAGE_ARGUMENT_ARRAY}
  4440.   FORMAT_MESSAGE_ARGUMENT_ARRAY = $2000;
  4441.   {$EXTERNALSYM FORMAT_MESSAGE_MAX_WIDTH_MASK}
  4442.   FORMAT_MESSAGE_MAX_WIDTH_MASK = 255;
  4443.  
  4444. {$EXTERNALSYM CreatePipe}
  4445. function CreatePipe(var hReadPipe, hWritePipe: THandle;
  4446.   lpPipeAttributes: PSecurityAttributes; nSize: DWORD): BOOL; stdcall;
  4447. {$EXTERNALSYM ConnectNamedPipe}
  4448. function ConnectNamedPipe(hNamedPipe: THandle; lpOverlapped: POverlapped): BOOL; stdcall;
  4449. {$EXTERNALSYM DisconnectNamedPipe}
  4450. function DisconnectNamedPipe(hNamedPipe: THandle): BOOL; stdcall;
  4451. {$EXTERNALSYM SetNamedPipeHandleState}
  4452. function SetNamedPipeHandleState(hNamedPipe: THandle; var lpMode: DWORD;
  4453.   lpMaxCollectionCount, lpCollectDataTimeout: Pointer): BOOL; stdcall;
  4454. {$EXTERNALSYM GetNamedPipeInfo}
  4455. function GetNamedPipeInfo(hNamedPipe: THandle; var lpFlags: DWORD;
  4456.   lpOutBufferSize, lpInBufferSize, lpMaxInstances: Pointer): BOOL; stdcall;
  4457. {$EXTERNALSYM PeekNamedPipe}
  4458. function PeekNamedPipe(hNamedPipe: THandle; lpBuffer: Pointer; nBufferSize: DWORD;
  4459.   lpBytesRead, lpTotalBytesAvail, lpBytesLeftThisMessage: Pointer): BOOL; stdcall;
  4460. {$EXTERNALSYM TransactNamedPipe}
  4461. function TransactNamedPipe(hNamedPipe: THandle; lpInBuffer: Pointer; nInBufferSize: DWORD;
  4462.   lpOutBuffer: Pointer; nOutBufferSize: DWORD; var lpBytesRead: DWORD;
  4463.   lpOverlapped: POverlapped): BOOL; stdcall;
  4464.  
  4465. {$EXTERNALSYM CreateMailslotA}
  4466. function CreateMailslotA(lpName: PAnsiChar; nMaxMessageSize: DWORD;
  4467.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4468. {$EXTERNALSYM CreateMailslotW}
  4469. function CreateMailslotW(lpName: PWideChar; nMaxMessageSize: DWORD;
  4470.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4471. {$EXTERNALSYM CreateMailslot}
  4472. function CreateMailslot(lpName: PChar; nMaxMessageSize: DWORD;
  4473.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4474. {$EXTERNALSYM GetMailslotInfo}
  4475. function GetMailslotInfo(hMailslot: THandle; lpMaxMessageSize: Pointer;
  4476.   var lpNextSize: DWORD; lpMessageCount, lpReadTimeout: Pointer): BOOL; stdcall;
  4477. {$EXTERNALSYM SetMailslotInfo}
  4478. function SetMailslotInfo(hMailslot: THandle; lReadTimeout: DWORD): BOOL; stdcall;
  4479. {$EXTERNALSYM MapViewOfFile}
  4480. function MapViewOfFile(hFileMappingObject: THandle; dwDesiredAccess: DWORD;
  4481.   dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap: DWORD): Pointer; stdcall;
  4482. {$EXTERNALSYM FlushViewOfFile}
  4483. function FlushViewOfFile(const lpBaseAddress: Pointer; dwNumberOfBytesToFlush: DWORD): BOOL; stdcall;
  4484. {$EXTERNALSYM UnmapViewOfFile}
  4485. function UnmapViewOfFile(lpBaseAddress: Pointer): BOOL; stdcall;
  4486.  
  4487. { _l Compat Functions }
  4488.  
  4489. {$EXTERNALSYM lstrcmpA}
  4490. function lstrcmpA(lpString1, lpString2: PAnsiChar): Integer; stdcall;
  4491. {$EXTERNALSYM lstrcmpW}
  4492. function lstrcmpW(lpString1, lpString2: PWideChar): Integer; stdcall;
  4493. {$EXTERNALSYM lstrcmp}
  4494. function lstrcmp(lpString1, lpString2: PChar): Integer; stdcall;
  4495. {$EXTERNALSYM lstrcmpiA}
  4496. function lstrcmpiA(lpString1, lpString2: PAnsiChar): Integer; stdcall;
  4497. {$EXTERNALSYM lstrcmpiW}
  4498. function lstrcmpiW(lpString1, lpString2: PWideChar): Integer; stdcall;
  4499. {$EXTERNALSYM lstrcmpi}
  4500. function lstrcmpi(lpString1, lpString2: PChar): Integer; stdcall;
  4501. {$EXTERNALSYM lstrcpynA}
  4502. function lstrcpynA(lpString1, lpString2: PAnsiChar; iMaxLength: Integer): PAnsiChar; stdcall;
  4503. {$EXTERNALSYM lstrcpynW}
  4504. function lstrcpynW(lpString1, lpString2: PWideChar; iMaxLength: Integer): PWideChar; stdcall;
  4505. {$EXTERNALSYM lstrcpyn}
  4506. function lstrcpyn(lpString1, lpString2: PChar; iMaxLength: Integer): PChar; stdcall;
  4507. {$EXTERNALSYM lstrcpyA}
  4508. function lstrcpyA(lpString1, lpString2: PAnsiChar): PAnsiChar; stdcall;
  4509. {$EXTERNALSYM lstrcpyW}
  4510. function lstrcpyW(lpString1, lpString2: PWideChar): PWideChar; stdcall;
  4511. {$EXTERNALSYM lstrcpy}
  4512. function lstrcpy(lpString1, lpString2: PChar): PChar; stdcall;
  4513. {$EXTERNALSYM lstrcatA}
  4514. function lstrcatA(lpString1, lpString2: PAnsiChar): PAnsiChar; stdcall;
  4515. {$EXTERNALSYM lstrcatW}
  4516. function lstrcatW(lpString1, lpString2: PWideChar): PWideChar; stdcall;
  4517. {$EXTERNALSYM lstrcat}
  4518. function lstrcat(lpString1, lpString2: PChar): PChar; stdcall;
  4519. {$EXTERNALSYM lstrlenA}
  4520. function lstrlenA(lpString: PAnsiChar): Integer; stdcall;
  4521. {$EXTERNALSYM lstrlenW}
  4522. function lstrlenW(lpString: PWideChar): Integer; stdcall;
  4523. {$EXTERNALSYM lstrlen}
  4524. function lstrlen(lpString: PChar): Integer; stdcall;
  4525.  
  4526. {$EXTERNALSYM OpenFile}
  4527. function OpenFile(const lpFileName: LPCSTR; var lpReOpenBuff: TOFStruct; uStyle: UINT): HFILE; stdcall;
  4528. {$EXTERNALSYM _lopen}
  4529. function _lopen(const lpPathName: LPCSTR; iReadWrite: Integer): HFILE; stdcall;
  4530. {$EXTERNALSYM _lcreat}
  4531. function _lcreat(const lpPathName: LPCSTR; iAttribute: Integer): HFILE; stdcall;
  4532. {$EXTERNALSYM _lread}
  4533. function _lread(hFile: HFILE; lpBuffer: Pointer; uBytes: UINT): UINT; stdcall;
  4534. {$EXTERNALSYM _lwrite}
  4535. function _lwrite(hFile: HFILE; const lpBuffer: LPCSTR; uBytes: UINT): UINT; stdcall;
  4536. {$EXTERNALSYM _hread}
  4537. function _hread(hFile: HFILE; lpBuffer: Pointer; lBytes: Longint): Longint; stdcall;
  4538. {$EXTERNALSYM _hwrite}
  4539. function _hwrite(hFile: HFILE; lpBuffer: LPCSTR; lBytes: Longint): Longint; stdcall;
  4540. {$EXTERNALSYM _lclose}
  4541. function _lclose(hFile: HFILE): HFILE; stdcall;
  4542. {$EXTERNALSYM _llseek}
  4543. function _llseek(hFile: HFILE; lOffset: Longint; iOrigin: Integer): Longint; stdcall;
  4544. {$EXTERNALSYM IsTextUnicode}
  4545. function IsTextUnicode(lpBuffer: Pointer; cb: Integer; lpi: PINT): BOOL; stdcall;
  4546. {$EXTERNALSYM TlsAlloc}
  4547. function TlsAlloc: DWORD; stdcall;
  4548.  
  4549. const
  4550.   {$EXTERNALSYM TLS_OUT_OF_INDEXES}
  4551.   TLS_OUT_OF_INDEXES = DWORD($FFFFFFFF);
  4552.  
  4553. {$EXTERNALSYM TlsGetValue}
  4554. function TlsGetValue(dwTlsIndex: DWORD): Pointer; stdcall;
  4555. {$EXTERNALSYM TlsSetValue}
  4556. function TlsSetValue(dwTlsIndex: DWORD; lpTlsValue: Pointer): BOOL; stdcall;
  4557. {$EXTERNALSYM TlsFree}
  4558. function TlsFree(dwTlsIndex: DWORD): BOOL; stdcall;
  4559.  
  4560. type
  4561. {$IFDEF STRICT}
  4562.   TPROverlappedCompletionRoutine =
  4563.     procedure (dwErrorCode, dwNumberOfBytesTransfered: DWORD;
  4564.     lpOverlapped: POverlapped) stdcall;
  4565. {$ELSE}
  4566.   TPROverlappedCompletionRoutine = TFarProc;
  4567. {$ENDIF}
  4568.  
  4569. {$EXTERNALSYM SleepEx}
  4570. function SleepEx(dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4571. {$EXTERNALSYM WaitForSingleObjectEx}
  4572. function WaitForSingleObjectEx(hHandle: THandle; dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4573. {$EXTERNALSYM WaitForMultipleObjectsEx}
  4574. function WaitForMultipleObjectsEx(nCount: DWORD; lpHandles: PWOHandleArray;
  4575.   bWaitAll: BOOL; dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4576. {$EXTERNALSYM SignalObjectAndWait}
  4577. function SignalObjectAndWait(hObjectToSignal: THandle; hObjectToWaitOn: THandle;
  4578.   dwMilliseconds: DWORD; bAlertable: BOOL): BOOL; stdcall;
  4579. {$EXTERNALSYM ReadFileEx}
  4580. function ReadFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  4581.   lpOverlapped: POverlapped; lpCompletionRoutine: TPROverlappedCompletionRoutine): BOOL; stdcall;
  4582. {$EXTERNALSYM WriteFileEx}
  4583. function WriteFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
  4584.   const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;
  4585. {$EXTERNALSYM BackupRead}
  4586. function BackupRead(hFile: THandle; lpBuffer: PByte; nNumberOfBytesToRead: DWORD;
  4587.   var lpNumberOfBytesRead: DWORD; bAbort: BOOL;
  4588.   bProcessSecurity: BOOL; var lpContext: Pointer): BOOL; stdcall;
  4589. {$EXTERNALSYM BackupSeek}
  4590. function BackupSeek(hFile: THandle; dwLowBytesToSeek, dwHighBytesToSeek: DWORD;
  4591.   var lpdwLowByteSeeked, lpdwHighByteSeeked: DWORD; lpContext: Pointer): BOOL; stdcall;
  4592. {$EXTERNALSYM BackupWrite}
  4593. function BackupWrite(hFile: THandle; lpBuffer: PByte; nNumberOfBytesToWrite: DWORD;
  4594.   var lpNumberOfBytesWritten: DWORD; bAbort, bProcessSecurity: BOOL; var lpContext: Pointer): BOOL; stdcall;
  4595.  
  4596. type
  4597.   PWIN32StreamID = ^TWIN32StreamID;
  4598.   {$EXTERNALSYM _WIN32_STREAM_ID}
  4599.   _WIN32_STREAM_ID = record
  4600.     dwStreamId: DWORD;
  4601.     dwStreamAttributes: DWORD;
  4602.     Size: TLargeInteger;
  4603.     dwStreamNameSize: DWORD;
  4604.     cStreamName: array[0..0] of WCHAR;
  4605.   end;
  4606.   TWIN32StreamID = _WIN32_STREAM_ID;
  4607.   {$EXTERNALSYM WIN32_STREAM_ID}
  4608.   WIN32_STREAM_ID = _WIN32_STREAM_ID;
  4609.  
  4610. const
  4611.   { Stream IDs }
  4612.   {$EXTERNALSYM BACKUP_INVALID}
  4613.   BACKUP_INVALID = 0;
  4614.   {$EXTERNALSYM BACKUP_DATA}
  4615.   BACKUP_DATA = 1;
  4616.   {$EXTERNALSYM BACKUP_EA_DATA}
  4617.   BACKUP_EA_DATA = 2;
  4618.   {$EXTERNALSYM BACKUP_SECURITY_DATA}
  4619.   BACKUP_SECURITY_DATA = 3;
  4620.   {$EXTERNALSYM BACKUP_ALTERNATE_DATA}
  4621.   BACKUP_ALTERNATE_DATA = 4;
  4622.   {$EXTERNALSYM BACKUP_LINK}
  4623.   BACKUP_LINK = 5;
  4624.   {$EXTERNALSYM BACKUP_PROPERTY_DATA}
  4625.   BACKUP_PROPERTY_DATA = 6;
  4626.  
  4627.   { Stream Attributes}
  4628.   {$EXTERNALSYM STREAM_NORMAL_ATTRIBUTE}
  4629.   STREAM_NORMAL_ATTRIBUTE = 0;
  4630.   {$EXTERNALSYM STREAM_MODIFIED_WHEN_READ}
  4631.   STREAM_MODIFIED_WHEN_READ = 1;
  4632.   {$EXTERNALSYM STREAM_CONTAINS_SECURITY}
  4633.   STREAM_CONTAINS_SECURITY = 2;
  4634.   {$EXTERNALSYM STREAM_CONTAINS_PROPERTIES}
  4635.   STREAM_CONTAINS_PROPERTIES = 4;
  4636.  
  4637.   { Dual Mode API below this line. Dual Mode Structures also included. }
  4638.   {$EXTERNALSYM STARTF_USESHOWWINDOW}
  4639.   STARTF_USESHOWWINDOW = 1;
  4640.   {$EXTERNALSYM STARTF_USESIZE}
  4641.   STARTF_USESIZE = 2;
  4642.   {$EXTERNALSYM STARTF_USEPOSITION}
  4643.   STARTF_USEPOSITION = 4;
  4644.   {$EXTERNALSYM STARTF_USECOUNTCHARS}
  4645.   STARTF_USECOUNTCHARS = 8;
  4646.   {$EXTERNALSYM STARTF_USEFILLATTRIBUTE}
  4647.   STARTF_USEFILLATTRIBUTE = $10;
  4648.   {$EXTERNALSYM STARTF_RUNFULLSCREEN}
  4649.   STARTF_RUNFULLSCREEN = $20;  { ignored for non-x86 platforms }
  4650.   {$EXTERNALSYM STARTF_FORCEONFEEDBACK}
  4651.   STARTF_FORCEONFEEDBACK = $40;
  4652.   {$EXTERNALSYM STARTF_FORCEOFFFEEDBACK}
  4653.   STARTF_FORCEOFFFEEDBACK = $80;
  4654.   {$EXTERNALSYM STARTF_USESTDHANDLES}
  4655.   STARTF_USESTDHANDLES = $100;
  4656.   {$EXTERNALSYM STARTF_USEHOTKEY}
  4657.   STARTF_USEHOTKEY = $200;
  4658.  
  4659. type
  4660.   PStartupInfo = ^TStartupInfo;
  4661.   {$EXTERNALSYM _STARTUPINFOA}
  4662.   _STARTUPINFOA = record
  4663.     cb: DWORD;
  4664.     lpReserved: Pointer;
  4665.     lpDesktop: Pointer;
  4666.     lpTitle: Pointer;
  4667.     dwX: DWORD;
  4668.     dwY: DWORD;
  4669.     dwXSize: DWORD;
  4670.     dwYSize: DWORD;
  4671.     dwXCountChars: DWORD;
  4672.     dwYCountChars: DWORD;
  4673.     dwFillAttribute: DWORD;
  4674.     dwFlags: DWORD;
  4675.     wShowWindow: Word;
  4676.     cbReserved2: Word;
  4677.     lpReserved2: PByte;
  4678.     hStdInput: THandle;
  4679.     hStdOutput: THandle;
  4680.     hStdError: THandle;
  4681.   end;
  4682.   TStartupInfo = _STARTUPINFOA;
  4683.   {$EXTERNALSYM STARTUPINFO}
  4684.   STARTUPINFO = _STARTUPINFOA;
  4685.  
  4686. const
  4687.   {$EXTERNALSYM SHUTDOWN_NORETRY}
  4688.   SHUTDOWN_NORETRY = 1;
  4689.  
  4690. type
  4691.   PWin32FindDataA = ^TWin32FindDataA;
  4692.   PWin32FindDataW = ^TWin32FindDataW;
  4693.   PWin32FindData = PWin32FindDataA;
  4694.   {$EXTERNALSYM _WIN32_FIND_DATAA}
  4695.   _WIN32_FIND_DATAA = record
  4696.     dwFileAttributes: DWORD;
  4697.     ftCreationTime: TFileTime;
  4698.     ftLastAccessTime: TFileTime;
  4699.     ftLastWriteTime: TFileTime;
  4700.     nFileSizeHigh: DWORD;
  4701.     nFileSizeLow: DWORD;
  4702.     dwReserved0: DWORD;
  4703.     dwReserved1: DWORD;
  4704.     cFileName: array[0..MAX_PATH - 1] of AnsiChar;
  4705.     cAlternateFileName: array[0..13] of AnsiChar;
  4706.   end;
  4707.   {$EXTERNALSYM _WIN32_FIND_DATAW}
  4708.   _WIN32_FIND_DATAW = record
  4709.     dwFileAttributes: DWORD;
  4710.     ftCreationTime: TFileTime;
  4711.     ftLastAccessTime: TFileTime;
  4712.     ftLastWriteTime: TFileTime;
  4713.     nFileSizeHigh: DWORD;
  4714.     nFileSizeLow: DWORD;
  4715.     dwReserved0: DWORD;
  4716.     dwReserved1: DWORD;
  4717.     cFileName: array[0..MAX_PATH - 1] of WideChar;
  4718.     cAlternateFileName: array[0..13] of WideChar;
  4719.   end;
  4720.   {$EXTERNALSYM _WIN32_FIND_DATA}
  4721.   _WIN32_FIND_DATA = _WIN32_FIND_DATAA;
  4722.   TWin32FindDataA = _WIN32_FIND_DATAA;
  4723.   TWin32FindDataW = _WIN32_FIND_DATAW;
  4724.   TWin32FindData = TWin32FindDataA;
  4725.   {$EXTERNALSYM WIN32_FIND_DATAA}
  4726.   WIN32_FIND_DATAA = _WIN32_FIND_DATAA;
  4727.   {$EXTERNALSYM WIN32_FIND_DATAW}
  4728.   WIN32_FIND_DATAW = _WIN32_FIND_DATAW;
  4729.   {$EXTERNALSYM WIN32_FIND_DATA}
  4730.   WIN32_FIND_DATA = WIN32_FIND_DATAA;
  4731.  
  4732.   PWin32FileAttributeData = ^TWin32FileAttributeData;
  4733.   {$EXTERNALSYM _WIN32_FILE_ATTRIBUTE_DATA}
  4734.   _WIN32_FILE_ATTRIBUTE_DATA = record
  4735.     dwFileAttributes: DWORD;
  4736.     ftCreationTime: TFileTime;
  4737.     ftLastAccessTime: TFileTime;
  4738.     ftLastWriteTime: TFileTime;
  4739.     nFileSizeHigh: DWORD;
  4740.     nFileSizeLow: DWORD;
  4741.   end;
  4742.   TWin32FileAttributeData = _WIN32_FILE_ATTRIBUTE_DATA;
  4743.   {$EXTERNALSYM WIN32_FILE_ATTRIBUTE_DATA}
  4744.   WIN32_FILE_ATTRIBUTE_DATA = _WIN32_FILE_ATTRIBUTE_DATA;
  4745.  
  4746. {$EXTERNALSYM CreateMutexA}
  4747. function CreateMutexA(lpMutexAttributes: PSecurityAttributes;
  4748.   bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4749. {$EXTERNALSYM CreateMutexW}
  4750. function CreateMutexW(lpMutexAttributes: PSecurityAttributes;
  4751.   bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
  4752. {$EXTERNALSYM CreateMutex}
  4753. function CreateMutex(lpMutexAttributes: PSecurityAttributes;
  4754.   bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
  4755. {$EXTERNALSYM OpenMutexA}
  4756. function OpenMutexA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4757. {$EXTERNALSYM OpenMutexW}
  4758. function OpenMutexW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4759. {$EXTERNALSYM OpenMutex}
  4760. function OpenMutex(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4761. {$EXTERNALSYM CreateEventA}
  4762. function CreateEventA(lpEventAttributes: PSecurityAttributes;
  4763.   bManualReset, bInitialState: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4764. {$EXTERNALSYM CreateEventW}
  4765. function CreateEventW(lpEventAttributes: PSecurityAttributes;
  4766.   bManualReset, bInitialState: BOOL; lpName: PWideChar): THandle; stdcall;
  4767. {$EXTERNALSYM CreateEvent}
  4768. function CreateEvent(lpEventAttributes: PSecurityAttributes;
  4769.   bManualReset, bInitialState: BOOL; lpName: PChar): THandle; stdcall;
  4770. {$EXTERNALSYM OpenEventA}
  4771. function OpenEventA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4772. {$EXTERNALSYM OpenEventW}
  4773. function OpenEventW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4774. {$EXTERNALSYM OpenEvent}
  4775. function OpenEvent(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4776. {$EXTERNALSYM CreateSemaphoreA}
  4777. function CreateSemaphoreA(lpSemaphoreAttributes: PSecurityAttributes;
  4778.   lInitialCount, lMaximumCount: Longint; lpName: PAnsiChar): THandle; stdcall;
  4779. {$EXTERNALSYM CreateSemaphoreW}
  4780. function CreateSemaphoreW(lpSemaphoreAttributes: PSecurityAttributes;
  4781.   lInitialCount, lMaximumCount: Longint; lpName: PWideChar): THandle; stdcall;
  4782. {$EXTERNALSYM CreateSemaphore}
  4783. function CreateSemaphore(lpSemaphoreAttributes: PSecurityAttributes;
  4784.   lInitialCount, lMaximumCount: Longint; lpName: PChar): THandle; stdcall;
  4785. {$EXTERNALSYM OpenSemaphoreA}
  4786. function OpenSemaphoreA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4787. {$EXTERNALSYM OpenSemaphoreW}
  4788. function OpenSemaphoreW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4789. {$EXTERNALSYM OpenSemaphore}
  4790. function OpenSemaphore(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4791.  
  4792. type
  4793. {$IFDEF STRICT}
  4794.   TFNTimerAPCRoutine = procedure (lpArgToCompletionRoutine: Pointer;
  4795.     dwTimerLowValue, dwTimerHighValue: DWORD); stdcall;
  4796. {$ELSE}
  4797.   TFNTimerAPCRoutine = TFarProc;
  4798. {$ENDIF}
  4799.  
  4800. {$EXTERNALSYM CreateWaitableTimerA}
  4801. function CreateWaitableTimerA(lpTimerAttributes: PSecurityAttributes;
  4802.   bManualReset: BOOL; lpTimerName: PAnsiChar): BOOL; stdcall;
  4803. {$EXTERNALSYM CreateWaitableTimerW}
  4804. function CreateWaitableTimerW(lpTimerAttributes: PSecurityAttributes;
  4805.   bManualReset: BOOL; lpTimerName: PWideChar): BOOL; stdcall;
  4806. {$EXTERNALSYM CreateWaitableTimer}
  4807. function CreateWaitableTimer(lpTimerAttributes: PSecurityAttributes;
  4808.   bManualReset: BOOL; lpTimerName: PChar): BOOL; stdcall;
  4809. {$EXTERNALSYM OpenWaitableTimerA}
  4810. function OpenWaitableTimerA(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  4811.   lpTimerName: PAnsiChar): BOOL; stdcall;
  4812. {$EXTERNALSYM OpenWaitableTimerW}
  4813. function OpenWaitableTimerW(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  4814.   lpTimerName: PWideChar): BOOL; stdcall;
  4815. {$EXTERNALSYM OpenWaitableTimer}
  4816. function OpenWaitableTimer(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  4817.   lpTimerName: PChar): BOOL; stdcall;
  4818. {$EXTERNALSYM SetWaitableTimer}
  4819. function SetWaitableTimer(hTimer: THandle; const lpDueTime: TLargeInteger;
  4820.   lPeriod: Longint; pfnCompletionRoutine: TFNTimerAPCRoutine;
  4821.   lpArgToCompletionRoutine: Pointer; fResume: BOOL): BOOL; stdcall;
  4822. {$EXTERNALSYM CancelWaitableTimer}
  4823. function CancelWaitableTimer(hTimer: THandle): BOOL; stdcall;
  4824. {$EXTERNALSYM CreateFileMappingA}
  4825. function CreateFileMappingA(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  4826.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PAnsiChar): THandle; stdcall;
  4827. {$EXTERNALSYM CreateFileMappingW}
  4828. function CreateFileMappingW(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  4829.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PWideChar): THandle; stdcall;
  4830. {$EXTERNALSYM CreateFileMapping}
  4831. function CreateFileMapping(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  4832.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PChar): THandle; stdcall;
  4833. {$EXTERNALSYM OpenFileMappingA}
  4834. function OpenFileMappingA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4835. {$EXTERNALSYM OpenFileMappingW}
  4836. function OpenFileMappingW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4837. {$EXTERNALSYM OpenFileMapping}
  4838. function OpenFileMapping(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4839. {$EXTERNALSYM GetLogicalDriveStringsA}
  4840. function GetLogicalDriveStringsA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  4841. {$EXTERNALSYM GetLogicalDriveStringsW}
  4842. function GetLogicalDriveStringsW(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  4843. {$EXTERNALSYM GetLogicalDriveStrings}
  4844. function GetLogicalDriveStrings(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  4845. {$EXTERNALSYM LoadLibraryA}
  4846. function LoadLibraryA(lpLibFileName: PAnsiChar): HMODULE; stdcall;
  4847. {$EXTERNALSYM LoadLibraryW}
  4848. function LoadLibraryW(lpLibFileName: PWideChar): HMODULE; stdcall;
  4849. {$EXTERNALSYM LoadLibrary}
  4850. function LoadLibrary(lpLibFileName: PChar): HMODULE; stdcall;
  4851. {$EXTERNALSYM LoadLibraryExA}
  4852. function LoadLibraryExA(lpLibFileName: PAnsiChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  4853. {$EXTERNALSYM LoadLibraryExW}
  4854. function LoadLibraryExW(lpLibFileName: PWideChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  4855. {$EXTERNALSYM LoadLibraryEx}
  4856. function LoadLibraryEx(lpLibFileName: PChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  4857.  
  4858. const
  4859.   {$EXTERNALSYM DONT_RESOLVE_DLL_REFERENCES}
  4860.   DONT_RESOLVE_DLL_REFERENCES = 1;
  4861.   {$EXTERNALSYM LOAD_LIBRARY_AS_DATAFILE}
  4862.   LOAD_LIBRARY_AS_DATAFILE = 2;
  4863.   {$EXTERNALSYM LOAD_WITH_ALTERED_SEARCH_PATH}
  4864.   LOAD_WITH_ALTERED_SEARCH_PATH = 8;
  4865.  
  4866. {$EXTERNALSYM GetModuleFileNameA}
  4867. function GetModuleFileNameA(hModule: HINST; lpFilename: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  4868. {$EXTERNALSYM GetModuleFileNameW}
  4869. function GetModuleFileNameW(hModule: HINST; lpFilename: PWideChar; nSize: DWORD): DWORD; stdcall;
  4870. {$EXTERNALSYM GetModuleFileName}
  4871. function GetModuleFileName(hModule: HINST; lpFilename: PChar; nSize: DWORD): DWORD; stdcall;
  4872. {$EXTERNALSYM GetModuleHandleA}
  4873. function GetModuleHandleA(lpModuleName: PAnsiChar): HMODULE; stdcall;
  4874. {$EXTERNALSYM GetModuleHandleW}
  4875. function GetModuleHandleW(lpModuleName: PWideChar): HMODULE; stdcall;
  4876. {$EXTERNALSYM GetModuleHandle}
  4877. function GetModuleHandle(lpModuleName: PChar): HMODULE; stdcall;
  4878. {$EXTERNALSYM CreateProcessA}
  4879. function CreateProcessA(lpApplicationName: PAnsiChar; lpCommandLine: PAnsiChar;
  4880.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  4881.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  4882.   lpCurrentDirectory: PAnsiChar; const lpStartupInfo: TStartupInfo;
  4883.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  4884. {$EXTERNALSYM CreateProcessW}
  4885. function CreateProcessW(lpApplicationName: PWideChar; lpCommandLine: PWideChar;
  4886.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  4887.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  4888.   lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
  4889.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  4890. {$EXTERNALSYM CreateProcess}
  4891. function CreateProcess(lpApplicationName: PChar; lpCommandLine: PChar;
  4892.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  4893.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  4894.   lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
  4895.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  4896. {$EXTERNALSYM SetProcessShutdownParameters}
  4897. function SetProcessShutdownParameters(dwLevel, dwFlags: DWORD): BOOL; stdcall;
  4898. {$EXTERNALSYM GetProcessShutdownParameters}
  4899. function GetProcessShutdownParameters(var lpdwLevel, lpdwFlags: DWORD): BOOL; stdcall;
  4900. {$EXTERNALSYM GetProcessVersion}
  4901. function GetProcessVersion(ProcessId: DWORD): DWORD; stdcall;
  4902. {$EXTERNALSYM FatalAppExitA}
  4903. procedure FatalAppExitA(uAction: UINT; lpMessageText: PAnsiChar); stdcall;
  4904. {$EXTERNALSYM FatalAppExitW}
  4905. procedure FatalAppExitW(uAction: UINT; lpMessageText: PWideChar); stdcall;
  4906. {$EXTERNALSYM FatalAppExit}
  4907. procedure FatalAppExit(uAction: UINT; lpMessageText: PChar); stdcall;
  4908. {$EXTERNALSYM GetStartupInfoA}
  4909. procedure GetStartupInfoA(var lpStartupInfo: TStartupInfo); stdcall;
  4910. {$EXTERNALSYM GetStartupInfoW}
  4911. procedure GetStartupInfoW(var lpStartupInfo: TStartupInfo); stdcall;
  4912. {$EXTERNALSYM GetStartupInfo}
  4913. procedure GetStartupInfo(var lpStartupInfo: TStartupInfo); stdcall;
  4914. {$EXTERNALSYM GetCommandLineA}
  4915. function GetCommandLineA: PAnsiChar; stdcall;
  4916. {$EXTERNALSYM GetCommandLineW}
  4917. function GetCommandLineW: PWideChar; stdcall;
  4918. {$EXTERNALSYM GetCommandLine}
  4919. function GetCommandLine: PChar; stdcall;
  4920. {$EXTERNALSYM GetEnvironmentVariableA}
  4921. function GetEnvironmentVariableA(lpName: PAnsiChar; lpBuffer: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  4922. {$EXTERNALSYM GetEnvironmentVariableW}
  4923. function GetEnvironmentVariableW(lpName: PWideChar; lpBuffer: PWideChar; nSize: DWORD): DWORD; stdcall;
  4924. {$EXTERNALSYM GetEnvironmentVariable}
  4925. function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;
  4926. {$EXTERNALSYM SetEnvironmentVariableA}
  4927. function SetEnvironmentVariableA(lpName, lpValue: PAnsiChar): BOOL; stdcall;
  4928. {$EXTERNALSYM SetEnvironmentVariableW}
  4929. function SetEnvironmentVariableW(lpName, lpValue: PWideChar): BOOL; stdcall;
  4930. {$EXTERNALSYM SetEnvironmentVariable}
  4931. function SetEnvironmentVariable(lpName, lpValue: PChar): BOOL; stdcall;
  4932. {$EXTERNALSYM ExpandEnvironmentStringsA}
  4933. function ExpandEnvironmentStringsA(lpSrc: PAnsiChar; lpDst: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  4934. {$EXTERNALSYM ExpandEnvironmentStringsW}
  4935. function ExpandEnvironmentStringsW(lpSrc: PWideChar; lpDst: PWideChar; nSize: DWORD): DWORD; stdcall;
  4936. {$EXTERNALSYM ExpandEnvironmentStrings}
  4937. function ExpandEnvironmentStrings(lpSrc: PChar; lpDst: PChar; nSize: DWORD): DWORD; stdcall;
  4938. {$EXTERNALSYM OutputDebugStringA}
  4939. procedure OutputDebugStringA(lpOutputString: PAnsiChar); stdcall;
  4940. {$EXTERNALSYM OutputDebugStringW}
  4941. procedure OutputDebugStringW(lpOutputString: PWideChar); stdcall;
  4942. {$EXTERNALSYM OutputDebugString}
  4943. procedure OutputDebugString(lpOutputString: PChar); stdcall;
  4944. {$EXTERNALSYM FindResourceA}
  4945. function FindResourceA(hModule: HMODULE; lpName, lpType: PAnsiChar): HRSRC; stdcall;
  4946. {$EXTERNALSYM FindResourceW}
  4947. function FindResourceW(hModule: HMODULE; lpName, lpType: PWideChar): HRSRC; stdcall;
  4948. {$EXTERNALSYM FindResource}
  4949. function FindResource(hModule: HMODULE; lpName, lpType: PChar): HRSRC; stdcall;
  4950. {$EXTERNALSYM FindResourceExA}
  4951. function FindResourceExA(hModule: HMODULE; lpType, lpName: PAnsiChar; wLanguage: Word): HRSRC; stdcall;
  4952. {$EXTERNALSYM FindResourceExW}
  4953. function FindResourceExW(hModule: HMODULE; lpType, lpName: PWideChar; wLanguage: Word): HRSRC; stdcall;
  4954. {$EXTERNALSYM FindResourceEx}
  4955. function FindResourceEx(hModule: HMODULE; lpType, lpName: PChar; wLanguage: Word): HRSRC; stdcall;
  4956.  
  4957. type
  4958.   {$EXTERNALSYM ENUMRESTYPEPROC}
  4959.   ENUMRESTYPEPROC = FARPROC;
  4960.   {$EXTERNALSYM ENUMRESNAMEPROC}
  4961.   ENUMRESNAMEPROC = FARPROC;
  4962.   {$EXTERNALSYM ENUMRESLANGPROC}
  4963.   ENUMRESLANGPROC = FARPROC;
  4964.  
  4965. {$EXTERNALSYM EnumResourceTypesA}
  4966. function EnumResourceTypesA(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  4967.   lParam: Longint): BOOL; stdcall;
  4968. {$EXTERNALSYM EnumResourceTypesW}
  4969. function EnumResourceTypesW(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  4970.   lParam: Longint): BOOL; stdcall;
  4971. {$EXTERNALSYM EnumResourceTypes}
  4972. function EnumResourceTypes(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  4973.   lParam: Longint): BOOL; stdcall;
  4974. {$EXTERNALSYM EnumResourceNamesA}
  4975. function EnumResourceNamesA(hModule: HMODULE; lpType: PAnsiChar;
  4976.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  4977. {$EXTERNALSYM EnumResourceNamesW}
  4978. function EnumResourceNamesW(hModule: HMODULE; lpType: PWideChar;
  4979.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  4980. {$EXTERNALSYM EnumResourceNames}
  4981. function EnumResourceNames(hModule: HMODULE; lpType: PChar;
  4982.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  4983. {$EXTERNALSYM EnumResourceLanguagesA}
  4984. function EnumResourceLanguagesA(hModule: HMODULE; lpType, lpName: PAnsiChar;
  4985.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  4986. {$EXTERNALSYM EnumResourceLanguagesW}
  4987. function EnumResourceLanguagesW(hModule: HMODULE; lpType, lpName: PWideChar;
  4988.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  4989. {$EXTERNALSYM EnumResourceLanguages}
  4990. function EnumResourceLanguages(hModule: HMODULE; lpType, lpName: PChar;
  4991.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  4992. {$EXTERNALSYM BeginUpdateResourceA}
  4993. function BeginUpdateResourceA(pFileName: PAnsiChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  4994. {$EXTERNALSYM BeginUpdateResourceW}
  4995. function BeginUpdateResourceW(pFileName: PWideChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  4996. {$EXTERNALSYM BeginUpdateResource}
  4997. function BeginUpdateResource(pFileName: PChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  4998. {$EXTERNALSYM UpdateResourceA}
  4999. function UpdateResourceA(hUpdate: THandle; lpType, lpName: PAnsiChar;
  5000.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5001. {$EXTERNALSYM UpdateResourceW}
  5002. function UpdateResourceW(hUpdate: THandle; lpType, lpName: PWideChar;
  5003.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5004. {$EXTERNALSYM UpdateResource}
  5005. function UpdateResource(hUpdate: THandle; lpType, lpName: PChar;
  5006.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5007. {$EXTERNALSYM EndUpdateResourceA}
  5008. function EndUpdateResourceA(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5009. {$EXTERNALSYM EndUpdateResourceW}
  5010. function EndUpdateResourceW(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5011. {$EXTERNALSYM EndUpdateResource}
  5012. function EndUpdateResource(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5013. {$EXTERNALSYM GlobalAddAtomA}
  5014. function GlobalAddAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5015. {$EXTERNALSYM GlobalAddAtomW}
  5016. function GlobalAddAtomW(lpString: PWideChar): ATOM; stdcall;
  5017. {$EXTERNALSYM GlobalAddAtom}
  5018. function GlobalAddAtom(lpString: PChar): ATOM; stdcall;
  5019. {$EXTERNALSYM GlobalFindAtomA}
  5020. function GlobalFindAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5021. {$EXTERNALSYM GlobalFindAtomW}
  5022. function GlobalFindAtomW(lpString: PWideChar): ATOM; stdcall;
  5023. {$EXTERNALSYM GlobalFindAtom}
  5024. function GlobalFindAtom(lpString: PChar): ATOM; stdcall;
  5025. {$EXTERNALSYM GlobalGetAtomNameA}
  5026. function GlobalGetAtomNameA(nAtom: ATOM; lpBuffer: PAnsiChar; nSize: Integer): UINT; stdcall;
  5027. {$EXTERNALSYM GlobalGetAtomNameW}
  5028. function GlobalGetAtomNameW(nAtom: ATOM; lpBuffer: PWideChar; nSize: Integer): UINT; stdcall;
  5029. {$EXTERNALSYM GlobalGetAtomName}
  5030. function GlobalGetAtomName(nAtom: ATOM; lpBuffer: PChar; nSize: Integer): UINT; stdcall;
  5031. {$EXTERNALSYM AddAtomA}
  5032. function AddAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5033. {$EXTERNALSYM AddAtomW}
  5034. function AddAtomW(lpString: PWideChar): ATOM; stdcall;
  5035. {$EXTERNALSYM AddAtom}
  5036. function AddAtom(lpString: PChar): ATOM; stdcall;
  5037. {$EXTERNALSYM FindAtomA}
  5038. function FindAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5039. {$EXTERNALSYM FindAtomW}
  5040. function FindAtomW(lpString: PWideChar): ATOM; stdcall;
  5041. {$EXTERNALSYM FindAtom}
  5042. function FindAtom(lpString: PChar): ATOM; stdcall;
  5043. {$EXTERNALSYM GetAtomNameA}
  5044. function GetAtomNameA(nAtom: ATOM; lpBuffer: PAnsiChar; nSize: Integer): UINT; stdcall;
  5045. {$EXTERNALSYM GetAtomNameW}
  5046. function GetAtomNameW(nAtom: ATOM; lpBuffer: PWideChar; nSize: Integer): UINT; stdcall;
  5047. {$EXTERNALSYM GetAtomName}
  5048. function GetAtomName(nAtom: ATOM; lpBuffer: PChar; nSize: Integer): UINT; stdcall;
  5049. {$EXTERNALSYM GetProfileIntA}
  5050. function GetProfileIntA(lpAppName, lpKeyName: PAnsiChar; nDefault: Integer): UINT; stdcall;
  5051. {$EXTERNALSYM GetProfileIntW}
  5052. function GetProfileIntW(lpAppName, lpKeyName: PWideChar; nDefault: Integer): UINT; stdcall;
  5053. {$EXTERNALSYM GetProfileInt}
  5054. function GetProfileInt(lpAppName, lpKeyName: PChar; nDefault: Integer): UINT; stdcall;
  5055. {$EXTERNALSYM GetProfileStringA}
  5056. function GetProfileStringA(lpAppName, lpKeyName, lpDefault: PAnsiChar;
  5057.   lpReturnedString: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5058. {$EXTERNALSYM GetProfileStringW}
  5059. function GetProfileStringW(lpAppName, lpKeyName, lpDefault: PWideChar;
  5060.   lpReturnedString: PWideChar; nSize: DWORD): DWORD; stdcall;
  5061. {$EXTERNALSYM GetProfileString}
  5062. function GetProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  5063.   lpReturnedString: PChar; nSize: DWORD): DWORD; stdcall;
  5064. {$EXTERNALSYM WriteProfileStringA}
  5065. function WriteProfileStringA(lpAppName, lpKeyName, lpString: PAnsiChar): BOOL; stdcall;
  5066. {$EXTERNALSYM WriteProfileStringW}
  5067. function WriteProfileStringW(lpAppName, lpKeyName, lpString: PWideChar): BOOL; stdcall;
  5068. {$EXTERNALSYM WriteProfileString}
  5069. function WriteProfileString(lpAppName, lpKeyName, lpString: PChar): BOOL; stdcall;
  5070. {$EXTERNALSYM GetProfileSectionA}
  5071. function GetProfileSectionA(lpAppName: PAnsiChar; lpReturnedString: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5072. {$EXTERNALSYM GetProfileSectionW}
  5073. function GetProfileSectionW(lpAppName: PWideChar; lpReturnedString: PWideChar; nSize: DWORD): DWORD; stdcall;
  5074. {$EXTERNALSYM GetProfileSection}
  5075. function GetProfileSection(lpAppName: PChar; lpReturnedString: PChar; nSize: DWORD): DWORD; stdcall;
  5076. {$EXTERNALSYM WriteProfileSectionA}
  5077. function WriteProfileSectionA(lpAppName, lpString: PAnsiChar): BOOL; stdcall;
  5078. {$EXTERNALSYM WriteProfileSectionW}
  5079. function WriteProfileSectionW(lpAppName, lpString: PWideChar): BOOL; stdcall;
  5080. {$EXTERNALSYM WriteProfileSection}
  5081. function WriteProfileSection(lpAppName, lpString: PChar): BOOL; stdcall;
  5082. {$EXTERNALSYM GetPrivateProfileIntA}
  5083. function GetPrivateProfileIntA(lpAppName, lpKeyName: PAnsiChar;
  5084.   nDefault: Integer; lpFileName: PAnsiChar): UINT; stdcall;
  5085. {$EXTERNALSYM GetPrivateProfileIntW}
  5086. function GetPrivateProfileIntW(lpAppName, lpKeyName: PWideChar;
  5087.   nDefault: Integer; lpFileName: PWideChar): UINT; stdcall;
  5088. {$EXTERNALSYM GetPrivateProfileInt}
  5089. function GetPrivateProfileInt(lpAppName, lpKeyName: PChar;
  5090.   nDefault: Integer; lpFileName: PChar): UINT; stdcall;
  5091. {$EXTERNALSYM GetPrivateProfileStringA}
  5092. function GetPrivateProfileStringA(lpAppName, lpKeyName, lpDefault: PAnsiChar;
  5093.   lpReturnedString: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5094. {$EXTERNALSYM GetPrivateProfileStringW}
  5095. function GetPrivateProfileStringW(lpAppName, lpKeyName, lpDefault: PWideChar;
  5096.   lpReturnedString: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5097. {$EXTERNALSYM GetPrivateProfileString}
  5098. function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  5099.   lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5100. {$EXTERNALSYM WritePrivateProfileStringA}
  5101. function WritePrivateProfileStringA(lpAppName, lpKeyName, lpString, lpFileName: PAnsiChar): BOOL; stdcall;
  5102. {$EXTERNALSYM WritePrivateProfileStringW}
  5103. function WritePrivateProfileStringW(lpAppName, lpKeyName, lpString, lpFileName: PWideChar): BOOL; stdcall;
  5104. {$EXTERNALSYM WritePrivateProfileString}
  5105. function WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName: PChar): BOOL; stdcall;
  5106. {$EXTERNALSYM GetPrivateProfileSectionA}
  5107. function GetPrivateProfileSectionA(lpAppName: PAnsiChar;
  5108.   lpReturnedString: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5109. {$EXTERNALSYM GetPrivateProfileSectionW}
  5110. function GetPrivateProfileSectionW(lpAppName: PWideChar;
  5111.   lpReturnedString: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5112. {$EXTERNALSYM GetPrivateProfileSection}
  5113. function GetPrivateProfileSection(lpAppName: PChar;
  5114.   lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5115. {$EXTERNALSYM WritePrivateProfileSectionA}
  5116. function WritePrivateProfileSectionA(lpAppName, lpString, lpFileName: PAnsiChar): BOOL; stdcall;
  5117. {$EXTERNALSYM WritePrivateProfileSectionW}
  5118. function WritePrivateProfileSectionW(lpAppName, lpString, lpFileName: PWideChar): BOOL; stdcall;
  5119. {$EXTERNALSYM WritePrivateProfileSection}
  5120. function WritePrivateProfileSection(lpAppName, lpString, lpFileName: PChar): BOOL; stdcall;
  5121. {$EXTERNALSYM GetPrivateProfileSectionNamesA}
  5122. function GetPrivateProfileSectionNamesA(lpszReturnBuffer: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5123. {$EXTERNALSYM GetPrivateProfileSectionNamesW}
  5124. function GetPrivateProfileSectionNamesW(lpszReturnBuffer: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5125. {$EXTERNALSYM GetPrivateProfileSectionNames}
  5126. function GetPrivateProfileSectionNames(lpszReturnBuffer: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5127. {$EXTERNALSYM GetPrivateProfileStructA}
  5128. function GetPrivateProfileStructA(lpszSection, lpszKey: PAnsiChar;
  5129.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PAnsiChar): BOOL; stdcall;
  5130. {$EXTERNALSYM GetPrivateProfileStructW}
  5131. function GetPrivateProfileStructW(lpszSection, lpszKey: PWideChar;
  5132.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PWideChar): BOOL; stdcall;
  5133. {$EXTERNALSYM GetPrivateProfileStruct}
  5134. function GetPrivateProfileStruct(lpszSection, lpszKey: PChar;
  5135.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PChar): BOOL; stdcall;
  5136. {$EXTERNALSYM WritePrivateProfileStructA}
  5137. function WritePrivateProfileStructA(lpszSection, lpszKey: PAnsiChar;
  5138.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PAnsiChar): BOOL; stdcall;
  5139. {$EXTERNALSYM WritePrivateProfileStructW}
  5140. function WritePrivateProfileStructW(lpszSection, lpszKey: PWideChar;
  5141.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PWideChar): BOOL; stdcall;
  5142. {$EXTERNALSYM WritePrivateProfileStruct}
  5143. function WritePrivateProfileStruct(lpszSection, lpszKey: PChar;
  5144.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PChar): BOOL; stdcall;
  5145. {$EXTERNALSYM GetDriveTypeA}
  5146. function GetDriveTypeA(lpRootPathName: PAnsiChar): UINT; stdcall;
  5147. {$EXTERNALSYM GetDriveTypeW}
  5148. function GetDriveTypeW(lpRootPathName: PWideChar): UINT; stdcall;
  5149. {$EXTERNALSYM GetDriveType}
  5150. function GetDriveType(lpRootPathName: PChar): UINT; stdcall;
  5151. {$EXTERNALSYM GetSystemDirectoryA}
  5152. function GetSystemDirectoryA(lpBuffer: PAnsiChar; uSize: UINT): UINT; stdcall;
  5153. {$EXTERNALSYM GetSystemDirectoryW}
  5154. function GetSystemDirectoryW(lpBuffer: PWideChar; uSize: UINT): UINT; stdcall;
  5155. {$EXTERNALSYM GetSystemDirectory}
  5156. function GetSystemDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
  5157. {$EXTERNALSYM GetTempPathA}
  5158. function GetTempPathA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5159. {$EXTERNALSYM GetTempPathW}
  5160. function GetTempPathW(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall;
  5161. {$EXTERNALSYM GetTempPath}
  5162. function GetTempPath(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;
  5163. {$EXTERNALSYM GetTempFileNameA}
  5164. function GetTempFileNameA(lpPathName, lpPrefixString: PAnsiChar;
  5165.   uUnique: UINT; lpTempFileName: PAnsiChar): UINT; stdcall;
  5166. {$EXTERNALSYM GetTempFileNameW}
  5167. function GetTempFileNameW(lpPathName, lpPrefixString: PWideChar;
  5168.   uUnique: UINT; lpTempFileName: PWideChar): UINT; stdcall;
  5169. {$EXTERNALSYM GetTempFileName}
  5170. function GetTempFileName(lpPathName, lpPrefixString: PChar;
  5171.   uUnique: UINT; lpTempFileName: PChar): UINT; stdcall;
  5172. {$EXTERNALSYM GetWindowsDirectoryA}
  5173. function GetWindowsDirectoryA(lpBuffer: PAnsiChar; uSize: UINT): UINT; stdcall;
  5174. {$EXTERNALSYM GetWindowsDirectoryW}
  5175. function GetWindowsDirectoryW(lpBuffer: PWideChar; uSize: UINT): UINT; stdcall;
  5176. {$EXTERNALSYM GetWindowsDirectory}
  5177. function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
  5178. {$EXTERNALSYM SetCurrentDirectoryA}
  5179. function SetCurrentDirectoryA(lpPathName: PAnsiChar): BOOL; stdcall;
  5180. {$EXTERNALSYM SetCurrentDirectoryW}
  5181. function SetCurrentDirectoryW(lpPathName: PWideChar): BOOL; stdcall;
  5182. {$EXTERNALSYM SetCurrentDirectory}
  5183. function SetCurrentDirectory(lpPathName: PChar): BOOL; stdcall;
  5184. {$EXTERNALSYM GetCurrentDirectoryA}
  5185. function GetCurrentDirectoryA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5186. {$EXTERNALSYM GetCurrentDirectoryW}
  5187. function GetCurrentDirectoryW(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall;
  5188. {$EXTERNALSYM GetCurrentDirectory}
  5189. function GetCurrentDirectory(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;
  5190. {$EXTERNALSYM GetDiskFreeSpaceA}
  5191. function GetDiskFreeSpaceA(lpRootPathName: PAnsiChar;
  5192.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5193. {$EXTERNALSYM GetDiskFreeSpaceW}
  5194. function GetDiskFreeSpaceW(lpRootPathName: PWideChar;
  5195.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5196. {$EXTERNALSYM GetDiskFreeSpace}
  5197. function GetDiskFreeSpace(lpRootPathName: PChar;
  5198.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5199. {$EXTERNALSYM GetDiskFreeSpaceExA}
  5200. function GetDiskFreeSpaceExA(lpDirectoryName: PAnsiChar;
  5201.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
  5202.   lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;
  5203. {$EXTERNALSYM GetDiskFreeSpaceExW}
  5204. function GetDiskFreeSpaceExW(lpDirectoryName: PWideChar;
  5205.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
  5206.   lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;
  5207. {$EXTERNALSYM GetDiskFreeSpaceEx}
  5208. function GetDiskFreeSpaceEx(lpDirectoryName: PChar;
  5209.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
  5210.   lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;
  5211. {$EXTERNALSYM CreateDirectoryA}
  5212. function CreateDirectoryA(lpPathName: PAnsiChar;
  5213.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5214. {$EXTERNALSYM CreateDirectoryW}
  5215. function CreateDirectoryW(lpPathName: PWideChar;
  5216.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5217. {$EXTERNALSYM CreateDirectory}
  5218. function CreateDirectory(lpPathName: PChar;
  5219.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5220. {$EXTERNALSYM CreateDirectoryExA}
  5221. function CreateDirectoryExA(lpTemplateDirectory, lpNewDirectory: PAnsiChar;
  5222.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5223. {$EXTERNALSYM CreateDirectoryExW}
  5224. function CreateDirectoryExW(lpTemplateDirectory, lpNewDirectory: PWideChar;
  5225.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5226. {$EXTERNALSYM CreateDirectoryEx}
  5227. function CreateDirectoryEx(lpTemplateDirectory, lpNewDirectory: PChar;
  5228.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5229. {$EXTERNALSYM RemoveDirectoryA}
  5230. function RemoveDirectoryA(lpPathName: PAnsiChar): BOOL; stdcall;
  5231. {$EXTERNALSYM RemoveDirectoryW}
  5232. function RemoveDirectoryW(lpPathName: PWideChar): BOOL; stdcall;
  5233. {$EXTERNALSYM RemoveDirectory}
  5234. function RemoveDirectory(lpPathName: PChar): BOOL; stdcall;
  5235. {$EXTERNALSYM GetFullPathNameA}
  5236. function GetFullPathNameA(lpFileName: PAnsiChar; nBufferLength: DWORD;
  5237.   lpBuffer: PAnsiChar; var lpFilePart: PAnsiChar): DWORD; stdcall;
  5238. {$EXTERNALSYM GetFullPathNameW}
  5239. function GetFullPathNameW(lpFileName: PWideChar; nBufferLength: DWORD;
  5240.   lpBuffer: PWideChar; var lpFilePart: PWideChar): DWORD; stdcall;
  5241. {$EXTERNALSYM GetFullPathName}
  5242. function GetFullPathName(lpFileName: PChar; nBufferLength: DWORD;
  5243.   lpBuffer: PChar; var lpFilePart: PChar): DWORD; stdcall;
  5244.  
  5245. const
  5246.   {$EXTERNALSYM DDD_RAW_TARGET_PATH}
  5247.   DDD_RAW_TARGET_PATH             = $00000001;
  5248.   {$EXTERNALSYM DDD_REMOVE_DEFINITION}
  5249.   DDD_REMOVE_DEFINITION           = $00000002;
  5250.   {$EXTERNALSYM DDD_EXACT_MATCH_ON_REMOVE}
  5251.   DDD_EXACT_MATCH_ON_REMOVE       = $00000004;
  5252.   {$EXTERNALSYM DDD_NO_BROADCAST_SYSTEM}
  5253.   DDD_NO_BROADCAST_SYSTEM         = $00000008;
  5254.  
  5255. {$EXTERNALSYM DefineDosDeviceA}
  5256. function DefineDosDeviceA(dwFlags: DWORD; lpDeviceName, lpTargetPath: PAnsiChar): BOOL; stdcall;
  5257. {$EXTERNALSYM DefineDosDeviceW}
  5258. function DefineDosDeviceW(dwFlags: DWORD; lpDeviceName, lpTargetPath: PWideChar): BOOL; stdcall;
  5259. {$EXTERNALSYM DefineDosDevice}
  5260. function DefineDosDevice(dwFlags: DWORD; lpDeviceName, lpTargetPath: PChar): BOOL; stdcall;
  5261. {$EXTERNALSYM QueryDosDeviceA}
  5262. function QueryDosDeviceA(lpDeviceName: PAnsiChar;
  5263.   lpTargetPath: PAnsiChar; ucchMax: DWORD): DWORD; stdcall;
  5264. {$EXTERNALSYM QueryDosDeviceW}
  5265. function QueryDosDeviceW(lpDeviceName: PWideChar;
  5266.   lpTargetPath: PWideChar; ucchMax: DWORD): DWORD; stdcall;
  5267. {$EXTERNALSYM QueryDosDevice}
  5268. function QueryDosDevice(lpDeviceName: PChar;
  5269.   lpTargetPath: PChar; ucchMax: DWORD): DWORD; stdcall;
  5270. {$EXTERNALSYM CreateFileA}
  5271. function CreateFileA(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: Integer;
  5272.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5273.   hTemplateFile: THandle): THandle; stdcall;
  5274. {$EXTERNALSYM CreateFileW}
  5275. function CreateFileW(lpFileName: PWideChar; dwDesiredAccess, dwShareMode: Integer;
  5276.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5277.   hTemplateFile: THandle): THandle; stdcall;
  5278. {$EXTERNALSYM CreateFile}
  5279. function CreateFile(lpFileName: PChar; dwDesiredAccess, dwShareMode: Integer;
  5280.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5281.   hTemplateFile: THandle): THandle; stdcall;
  5282. {$EXTERNALSYM SetFileAttributesA}
  5283. function SetFileAttributesA(lpFileName: PAnsiChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5284. {$EXTERNALSYM SetFileAttributesW}
  5285. function SetFileAttributesW(lpFileName: PWideChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5286. {$EXTERNALSYM SetFileAttributes}
  5287. function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5288. {$EXTERNALSYM GetFileAttributesA}
  5289. function GetFileAttributesA(lpFileName: PAnsiChar): DWORD; stdcall;
  5290. {$EXTERNALSYM GetFileAttributesW}
  5291. function GetFileAttributesW(lpFileName: PWideChar): DWORD; stdcall;
  5292. {$EXTERNALSYM GetFileAttributes}
  5293. function GetFileAttributes(lpFileName: PChar): DWORD; stdcall;
  5294. type
  5295.   {$EXTERNALSYM _GET_FILEEX_INFO_LEVELS}
  5296.   _GET_FILEEX_INFO_LEVELS = (GetFileExInfoStandard, GetFileExMaxInfoLevel);
  5297.   TGetFileExInfoLevels = _GET_FILEEX_INFO_LEVELS;
  5298.   {$EXTERNALSYM GET_FILEEX_INFO_LEVELS}
  5299.   GET_FILEEX_INFO_LEVELS = _GET_FILEEX_INFO_LEVELS;
  5300. {$EXTERNALSYM GetFileAttributesExA}
  5301. function GetFileAttributesExA(lpFileName: PAnsiChar;
  5302.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5303. {$EXTERNALSYM GetFileAttributesExW}
  5304. function GetFileAttributesExW(lpFileName: PWideChar;
  5305.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5306. {$EXTERNALSYM GetFileAttributesEx}
  5307. function GetFileAttributesEx(lpFileName: PChar;
  5308.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5309. {$EXTERNALSYM GetCompressedFileSizeA}
  5310. function GetCompressedFileSizeA(lpFileName: PAnsiChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5311. {$EXTERNALSYM GetCompressedFileSizeW}
  5312. function GetCompressedFileSizeW(lpFileName: PWideChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5313. {$EXTERNALSYM GetCompressedFileSize}
  5314. function GetCompressedFileSize(lpFileName: PChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5315. {$EXTERNALSYM DeleteFileA}
  5316. function DeleteFileA(lpFileName: PAnsiChar): BOOL; stdcall;
  5317. {$EXTERNALSYM DeleteFileW}
  5318. function DeleteFileW(lpFileName: PWideChar): BOOL; stdcall;
  5319. {$EXTERNALSYM DeleteFile}
  5320. function DeleteFile(lpFileName: PChar): BOOL; stdcall;
  5321. type
  5322.   {$EXTERNALSYM _FINDEX_INFO_LEVELS}
  5323.   _FINDEX_INFO_LEVELS = (FindExInfoStandard, FindExInfoMaxInfoLevel);
  5324.   TFindexInfoLevels = _FINDEX_INFO_LEVELS;
  5325.   {$EXTERNALSYM FINDEX_INFO_LEVELS}
  5326.   FINDEX_INFO_LEVELS = _FINDEX_INFO_LEVELS;
  5327.  
  5328.   {$EXTERNALSYM _FINDEX_SEARCH_OPS}
  5329.   _FINDEX_SEARCH_OPS = (FindExSearchNameMatch, FindExSearchLimitToDirectories,
  5330.     FindExSearchLimitToDevices, FindExSearchMaxSearchOp);
  5331.   TFindexSearchOps = _FINDEX_SEARCH_OPS;
  5332.   {$EXTERNALSYM FINDEX_SEARCH_OPS}
  5333.   FINDEX_SEARCH_OPS = _FINDEX_SEARCH_OPS;
  5334. const
  5335.   {$EXTERNALSYM FIND_FIRST_EX_CASE_SENSITIVE}
  5336.   FIND_FIRST_EX_CASE_SENSITIVE = $00000001;
  5337.  
  5338. {$EXTERNALSYM FindFirstFileExA}
  5339. function FindFirstFileExA(lpFileName: PAnsiChar; fInfoLevelId: TFindexInfoLevels;
  5340.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5341.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5342. {$EXTERNALSYM FindFirstFileExW}
  5343. function FindFirstFileExW(lpFileName: PWideChar; fInfoLevelId: TFindexInfoLevels;
  5344.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5345.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5346. {$EXTERNALSYM FindFirstFileEx}
  5347. function FindFirstFileEx(lpFileName: PChar; fInfoLevelId: TFindexInfoLevels;
  5348.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5349.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5350. {$EXTERNALSYM FindFirstFileA}
  5351. function FindFirstFileA(lpFileName: PAnsiChar; var lpFindFileData: TWIN32FindDataA): THandle; stdcall;
  5352. {$EXTERNALSYM FindFirstFileW}
  5353. function FindFirstFileW(lpFileName: PWideChar; var lpFindFileData: TWIN32FindDataW): THandle; stdcall;
  5354. {$EXTERNALSYM FindFirstFile}
  5355. function FindFirstFile(lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle; stdcall;
  5356. {$EXTERNALSYM FindNextFileA}
  5357. function FindNextFileA(hFindFile: THandle; var lpFindFileData: TWIN32FindDataA): BOOL; stdcall;
  5358. {$EXTERNALSYM FindNextFileW}
  5359. function FindNextFileW(hFindFile: THandle; var lpFindFileData: TWIN32FindDataW): BOOL; stdcall;
  5360. {$EXTERNALSYM FindNextFile}
  5361. function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; stdcall;
  5362. {$EXTERNALSYM SearchPathA}
  5363. function SearchPathA(lpPath, lpFileName, lpExtension: PAnsiChar;
  5364.   nBufferLength: DWORD; lpBuffer: PAnsiChar; var lpFilePart: PAnsiChar): DWORD; stdcall;
  5365. {$EXTERNALSYM SearchPathW}
  5366. function SearchPathW(lpPath, lpFileName, lpExtension: PWideChar;
  5367.   nBufferLength: DWORD; lpBuffer: PWideChar; var lpFilePart: PWideChar): DWORD; stdcall;
  5368. {$EXTERNALSYM SearchPath}
  5369. function SearchPath(lpPath, lpFileName, lpExtension: PChar;
  5370.   nBufferLength: DWORD; lpBuffer: PChar; var lpFilePart: PChar): DWORD; stdcall;
  5371. {$EXTERNALSYM CopyFileA}
  5372. function CopyFileA(lpExistingFileName, lpNewFileName: PAnsiChar; bFailIfExists: BOOL): BOOL; stdcall;
  5373. {$EXTERNALSYM CopyFileW}
  5374. function CopyFileW(lpExistingFileName, lpNewFileName: PWideChar; bFailIfExists: BOOL): BOOL; stdcall;
  5375. {$EXTERNALSYM CopyFile}
  5376. function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;
  5377.  
  5378. type
  5379. {$IFDEF STRICT}
  5380.   TFNProgressRoutine = function(TotalFileSize, TotalBytesTransferred,
  5381.     StreamSize, StreamBytesTransferred: TLargeInteger; dwStreamNumber,
  5382.     dwCallbackReason: DWORD; hSourceFile, hDestinationFile: THandle;
  5383.     lpData: Pointer): DWORD stdcall;
  5384. {$ELSE}
  5385.   TFNProgressRoutine = TFarProc;
  5386. {$ENDIF}
  5387.  
  5388. {$EXTERNALSYM CopyFileExA}
  5389. function CopyFileExA(lpExistingFileName, lpNewFileName: PAnsiChar;
  5390.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5391.   dwCopyFlags: DWORD): BOOL; stdcall;
  5392. {$EXTERNALSYM CopyFileExW}
  5393. function CopyFileExW(lpExistingFileName, lpNewFileName: PWideChar;
  5394.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5395.   dwCopyFlags: DWORD): BOOL; stdcall;
  5396. {$EXTERNALSYM CopyFileEx}
  5397. function CopyFileEx(lpExistingFileName, lpNewFileName: PChar;
  5398.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5399.   dwCopyFlags: DWORD): BOOL; stdcall;
  5400. {$EXTERNALSYM MoveFileA}
  5401. function MoveFileA(lpExistingFileName, lpNewFileName: PAnsiChar): BOOL; stdcall;
  5402. {$EXTERNALSYM MoveFileW}
  5403. function MoveFileW(lpExistingFileName, lpNewFileName: PWideChar): BOOL; stdcall;
  5404. {$EXTERNALSYM MoveFile}
  5405. function MoveFile(lpExistingFileName, lpNewFileName: PChar): BOOL; stdcall;
  5406. {$EXTERNALSYM MoveFileExA}
  5407. function MoveFileExA(lpExistingFileName, lpNewFileName: PAnsiChar; dwFlags: DWORD): BOOL; stdcall;
  5408. {$EXTERNALSYM MoveFileExW}
  5409. function MoveFileExW(lpExistingFileName, lpNewFileName: PWideChar; dwFlags: DWORD): BOOL; stdcall;
  5410. {$EXTERNALSYM MoveFileEx}
  5411. function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL; stdcall;
  5412.  
  5413. const
  5414.   {$EXTERNALSYM MOVEFILE_REPLACE_EXISTING}
  5415.   MOVEFILE_REPLACE_EXISTING       = $00000001;
  5416.   {$EXTERNALSYM MOVEFILE_COPY_ALLOWED}
  5417.   MOVEFILE_COPY_ALLOWED           = $00000002;
  5418.   {$EXTERNALSYM MOVEFILE_DELAY_UNTIL_REBOOT}
  5419.   MOVEFILE_DELAY_UNTIL_REBOOT     = $00000004;
  5420.   {$EXTERNALSYM MOVEFILE_WRITE_THROUGH}
  5421.   MOVEFILE_WRITE_THROUGH          = $00000008;
  5422.  
  5423. {$EXTERNALSYM CreateNamedPipeA}
  5424. function CreateNamedPipeA(lpName: PAnsiChar;
  5425.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5426.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5427. {$EXTERNALSYM CreateNamedPipeW}
  5428. function CreateNamedPipeW(lpName: PWideChar;
  5429.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5430.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5431. {$EXTERNALSYM CreateNamedPipe}
  5432. function CreateNamedPipe(lpName: PChar;
  5433.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5434.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5435. {$EXTERNALSYM GetNamedPipeHandleStateA}
  5436. function GetNamedPipeHandleStateA(hNamedPipe: THandle;
  5437.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5438.   lpUserName: PAnsiChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5439. {$EXTERNALSYM GetNamedPipeHandleStateW}
  5440. function GetNamedPipeHandleStateW(hNamedPipe: THandle;
  5441.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5442.   lpUserName: PWideChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5443. {$EXTERNALSYM GetNamedPipeHandleState}
  5444. function GetNamedPipeHandleState(hNamedPipe: THandle;
  5445.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5446.   lpUserName: PChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5447. {$EXTERNALSYM CallNamedPipeA}
  5448. function CallNamedPipeA(lpNamedPipeName: PAnsiChar; lpInBuffer: Pointer;
  5449.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5450.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5451. {$EXTERNALSYM CallNamedPipeW}
  5452. function CallNamedPipeW(lpNamedPipeName: PWideChar; lpInBuffer: Pointer;
  5453.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5454.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5455. {$EXTERNALSYM CallNamedPipe}
  5456. function CallNamedPipe(lpNamedPipeName: PChar; lpInBuffer: Pointer;
  5457.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5458.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5459. {$EXTERNALSYM WaitNamedPipeA}
  5460. function WaitNamedPipeA(lpNamedPipeName: PAnsiChar; nTimeOut: DWORD): BOOL; stdcall;
  5461. {$EXTERNALSYM WaitNamedPipeW}
  5462. function WaitNamedPipeW(lpNamedPipeName: PWideChar; nTimeOut: DWORD): BOOL; stdcall;
  5463. {$EXTERNALSYM WaitNamedPipe}
  5464. function WaitNamedPipe(lpNamedPipeName: PChar; nTimeOut: DWORD): BOOL; stdcall;
  5465. {$EXTERNALSYM SetVolumeLabelA}
  5466. function SetVolumeLabelA(lpRootPathName: PAnsiChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5467. {$EXTERNALSYM SetVolumeLabelW}
  5468. function SetVolumeLabelW(lpRootPathName: PWideChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5469. {$EXTERNALSYM SetVolumeLabel}
  5470. function SetVolumeLabel(lpRootPathName: PChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5471. {$EXTERNALSYM SetFileApisToOEM}
  5472. procedure SetFileApisToOEM; stdcall;
  5473. {$EXTERNALSYM SetFileApisToANSI}
  5474. procedure SetFileApisToANSI; stdcall;
  5475. {$EXTERNALSYM AreFileApisANSI}
  5476. function AreFileApisANSI: BOOL; stdcall;
  5477. {$EXTERNALSYM GetVolumeInformationA}
  5478. function GetVolumeInformationA(lpRootPathName: PAnsiChar;
  5479.   lpVolumeNameBuffer: PAnsiChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5480.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5481.   lpFileSystemNameBuffer: PAnsiChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5482. {$EXTERNALSYM GetVolumeInformationW}
  5483. function GetVolumeInformationW(lpRootPathName: PWideChar;
  5484.   lpVolumeNameBuffer: PWideChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5485.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5486.   lpFileSystemNameBuffer: PWideChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5487. {$EXTERNALSYM GetVolumeInformation}
  5488. function GetVolumeInformation(lpRootPathName: PChar;
  5489.   lpVolumeNameBuffer: PChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5490.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5491.   lpFileSystemNameBuffer: PChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5492.  
  5493. {$EXTERNALSYM CancelIo}
  5494. function CancelIo(hFile: THandle): BOOL; stdcall;
  5495.  
  5496. { Event logging APIs }
  5497.  
  5498. {$EXTERNALSYM ClearEventLogA}
  5499. function ClearEventLogA(hEventLog: THandle; lpBackupFileName: PAnsiChar): BOOL; stdcall;
  5500. {$EXTERNALSYM ClearEventLogW}
  5501. function ClearEventLogW(hEventLog: THandle; lpBackupFileName: PWideChar): BOOL; stdcall;
  5502. {$EXTERNALSYM ClearEventLog}
  5503. function ClearEventLog(hEventLog: THandle; lpBackupFileName: PChar): BOOL; stdcall;
  5504. {$EXTERNALSYM BackupEventLogA}
  5505. function BackupEventLogA(hEventLog: THandle; lpBackupFileName: PAnsiChar): BOOL; stdcall;
  5506. {$EXTERNALSYM BackupEventLogW}
  5507. function BackupEventLogW(hEventLog: THandle; lpBackupFileName: PWideChar): BOOL; stdcall;
  5508. {$EXTERNALSYM BackupEventLog}
  5509. function BackupEventLog(hEventLog: THandle; lpBackupFileName: PChar): BOOL; stdcall;
  5510. {$EXTERNALSYM CloseEventLog}
  5511. function CloseEventLog(hEventLog: THandle): BOOL; stdcall;
  5512. {$EXTERNALSYM DeregisterEventSource}
  5513. function DeregisterEventSource(hEventLog: THandle): BOOL; stdcall;
  5514. {$EXTERNALSYM NotifyChangeEventLog}
  5515. function NotifyChangeEventLog(hEventLog, hEvent: THandle): BOOL; stdcall;
  5516. {$EXTERNALSYM GetNumberOfEventLogRecords}
  5517. function GetNumberOfEventLogRecords(hEventLog: THandle; var NumberOfRecords: DWORD): BOOL; stdcall;
  5518. {$EXTERNALSYM GetOldestEventLogRecord}
  5519. function GetOldestEventLogRecord(hEventLog: THandle; var OldestRecord: DWORD): BOOL; stdcall;
  5520. {$EXTERNALSYM OpenEventLogA}
  5521. function OpenEventLogA(lpUNCServerName, lpSourceName: PAnsiChar): THandle; stdcall;
  5522. {$EXTERNALSYM OpenEventLogW}
  5523. function OpenEventLogW(lpUNCServerName, lpSourceName: PWideChar): THandle; stdcall;
  5524. {$EXTERNALSYM OpenEventLog}
  5525. function OpenEventLog(lpUNCServerName, lpSourceName: PChar): THandle; stdcall;
  5526. {$EXTERNALSYM RegisterEventSourceA}
  5527. function RegisterEventSourceA(lpUNCServerName, lpSourceName: PAnsiChar): THandle; stdcall;
  5528. {$EXTERNALSYM RegisterEventSourceW}
  5529. function RegisterEventSourceW(lpUNCServerName, lpSourceName: PWideChar): THandle; stdcall;
  5530. {$EXTERNALSYM RegisterEventSource}
  5531. function RegisterEventSource(lpUNCServerName, lpSourceName: PChar): THandle; stdcall;
  5532. {$EXTERNALSYM OpenBackupEventLogA}
  5533. function OpenBackupEventLogA(lpUNCServerName, lpFileName: PAnsiChar): THandle; stdcall;
  5534. {$EXTERNALSYM OpenBackupEventLogW}
  5535. function OpenBackupEventLogW(lpUNCServerName, lpFileName: PWideChar): THandle; stdcall;
  5536. {$EXTERNALSYM OpenBackupEventLog}
  5537. function OpenBackupEventLog(lpUNCServerName, lpFileName: PChar): THandle; stdcall;
  5538. {$EXTERNALSYM ReadEventLogA}
  5539. function ReadEventLogA(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5540.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5541.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5542. {$EXTERNALSYM ReadEventLogW}
  5543. function ReadEventLogW(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5544.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5545.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5546. {$EXTERNALSYM ReadEventLog}
  5547. function ReadEventLog(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5548.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5549.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5550. {$EXTERNALSYM ReportEventA}
  5551. function ReportEventA(hEventLog: THandle; wType, wCategory: Word;
  5552.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5553.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5554. {$EXTERNALSYM ReportEventW}
  5555. function ReportEventW(hEventLog: THandle; wType, wCategory: Word;
  5556.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5557.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5558. {$EXTERNALSYM ReportEvent}
  5559. function ReportEvent(hEventLog: THandle; wType, wCategory: Word;
  5560.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5561.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5562.  
  5563. { Security APIs }
  5564.  
  5565. {$EXTERNALSYM DuplicateToken}
  5566. function DuplicateToken(ExistingTokenHandle: THandle;
  5567.   ImpersonationLevel: TSecurityImpersonationLevel; DuplicateTokenHandle: PHandle): BOOL; stdcall;
  5568. {$EXTERNALSYM GetKernelObjectSecurity}
  5569. function GetKernelObjectSecurity(Handle: THandle; RequestedInformation: SECURITY_INFORMATION;
  5570.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD;
  5571.   var lpnLengthNeeded: DWORD): BOOL; stdcall;
  5572. {$EXTERNALSYM ImpersonateNamedPipeClient}
  5573. function ImpersonateNamedPipeClient(hNamedPipe: THandle): BOOL; stdcall;
  5574. {$EXTERNALSYM ImpersonateSelf}
  5575. function ImpersonateSelf(ImpersonationLevel: TSecurityImpersonationLevel): BOOL; stdcall;
  5576. {$EXTERNALSYM RevertToSelf}
  5577. function RevertToSelf: BOOL; stdcall;
  5578. {$EXTERNALSYM SetThreadToken}
  5579. function SetThreadToken(Thread: PHandle; Token: THandle): BOOL; stdcall;
  5580. {$EXTERNALSYM AccessCheck}
  5581. function AccessCheck(pSecurityDescriptor: PSecurityDescriptor;
  5582.   ClientToken: THandle; DesiredAccess: DWORD; const GenericMapping: TGenericMapping;
  5583.   var PrivilegeSet: TPrivilegeSet; var PrivilegeSetLength: DWORD;
  5584.   var GrantedAccess: DWORD; var AccessStatus: BOOL): BOOL; stdcall;
  5585. {$EXTERNALSYM OpenProcessToken}
  5586. function OpenProcessToken(ProcessHandle: THandle; DesiredAccess: DWORD;
  5587.   var TokenHandle: THandle): BOOL; stdcall;
  5588. {$EXTERNALSYM OpenThreadToken}
  5589. function OpenThreadToken(ThreadHandle: THandle; DesiredAccess: DWORD;
  5590.   OpenAsSelf: BOOL; var TokenHandle: THandle): BOOL; stdcall;
  5591. {$EXTERNALSYM GetTokenInformation}
  5592. function GetTokenInformation(TokenHandle: THandle;
  5593.   TokenInformationClass: TTokenInformationClass; TokenInformation: Pointer;
  5594.   TokenInformationLength: DWORD; var ReturnLength: DWORD): BOOL; stdcall;
  5595. {$EXTERNALSYM SetTokenInformation}
  5596. function SetTokenInformation(TokenHandle: THandle;
  5597.   TokenInformationClass: TTokenInformationClass; TokenInformation: Pointer;
  5598.   TokenInformationLength: DWORD): BOOL; stdcall;
  5599. {$EXTERNALSYM AdjustTokenPrivileges}
  5600. function AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  5601.   const NewState: TTokenPrivileges; BufferLength: DWORD;
  5602.   var PreviousState: TTokenPrivileges; var ReturnLength: DWORD): BOOL; stdcall;
  5603. {$EXTERNALSYM AdjustTokenGroups}
  5604. function AdjustTokenGroups(TokenHandle: THandle; ResetToDefault: BOOL;
  5605.   const NewState: TTokenGroups; BufferLength: DWORD;
  5606.   var PreviousState: TTokenGroups; var ReturnLength: DWORD): BOOL; stdcall;
  5607. {$EXTERNALSYM PrivilegeCheck}
  5608. function PrivilegeCheck(ClientToken: THandle; const RequiredPrivileges: TPrivilegeSet;
  5609.   var pfResult: BOOL): BOOL; stdcall;
  5610. {$EXTERNALSYM AccessCheckAndAuditAlarmA}
  5611. function AccessCheckAndAuditAlarmA(SubsystemName: PAnsiChar;
  5612.   HandleId: Pointer; ObjectTypeName, ObjectName: PAnsiChar;
  5613.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5614.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5615.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5616. {$EXTERNALSYM AccessCheckAndAuditAlarmW}
  5617. function AccessCheckAndAuditAlarmW(SubsystemName: PWideChar;
  5618.   HandleId: Pointer; ObjectTypeName, ObjectName: PWideChar;
  5619.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5620.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5621.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5622. {$EXTERNALSYM AccessCheckAndAuditAlarm}
  5623. function AccessCheckAndAuditAlarm(SubsystemName: PChar;
  5624.   HandleId: Pointer; ObjectTypeName, ObjectName: PChar;
  5625.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5626.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5627.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5628. {$EXTERNALSYM ObjectOpenAuditAlarmA}
  5629. function ObjectOpenAuditAlarmA(SubsystemName: PAnsiChar; HandleId: Pointer;
  5630.   ObjectTypeName: PAnsiChar; ObjectName: PAnsiChar; pSecurityDescriptor: PSecurityDescriptor;
  5631.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5632.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5633.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5634. {$EXTERNALSYM ObjectOpenAuditAlarmW}
  5635. function ObjectOpenAuditAlarmW(SubsystemName: PWideChar; HandleId: Pointer;
  5636.   ObjectTypeName: PWideChar; ObjectName: PWideChar; pSecurityDescriptor: PSecurityDescriptor;
  5637.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5638.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5639.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5640. {$EXTERNALSYM ObjectOpenAuditAlarm}
  5641. function ObjectOpenAuditAlarm(SubsystemName: PChar; HandleId: Pointer;
  5642.   ObjectTypeName: PChar; ObjectName: PChar; pSecurityDescriptor: PSecurityDescriptor;
  5643.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5644.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5645.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5646. {$EXTERNALSYM ObjectPrivilegeAuditAlarmA}
  5647. function ObjectPrivilegeAuditAlarmA(SubsystemName: PAnsiChar;
  5648.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5649.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5650. {$EXTERNALSYM ObjectPrivilegeAuditAlarmW}
  5651. function ObjectPrivilegeAuditAlarmW(SubsystemName: PWideChar;
  5652.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5653.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5654. {$EXTERNALSYM ObjectPrivilegeAuditAlarm}
  5655. function ObjectPrivilegeAuditAlarm(SubsystemName: PChar;
  5656.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5657.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5658. {$EXTERNALSYM ObjectCloseAuditAlarmA}
  5659. function ObjectCloseAuditAlarmA(SubsystemName: PAnsiChar;
  5660.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5661. {$EXTERNALSYM ObjectCloseAuditAlarmW}
  5662. function ObjectCloseAuditAlarmW(SubsystemName: PWideChar;
  5663.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5664. {$EXTERNALSYM ObjectCloseAuditAlarm}
  5665. function ObjectCloseAuditAlarm(SubsystemName: PChar;
  5666.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5667. {$EXTERNALSYM ObjectDeleteAuditAlarmA}
  5668. function ObjectDeleteAuditAlarmA(SubsystemName: PAnsiChar;
  5669.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5670. {$EXTERNALSYM ObjectDeleteAuditAlarmW}
  5671. function ObjectDeleteAuditAlarmW(SubsystemName: PWideChar;
  5672.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5673. {$EXTERNALSYM ObjectDeleteAuditAlarm}
  5674. function ObjectDeleteAuditAlarm(SubsystemName: PChar;
  5675.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5676. {$EXTERNALSYM PrivilegedServiceAuditAlarmA}
  5677. function PrivilegedServiceAuditAlarmA(SubsystemName, ServiceName: PAnsiChar;
  5678.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5679. {$EXTERNALSYM PrivilegedServiceAuditAlarmW}
  5680. function PrivilegedServiceAuditAlarmW(SubsystemName, ServiceName: PWideChar;
  5681.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5682. {$EXTERNALSYM PrivilegedServiceAuditAlarm}
  5683. function PrivilegedServiceAuditAlarm(SubsystemName, ServiceName: PChar;
  5684.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5685. {$EXTERNALSYM IsValidSid}
  5686. function IsValidSid(pSid: Pointer): BOOL; stdcall;
  5687. {$EXTERNALSYM EqualSid}
  5688. function EqualSid(pSid1, pSid2: Pointer): BOOL; stdcall;
  5689. {$EXTERNALSYM EqualPrefixSid}
  5690. function EqualPrefixSid(pSid1, pSid2: Pointer): BOOL; stdcall;
  5691. {$EXTERNALSYM GetSidLengthRequired}
  5692. function GetSidLengthRequired(nSubAuthorityCount: UCHAR): DWORD; stdcall;
  5693. {$EXTERNALSYM AllocateAndInitializeSid}
  5694. function AllocateAndInitializeSid(const pIdentifierAuthority: TSIDIdentifierAuthority;
  5695.   nSubAuthorityCount: Byte; nSubAuthority0, nSubAuthority1: DWORD;
  5696.   nSubAuthority2, nSubAuthority3, nSubAuthority4: DWORD;
  5697.   nSubAuthority5, nSubAuthority6, nSubAuthority7: DWORD;
  5698.   var pSid: Pointer): BOOL; stdcall;
  5699. {$EXTERNALSYM FreeSid}
  5700. function FreeSid(pSid: Pointer): Pointer; stdcall;
  5701. {$EXTERNALSYM InitializeSid}
  5702. function InitializeSid(Sid: Pointer; const pIdentifierAuthority: TSIDIdentifierAuthority;
  5703.   nSubAuthorityCount: Byte): BOOL; stdcall;
  5704. {$EXTERNALSYM GetSidIdentifierAuthority}
  5705. function GetSidIdentifierAuthority(pSid: Pointer): PSIDIdentifierAuthority; stdcall;
  5706. {$EXTERNALSYM GetSidSubAuthority}
  5707. function GetSidSubAuthority(pSid: Pointer; nSubAuthority: DWORD): PDWORD; stdcall;
  5708. {$EXTERNALSYM GetSidSubAuthorityCount}
  5709. function GetSidSubAuthorityCount(pSid: Pointer): PUCHAR; stdcall;
  5710. {$EXTERNALSYM GetLengthSid}
  5711. function GetLengthSid(pSid: Pointer): DWORD; stdcall;
  5712. {$EXTERNALSYM CopySid}
  5713. function CopySid(nDestinationSidLength: DWORD;
  5714.   pDestinationSid, pSourceSid: Pointer): BOOL; stdcall;
  5715. {$EXTERNALSYM AreAllAccessesGranted}
  5716. function AreAllAccessesGranted(GrantedAccess, DesiredAccess: DWORD): BOOL; stdcall;
  5717. {$EXTERNALSYM AreAnyAccessesGranted}
  5718. function AreAnyAccessesGranted(GrantedAccess, DesiredAccess: DWORD): BOOL; stdcall;
  5719. {$EXTERNALSYM MapGenericMask}
  5720. procedure MapGenericMask(var AccessMask: DWORD; const GenericMapping: TGenericMapping); stdcall;
  5721. {$EXTERNALSYM IsValidAcl}
  5722. function IsValidAcl(const pAcl: TACL): BOOL; stdcall;
  5723. {$EXTERNALSYM InitializeAcl}
  5724. function InitializeAcl(var pAcl: TACL; nAclLength, dwAclRevision: DWORD): BOOL; stdcall;
  5725. {$EXTERNALSYM GetAclInformation}
  5726. function GetAclInformation(const pAcl: TACL; pAclInformation: Pointer;
  5727.   nAclInformationLength: DWORD; dwAclInformationClass: TAclInformationClass): BOOL; stdcall;
  5728. {$EXTERNALSYM SetAclInformation}
  5729. function SetAclInformation(var pAcl: TACL; pAclInformation: Pointer;
  5730.   nAclInformationLength: DWORD; dwAclInformationClass: TAclInformationClass): BOOL; stdcall;
  5731. {$EXTERNALSYM AddAce}
  5732. function AddAce(var pAcl: TACL; dwAceRevision, dwStartingAceIndex: DWORD; pAceList: Pointer;
  5733.   nAceListLength: DWORD): BOOL; stdcall;
  5734. {$EXTERNALSYM DeleteAce}
  5735. function DeleteAce(var pAcl: TACL; dwAceIndex: DWORD): BOOL; stdcall;
  5736. {$EXTERNALSYM GetAce}
  5737. function GetAce(const pAcl: TACL; dwAceIndex: DWORD; var pAce: Pointer): BOOL; stdcall;
  5738. {$EXTERNALSYM AddAccessAllowedAce}
  5739. function AddAccessAllowedAce(var pAcl: TACL; dwAceRevision: DWORD;
  5740.   AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  5741. {$EXTERNALSYM AddAccessDeniedAce}
  5742. function AddAccessDeniedAce(var pAcl: TACL; dwAceRevision: DWORD;
  5743.   AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  5744. {$EXTERNALSYM AddAuditAccessAce}
  5745. function AddAuditAccessAce(var pAcl: TACL; dwAceRevision: DWORD;
  5746.   dwAccessMask: DWORD; pSid: Pointer; bAuditSuccess, bAuditFailure: BOOL): BOOL; stdcall;
  5747. {$EXTERNALSYM FindFirstFreeAce}
  5748. function FindFirstFreeAce(var pAcl: TACL; var pAce: Pointer): BOOL; stdcall;
  5749. {$EXTERNALSYM InitializeSecurityDescriptor}
  5750. function InitializeSecurityDescriptor(pSecurityDescriptor: PSecurityDescriptor;
  5751.   dwRevision: DWORD): BOOL; stdcall;
  5752. {$EXTERNALSYM IsValidSecurityDescriptor}
  5753. function IsValidSecurityDescriptor(pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5754. {$EXTERNALSYM GetSecurityDescriptorLength}
  5755. function GetSecurityDescriptorLength(pSecurityDescriptor: PSecurityDescriptor): DWORD; stdcall;
  5756. {$EXTERNALSYM GetSecurityDescriptorControl}
  5757. function GetSecurityDescriptorControl(pSecurityDescriptor: PSecurityDescriptor;
  5758.   var pControl: SECURITY_DESCRIPTOR_CONTROL; var lpdwRevision: DWORD): BOOL; stdcall;
  5759. {$EXTERNALSYM SetSecurityDescriptorDacl}
  5760. function SetSecurityDescriptorDacl(pSecurityDescriptor: PSecurityDescriptor;
  5761.   bDaclPresent: BOOL; pDacl: PACL; bDaclDefaulted: BOOL): BOOL; stdcall;
  5762. {$EXTERNALSYM GetSecurityDescriptorDacl}
  5763. function GetSecurityDescriptorDacl(pSecurityDescriptor: PSecurityDescriptor;
  5764.   var lpbDaclPresent: BOOL; var pDacl: PACL; var lpbDaclDefaulted: BOOL): BOOL; stdcall;
  5765. {$EXTERNALSYM SetSecurityDescriptorSacl}
  5766. function SetSecurityDescriptorSacl(pSecurityDescriptor: PSecurityDescriptor;
  5767.   bSaclPresent: BOOL; pSacl: PACL; bSaclDefaulted: BOOL): BOOL; stdcall;
  5768. {$EXTERNALSYM GetSecurityDescriptorSacl}
  5769. function GetSecurityDescriptorSacl(pSecurityDescriptor: PSecurityDescriptor;
  5770.   var lpbSaclPresent: BOOL; var pSacl: PACL; var lpbSaclDefaulted: BOOL): BOOL; stdcall;
  5771. {$EXTERNALSYM SetSecurityDescriptorOwner}
  5772. function SetSecurityDescriptorOwner(pSecurityDescriptor: PSecurityDescriptor;
  5773.   pOwner: PSID; bOwnerDefaulted: BOOL): BOOL; stdcall;
  5774. {$EXTERNALSYM GetSecurityDescriptorOwner}
  5775. function GetSecurityDescriptorOwner(pSecurityDescriptor: PSecurityDescriptor;
  5776.   var pOwner: PSID; var lpbOwnerDefaulted: BOOL): BOOL; stdcall;
  5777. {$EXTERNALSYM SetSecurityDescriptorGroup}
  5778. function SetSecurityDescriptorGroup(pSecurityDescriptor: PSecurityDescriptor;
  5779.   pGroup: PSID; bGroupDefaulted: BOOL): BOOL; stdcall;
  5780. {$EXTERNALSYM GetSecurityDescriptorGroup}
  5781. function GetSecurityDescriptorGroup(pSecurityDescriptor: PSecurityDescriptor;
  5782.   var pGroup: PSID; var lpbGroupDefaulted: BOOL): BOOL; stdcall;
  5783. {$EXTERNALSYM CreatePrivateObjectSecurity}
  5784. function CreatePrivateObjectSecurity(ParentDescriptor, CreatorDescriptor: PSecurityDescriptor;
  5785.   var NewDescriptor: PSecurityDescriptor; IsDirectoryObject: BOOL;
  5786.   Token: THandle; const GenericMapping: TGenericMapping): BOOL; stdcall;
  5787. {$EXTERNALSYM SetPrivateObjectSecurity}
  5788. function SetPrivateObjectSecurity(SecurityInformation: SECURITY_INFORMATION;
  5789.   ModificationDescriptor: PSecurityDescriptor; var ObjectsSecurityDescriptor: PSecurityDescriptor;
  5790.   const GenericMapping: TGenericMapping; Token: THandle): BOOL; stdcall;
  5791. {$EXTERNALSYM GetPrivateObjectSecurity}
  5792. function GetPrivateObjectSecurity(ObjectDescriptor: PSecurityDescriptor;
  5793.   SecurityInformation: SECURITY_INFORMATION; ResultantDescriptor: PSecurityDescriptor;
  5794.   DescriptorLength: DWORD; var ReturnLength: DWORD): BOOL; stdcall;
  5795. {$EXTERNALSYM DestroyPrivateObjectSecurity}
  5796. function DestroyPrivateObjectSecurity(var ObjectDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5797. {$EXTERNALSYM MakeSelfRelativeSD}
  5798. function MakeSelfRelativeSD(pAbsoluteSecurityDescriptor: PSecurityDescriptor;
  5799.   pSelfRelativeSecurityDescriptor: PSecurityDescriptor; var lpdwBufferLength: DWORD): BOOL; stdcall;
  5800. {$EXTERNALSYM MakeAbsoluteSD}
  5801. function MakeAbsoluteSD(pSelfRelativeSecurityDescriptor: PSecurityDescriptor;
  5802.   pAbsoluteSecurityDescriptor: PSecurityDescriptor; var lpdwAbsoluteSecurityDescriptorSi: DWORD;
  5803.   var pDacl: TACL; var lpdwDaclSize: DWORD; var pSacl: TACL;
  5804.   var lpdwSaclSize: DWORD; pOwner: PSID; var lpdwOwnerSize: DWORD;
  5805.   pPrimaryGroup: Pointer; var lpdwPrimaryGroupSize: DWORD): BOOL; stdcall;
  5806.  
  5807. {$EXTERNALSYM SetFileSecurityA}
  5808. function SetFileSecurityA(lpFileName: PAnsiChar; SecurityInformation: SECURITY_INFORMATION;
  5809.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5810. {$EXTERNALSYM SetFileSecurityW}
  5811. function SetFileSecurityW(lpFileName: PWideChar; SecurityInformation: SECURITY_INFORMATION;
  5812.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5813. {$EXTERNALSYM SetFileSecurity}
  5814. function SetFileSecurity(lpFileName: PChar; SecurityInformation: SECURITY_INFORMATION;
  5815.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5816. {$EXTERNALSYM GetFileSecurityA}
  5817. function GetFileSecurityA(lpFileName: PAnsiChar; RequestedInformation: SECURITY_INFORMATION;
  5818.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  5819. {$EXTERNALSYM GetFileSecurityW}
  5820. function GetFileSecurityW(lpFileName: PWideChar; RequestedInformation: SECURITY_INFORMATION;
  5821.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  5822. {$EXTERNALSYM GetFileSecurity}
  5823. function GetFileSecurity(lpFileName: PChar; RequestedInformation: SECURITY_INFORMATION;
  5824.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  5825. {$EXTERNALSYM SetKernelObjectSecurity}
  5826. function SetKernelObjectSecurity(Handle: THandle; SecurityInformation: SECURITY_INFORMATION;
  5827.   SecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  5828. {$EXTERNALSYM FindFirstChangeNotificationA}
  5829. function FindFirstChangeNotificationA(lpPathName: PAnsiChar;
  5830.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  5831. {$EXTERNALSYM FindFirstChangeNotificationW}
  5832. function FindFirstChangeNotificationW(lpPathName: PWideChar;
  5833.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  5834. {$EXTERNALSYM FindFirstChangeNotification}
  5835. function FindFirstChangeNotification(lpPathName: PChar;
  5836.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  5837. {$EXTERNALSYM FindNextChangeNotification}
  5838. function FindNextChangeNotification(hChangeHandle: THandle): BOOL; stdcall;
  5839. {$EXTERNALSYM FindCloseChangeNotification}
  5840. function FindCloseChangeNotification(hChangeHandle: THandle): BOOL; stdcall;
  5841. {$EXTERNALSYM ReadDirectoryChanges}
  5842. function ReadDirectoryChanges(hDirectory: THandle; lpBuffer: Pointer;
  5843.   nBufferLength: DWORD; bWatchSubtree: Bool; dwNotifyFilter: DWORD;
  5844.   lpBytesReturned: LPDWORD; lpOverlapped: POverlapped;
  5845.   lpCompletionRoutine: FARPROC): BOOL; stdcall;
  5846. {$EXTERNALSYM ReadDirectoryChangesW}
  5847. function ReadDirectoryChangesW(hDirectory: THandle; lpBuffer: Pointer;
  5848.   nBufferLength: DWORD; bWatchSubtree: Bool; dwNotifyFilter: DWORD;
  5849.   lpBytesReturned: LPDWORD; lpOverlapped: POverlapped;
  5850.   lpCompletionRoutine: FARPROC): BOOL; stdcall;
  5851. {$EXTERNALSYM VirtualLock}
  5852. function VirtualLock(lpAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  5853. {$EXTERNALSYM VirtualUnlock}
  5854. function VirtualUnlock(lpAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  5855. {$EXTERNALSYM MapViewOfFileEx}
  5856. function MapViewOfFileEx(hFileMappingObject: THandle;
  5857.   dwDesiredAccess, dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap: DWORD;
  5858.   lpBaseAddress: Pointer): Pointer; stdcall;
  5859. {$EXTERNALSYM SetPriorityClass}
  5860. function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL; stdcall;
  5861. {$EXTERNALSYM GetPriorityClass}
  5862. function GetPriorityClass(hProcess: THandle): DWORD; stdcall;
  5863. {$EXTERNALSYM IsBadReadPtr}
  5864. function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  5865. {$EXTERNALSYM IsBadWritePtr}
  5866. function IsBadWritePtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  5867. {$EXTERNALSYM IsBadHugeReadPtr}
  5868. function IsBadHugeReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  5869. {$EXTERNALSYM IsBadHugeWritePtr}
  5870. function IsBadHugeWritePtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  5871. {$EXTERNALSYM IsBadCodePtr}
  5872. function IsBadCodePtr(lpfn: FARPROC): BOOL; stdcall;
  5873. {$EXTERNALSYM IsBadStringPtrA}
  5874. function IsBadStringPtrA(lpsz: PAnsiChar; ucchMax: UINT): BOOL; stdcall;
  5875. {$EXTERNALSYM IsBadStringPtrW}
  5876. function IsBadStringPtrW(lpsz: PWideChar; ucchMax: UINT): BOOL; stdcall;
  5877. {$EXTERNALSYM IsBadStringPtr}
  5878. function IsBadStringPtr(lpsz: PChar; ucchMax: UINT): BOOL; stdcall;
  5879. {$EXTERNALSYM LookupAccountSidA}
  5880. function LookupAccountSidA(lpSystemName: PAnsiChar; Sid: PSID;
  5881.   Name: PAnsiChar; var cbName: DWORD; ReferencedDomainName: PAnsiChar;
  5882.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5883. {$EXTERNALSYM LookupAccountSidW}
  5884. function LookupAccountSidW(lpSystemName: PWideChar; Sid: PSID;
  5885.   Name: PWideChar; var cbName: DWORD; ReferencedDomainName: PWideChar;
  5886.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5887. {$EXTERNALSYM LookupAccountSid}
  5888. function LookupAccountSid(lpSystemName: PChar; Sid: PSID;
  5889.   Name: PChar; var cbName: DWORD; ReferencedDomainName: PChar;
  5890.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5891. {$EXTERNALSYM LookupAccountNameA}
  5892. function LookupAccountNameA(lpSystemName, lpAccountName: PAnsiChar;
  5893.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PAnsiChar;
  5894.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5895. {$EXTERNALSYM LookupAccountNameW}
  5896. function LookupAccountNameW(lpSystemName, lpAccountName: PWideChar;
  5897.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PWideChar;
  5898.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5899. {$EXTERNALSYM LookupAccountName}
  5900. function LookupAccountName(lpSystemName, lpAccountName: PChar;
  5901.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PChar;
  5902.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  5903. {$EXTERNALSYM LookupPrivilegeValueA}
  5904. function LookupPrivilegeValueA(lpSystemName, lpName: PAnsiChar;
  5905.   var lpLuid: TLargeInteger): BOOL; stdcall;
  5906. {$EXTERNALSYM LookupPrivilegeValueW}
  5907. function LookupPrivilegeValueW(lpSystemName, lpName: PWideChar;
  5908.   var lpLuid: TLargeInteger): BOOL; stdcall;
  5909. {$EXTERNALSYM LookupPrivilegeValue}
  5910. function LookupPrivilegeValue(lpSystemName, lpName: PChar;
  5911.   var lpLuid: TLargeInteger): BOOL; stdcall;
  5912. {$EXTERNALSYM LookupPrivilegeNameA}
  5913. function LookupPrivilegeNameA(lpSystemName: PAnsiChar;
  5914.   var lpLuid: TLargeInteger; lpName: PAnsiChar; var cbName: DWORD): BOOL; stdcall;
  5915. {$EXTERNALSYM LookupPrivilegeNameW}
  5916. function LookupPrivilegeNameW(lpSystemName: PWideChar;
  5917.   var lpLuid: TLargeInteger; lpName: PWideChar; var cbName: DWORD): BOOL; stdcall;
  5918. {$EXTERNALSYM LookupPrivilegeName}
  5919. function LookupPrivilegeName(lpSystemName: PChar;
  5920.   var lpLuid: TLargeInteger; lpName: PChar; var cbName: DWORD): BOOL; stdcall;
  5921. {$EXTERNALSYM LookupPrivilegeDisplayNameA}
  5922. function LookupPrivilegeDisplayNameA(lpSystemName, lpName: PAnsiChar;
  5923.   lpDisplayName: PAnsiChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  5924. {$EXTERNALSYM LookupPrivilegeDisplayNameW}
  5925. function LookupPrivilegeDisplayNameW(lpSystemName, lpName: PAnsiChar;
  5926.   lpDisplayName: PWideChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  5927. {$EXTERNALSYM LookupPrivilegeDisplayName}
  5928. function LookupPrivilegeDisplayName(lpSystemName, lpName: PAnsiChar;
  5929.   lpDisplayName: PChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  5930. {$EXTERNALSYM AllocateLocallyUniqueId}
  5931. function AllocateLocallyUniqueId(var Luid: TLargeInteger): BOOL; stdcall;
  5932. {$EXTERNALSYM BuildCommDCBA}
  5933. function BuildCommDCBA(lpDef: PAnsiChar; var lpDCB: TDCB): BOOL; stdcall;
  5934. {$EXTERNALSYM BuildCommDCBW}
  5935. function BuildCommDCBW(lpDef: PWideChar; var lpDCB: TDCB): BOOL; stdcall;
  5936. {$EXTERNALSYM BuildCommDCB}
  5937. function BuildCommDCB(lpDef: PChar; var lpDCB: TDCB): BOOL; stdcall;
  5938. {$EXTERNALSYM BuildCommDCBAndTimeoutsA}
  5939. function BuildCommDCBAndTimeoutsA(lpDef: PAnsiChar; var lpDCB: TDCB;
  5940.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  5941. {$EXTERNALSYM BuildCommDCBAndTimeoutsW}
  5942. function BuildCommDCBAndTimeoutsW(lpDef: PWideChar; var lpDCB: TDCB;
  5943.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  5944. {$EXTERNALSYM BuildCommDCBAndTimeouts}
  5945. function BuildCommDCBAndTimeouts(lpDef: PChar; var lpDCB: TDCB;
  5946.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  5947. {$EXTERNALSYM CommConfigDialogA}
  5948. function CommConfigDialogA(lpszName: PAnsiChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  5949. {$EXTERNALSYM CommConfigDialogW}
  5950. function CommConfigDialogW(lpszName: PWideChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  5951. {$EXTERNALSYM CommConfigDialog}
  5952. function CommConfigDialog(lpszName: PChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  5953. {$EXTERNALSYM GetDefaultCommConfigA}
  5954. function GetDefaultCommConfigA(lpszName: PAnsiChar;
  5955.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  5956. {$EXTERNALSYM GetDefaultCommConfigW}
  5957. function GetDefaultCommConfigW(lpszName: PWideChar;
  5958.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  5959. {$EXTERNALSYM GetDefaultCommConfig}
  5960. function GetDefaultCommConfig(lpszName: PChar;
  5961.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  5962. {$EXTERNALSYM SetDefaultCommConfigA}
  5963. function SetDefaultCommConfigA(lpszName: PAnsiChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  5964. {$EXTERNALSYM SetDefaultCommConfigW}
  5965. function SetDefaultCommConfigW(lpszName: PWideChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  5966. {$EXTERNALSYM SetDefaultCommConfig}
  5967. function SetDefaultCommConfig(lpszName: PChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  5968.  
  5969. const
  5970.   {$EXTERNALSYM MAX_COMPUTERNAME_LENGTH}
  5971.   MAX_COMPUTERNAME_LENGTH = 15;
  5972.  
  5973. {$EXTERNALSYM GetComputerNameA}
  5974. function GetComputerNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
  5975. {$EXTERNALSYM GetComputerNameW}
  5976. function GetComputerNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
  5977. {$EXTERNALSYM GetComputerName}
  5978. function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;
  5979. {$EXTERNALSYM SetComputerNameA}
  5980. function SetComputerNameA(lpComputerName: PAnsiChar): BOOL; stdcall;
  5981. {$EXTERNALSYM SetComputerNameW}
  5982. function SetComputerNameW(lpComputerName: PWideChar): BOOL; stdcall;
  5983. {$EXTERNALSYM SetComputerName}
  5984. function SetComputerName(lpComputerName: PChar): BOOL; stdcall;
  5985. {$EXTERNALSYM GetUserNameA}
  5986. function GetUserNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
  5987. {$EXTERNALSYM GetUserNameW}
  5988. function GetUserNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
  5989. {$EXTERNALSYM GetUserName}
  5990. function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;
  5991.  
  5992. { Logon Support APIs }
  5993.  
  5994. const
  5995.   {$EXTERNALSYM LOGON32_LOGON_INTERACTIVE}
  5996.   LOGON32_LOGON_INTERACTIVE = 2;
  5997.   {$EXTERNALSYM LOGON32_LOGON_NETWORK}
  5998.   LOGON32_LOGON_NETWORK = 3;
  5999.   {$EXTERNALSYM LOGON32_LOGON_BATCH}
  6000.   LOGON32_LOGON_BATCH = 4;
  6001.   {$EXTERNALSYM LOGON32_LOGON_SERVICE}
  6002.   LOGON32_LOGON_SERVICE = 5;
  6003.  
  6004.   {$EXTERNALSYM LOGON32_PROVIDER_DEFAULT}
  6005.   LOGON32_PROVIDER_DEFAULT = 0;
  6006.   {$EXTERNALSYM LOGON32_PROVIDER_WINNT35}
  6007.   LOGON32_PROVIDER_WINNT35 = 1;
  6008.   {$EXTERNALSYM LOGON32_PROVIDER_WINNT40}
  6009.   LOGON32_PROVIDER_WINNT40 = 2;
  6010.  
  6011. {$EXTERNALSYM LogonUserA}
  6012. function LogonUserA(lpszUsername, lpszDomain, lpszPassword: PAnsiChar;
  6013.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6014. {$EXTERNALSYM LogonUserW}
  6015. function LogonUserW(lpszUsername, lpszDomain, lpszPassword: PWideChar;
  6016.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6017. {$EXTERNALSYM LogonUser}
  6018. function LogonUser(lpszUsername, lpszDomain, lpszPassword: PChar;
  6019.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6020. {$EXTERNALSYM ImpersonateLoggedOnUser}
  6021. function ImpersonateLoggedOnUser(hToken: THandle): BOOL; stdcall;
  6022. {$EXTERNALSYM CreateProcessAsUserA}
  6023. function CreateProcessAsUserA(hToken: THandle; lpApplicationName: PAnsiChar;
  6024.   lpCommandLine: PAnsiChar; lpProcessAttributes: PSecurityAttributes;
  6025.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6026.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PAnsiChar;
  6027.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6028. {$EXTERNALSYM CreateProcessAsUserW}
  6029. function CreateProcessAsUserW(hToken: THandle; lpApplicationName: PWideChar;
  6030.   lpCommandLine: PWideChar; lpProcessAttributes: PSecurityAttributes;
  6031.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6032.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PWideChar;
  6033.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6034. {$EXTERNALSYM CreateProcessAsUser}
  6035. function CreateProcessAsUser(hToken: THandle; lpApplicationName: PChar;
  6036.   lpCommandLine: PChar; lpProcessAttributes: PSecurityAttributes;
  6037.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6038.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PChar;
  6039.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6040.  
  6041. {$EXTERNALSYM DuplicateTokenEx}
  6042. function DuplicateTokenEx(hExistingToken: THandle; dwDesiredAccess: DWORD;
  6043.   lpTokenAttributes: PSecurityAttributes;
  6044.   ImpersonationLevel: TSecurityImpersonationLevel; TokenType: TTokenType;
  6045.   var phNewToken: THandle): BOOL; stdcall;
  6046.  
  6047. { Plug-and-Play API's }
  6048. const
  6049.   {$EXTERNALSYM HW_PROFILE_GUIDLEN}
  6050.   HW_PROFILE_GUIDLEN = 39;                 { 36-characters plus NULL terminator }
  6051.   {$EXTERNALSYM MAX_PROFILE_LEN}
  6052.   MAX_PROFILE_LEN = 80;
  6053.  
  6054.   {$EXTERNALSYM DOCKINFO_UNDOCKED}
  6055.   DOCKINFO_UNDOCKED = $1;
  6056.   {$EXTERNALSYM DOCKINFO_DOCKED}
  6057.   DOCKINFO_DOCKED = $2;
  6058.   {$EXTERNALSYM DOCKINFO_USER_SUPPLIED}
  6059.   DOCKINFO_USER_SUPPLIED = $4;
  6060.   {$EXTERNALSYM DOCKINFO_USER_UNDOCKED}
  6061.   DOCKINFO_USER_UNDOCKED = DOCKINFO_USER_SUPPLIED or DOCKINFO_UNDOCKED;
  6062.   {$EXTERNALSYM DOCKINFO_USER_DOCKED}
  6063.   DOCKINFO_USER_DOCKED = DOCKINFO_USER_SUPPLIED or DOCKINFO_DOCKED;
  6064.  
  6065. type
  6066.   PHWProfileInfoA = ^THWProfileInfoA;
  6067.   PHWProfileInfoW = ^THWProfileInfoW;
  6068.   PHWProfileInfo = PHWProfileInfoA;
  6069.   {$EXTERNALSYM tagHW_PROFILE_INFOA}
  6070.   tagHW_PROFILE_INFOA = packed record
  6071.     dwDockInfo: DWORD;
  6072.     szHwProfileGuid: packed array[0..HW_PROFILE_GUIDLEN-1] of AnsiChar;
  6073.     szHwProfileName: packed array[0..MAX_PROFILE_LEN-1] of AnsiChar;
  6074.   end;
  6075.   {$EXTERNALSYM tagHW_PROFILE_INFOW}
  6076.   tagHW_PROFILE_INFOW = packed record
  6077.     dwDockInfo: DWORD;
  6078.     szHwProfileGuid: packed array[0..HW_PROFILE_GUIDLEN-1] of WideChar;
  6079.     szHwProfileName: packed array[0..MAX_PROFILE_LEN-1] of WideChar;
  6080.   end;
  6081.   {$EXTERNALSYM tagHW_PROFILE_INFO}
  6082.   tagHW_PROFILE_INFO = tagHW_PROFILE_INFOA;
  6083.   THWProfileInfoA = tagHW_PROFILE_INFOA;
  6084.   THWProfileInfoW = tagHW_PROFILE_INFOW;
  6085.   THWProfileInfo = THWProfileInfoA;
  6086.   {$EXTERNALSYM HW_PROFILE_INFOA}
  6087.   HW_PROFILE_INFOA = tagHW_PROFILE_INFOA;
  6088.   {$EXTERNALSYM HW_PROFILE_INFOW}
  6089.   HW_PROFILE_INFOW = tagHW_PROFILE_INFOW;
  6090.   {$EXTERNALSYM HW_PROFILE_INFO}
  6091.   HW_PROFILE_INFO = HW_PROFILE_INFOA;
  6092.  
  6093. {$EXTERNALSYM GetCurrentHwProfileA}
  6094. function GetCurrentHwProfileA(var lpHwProfileInfo: THWProfileInfoA): BOOL; stdcall;
  6095. {$EXTERNALSYM GetCurrentHwProfileW}
  6096. function GetCurrentHwProfileW(var lpHwProfileInfo: THWProfileInfoW): BOOL; stdcall;
  6097. {$EXTERNALSYM GetCurrentHwProfile}
  6098. function GetCurrentHwProfile(var lpHwProfileInfo: THWProfileInfo): BOOL; stdcall;
  6099.  
  6100. { Performance counter API's }
  6101.  
  6102. {$EXTERNALSYM QueryPerformanceCounter}
  6103. function QueryPerformanceCounter(var lpPerformanceCount: TLargeInteger): BOOL; stdcall;
  6104. {$EXTERNALSYM QueryPerformanceFrequency}
  6105. function QueryPerformanceFrequency(var lpFrequency: TLargeInteger): BOOL; stdcall;
  6106.  
  6107. type
  6108.   POSVersionInfoA = ^TOSVersionInfoA;
  6109.   POSVersionInfoW = ^TOSVersionInfoW;
  6110.   POSVersionInfo = POSVersionInfoA;
  6111.   {$EXTERNALSYM _OSVERSIONINFOA}
  6112.   _OSVERSIONINFOA = record
  6113.     dwOSVersionInfoSize: DWORD;
  6114.     dwMajorVersion: DWORD;
  6115.     dwMinorVersion: DWORD;
  6116.     dwBuildNumber: DWORD;
  6117.     dwPlatformId: DWORD;
  6118.     szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage }
  6119.   end;
  6120.   {$EXTERNALSYM _OSVERSIONINFOW}
  6121.   _OSVERSIONINFOW = record
  6122.     dwOSVersionInfoSize: DWORD;
  6123.     dwMajorVersion: DWORD;
  6124.     dwMinorVersion: DWORD;
  6125.     dwBuildNumber: DWORD;
  6126.     dwPlatformId: DWORD;
  6127.     szCSDVersion: array[0..127] of WideChar; { Maintenance string for PSS usage }
  6128.   end;
  6129.   {$EXTERNALSYM _OSVERSIONINFO}
  6130.   _OSVERSIONINFO = _OSVERSIONINFOA;
  6131.   TOSVersionInfoA = _OSVERSIONINFOA;
  6132.   TOSVersionInfoW = _OSVERSIONINFOW;
  6133.   TOSVersionInfo = TOSVersionInfoA;
  6134.   {$EXTERNALSYM OSVERSIONINFOA}
  6135.   OSVERSIONINFOA = _OSVERSIONINFOA;
  6136.   {$EXTERNALSYM OSVERSIONINFOW}
  6137.   OSVERSIONINFOW = _OSVERSIONINFOW;
  6138.   {$EXTERNALSYM OSVERSIONINFO}
  6139.   OSVERSIONINFO = OSVERSIONINFOA;
  6140.  
  6141. { dwPlatformId defines }
  6142. const
  6143.   {$EXTERNALSYM VER_PLATFORM_WIN32s}
  6144.   VER_PLATFORM_WIN32s = 0;
  6145.   {$EXTERNALSYM VER_PLATFORM_WIN32_WINDOWS}
  6146.   VER_PLATFORM_WIN32_WINDOWS = 1;
  6147.   {$EXTERNALSYM VER_PLATFORM_WIN32_NT}
  6148.   VER_PLATFORM_WIN32_NT = 2;
  6149.  
  6150. {$EXTERNALSYM GetVersionExA}
  6151. function GetVersionExA(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6152. {$EXTERNALSYM GetVersionExW}
  6153. function GetVersionExW(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6154. {$EXTERNALSYM GetVersionEx}
  6155. function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6156.  
  6157. { DOS and OS/2 Compatible Error Code definitions returned by the Win32 Base
  6158.   API functions. }
  6159.  
  6160.  
  6161. { Translated from WINERROR.H }
  6162. { Error code definitions for the Win32 API functions }
  6163.  
  6164. (*
  6165.   Values are 32 bit values layed out as follows:
  6166.    3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  6167.    1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  6168.   +---+-+-+-----------------------+-------------------------------+
  6169.   |Sev|C|R|     Facility          |               Code            |
  6170.   +---+-+-+-----------------------+-------------------------------+
  6171.  
  6172.   where
  6173.       Sev - is the severity code
  6174.           00 - Success
  6175.           01 - Informational
  6176.           10 - Warning
  6177.           11 - Error
  6178.  
  6179.       C - is the Customer code flag
  6180.       R - is a reserved bit
  6181.       Facility - is the facility code
  6182.       Code - is the facility's status code
  6183. *)
  6184.  
  6185. { Define the facility codes }
  6186.  
  6187. const
  6188.   {$EXTERNALSYM FACILITY_WINDOWS}
  6189.   FACILITY_WINDOWS                     = 8;
  6190.   {$EXTERNALSYM FACILITY_STORAGE}
  6191.   FACILITY_STORAGE                     = 3;
  6192.   {$EXTERNALSYM FACILITY_RPC}
  6193.   FACILITY_RPC                         = 1;
  6194.   {$EXTERNALSYM FACILITY_SSPI}
  6195.   FACILITY_SSPI                        = 9;
  6196.   {$EXTERNALSYM FACILITY_WIN32}
  6197.   FACILITY_WIN32                       = 7;
  6198.   {$EXTERNALSYM FACILITY_CONTROL}
  6199.   FACILITY_CONTROL                     = 10;
  6200.   {$EXTERNALSYM FACILITY_NULL}
  6201.   FACILITY_NULL                        = 0;
  6202.   {$EXTERNALSYM FACILITY_INTERNET}
  6203.   FACILITY_INTERNET                    = 12;
  6204.   {$EXTERNALSYM FACILITY_ITF}
  6205.   FACILITY_ITF                         = 4;
  6206.   {$EXTERNALSYM FACILITY_DISPATCH}
  6207.   FACILITY_DISPATCH                    = 2;
  6208.   {$EXTERNALSYM FACILITY_CERT}
  6209.   FACILITY_CERT                        = 11;
  6210.  
  6211.  
  6212. { Define the severity codes }
  6213.  
  6214.   { The operation completed successfully. }
  6215.   {$EXTERNALSYM ERROR_SUCCESS}
  6216.   ERROR_SUCCESS = 0;
  6217.   {$EXTERNALSYM NO_ERROR}
  6218.   NO_ERROR = 0;   { dderror }
  6219.  
  6220.   { Incorrect function. }
  6221.   {$EXTERNALSYM ERROR_INVALID_FUNCTION}
  6222.   ERROR_INVALID_FUNCTION = 1;   { dderror }
  6223.  
  6224.   { The system cannot find the file specified. }
  6225.   {$EXTERNALSYM ERROR_FILE_NOT_FOUND}
  6226.   ERROR_FILE_NOT_FOUND = 2;
  6227.  
  6228.   { The system cannot find the path specified. }
  6229.   {$EXTERNALSYM ERROR_PATH_NOT_FOUND}
  6230.   ERROR_PATH_NOT_FOUND = 3;
  6231.  
  6232.   { The system cannot open the file. }
  6233.   {$EXTERNALSYM ERROR_TOO_MANY_OPEN_FILES}
  6234.   ERROR_TOO_MANY_OPEN_FILES = 4;
  6235.  
  6236.   { Access is denied. }
  6237.   {$EXTERNALSYM ERROR_ACCESS_DENIED}
  6238.   ERROR_ACCESS_DENIED = 5;
  6239.  
  6240.   { The handle is invalid. }
  6241.   {$EXTERNALSYM ERROR_INVALID_HANDLE}
  6242.   ERROR_INVALID_HANDLE = 6;
  6243.  
  6244.   { The storage control blocks were destroyed. }
  6245.   {$EXTERNALSYM ERROR_ARENA_TRASHED}
  6246.   ERROR_ARENA_TRASHED = 7;
  6247.  
  6248.   { Not enough storage is available to process this command. }
  6249.   {$EXTERNALSYM ERROR_NOT_ENOUGH_MEMORY}
  6250.   ERROR_NOT_ENOUGH_MEMORY = 8;   { dderror }
  6251.  
  6252.   { The storage control block address is invalid. }
  6253.   {$EXTERNALSYM ERROR_INVALID_BLOCK}
  6254.   ERROR_INVALID_BLOCK = 9;
  6255.  
  6256.   { The environment is incorrect. }
  6257.   {$EXTERNALSYM ERROR_BAD_ENVIRONMENT}
  6258.   ERROR_BAD_ENVIRONMENT = 10;
  6259.  
  6260.   { An attempt was made to load a program with an incorrect format. }
  6261.   {$EXTERNALSYM ERROR_BAD_FORMAT}
  6262.   ERROR_BAD_FORMAT = 11;
  6263.  
  6264.   { The access code is invalid. }
  6265.   {$EXTERNALSYM ERROR_INVALID_ACCESS}
  6266.   ERROR_INVALID_ACCESS = 12;
  6267.  
  6268.   { The data is invalid. }
  6269.   {$EXTERNALSYM ERROR_INVALID_DATA}
  6270.   ERROR_INVALID_DATA = 13;
  6271.  
  6272.   { Not enough storage is available to complete this operation. }
  6273.   {$EXTERNALSYM ERROR_OUTOFMEMORY}
  6274.   ERROR_OUTOFMEMORY = 14;
  6275.  
  6276.   { The system cannot find the drive specified. }
  6277.   {$EXTERNALSYM ERROR_INVALID_DRIVE}
  6278.   ERROR_INVALID_DRIVE = 15;
  6279.  
  6280.   { The directory cannot be removed. }
  6281.   {$EXTERNALSYM ERROR_CURRENT_DIRECTORY}
  6282.   ERROR_CURRENT_DIRECTORY = $10;
  6283.  
  6284.   { The system cannot move the file }
  6285.   { to a different disk drive. }
  6286.   {$EXTERNALSYM ERROR_NOT_SAME_DEVICE}
  6287.   ERROR_NOT_SAME_DEVICE = 17;
  6288.  
  6289.   { There are no more files. }
  6290.   {$EXTERNALSYM ERROR_NO_MORE_FILES}
  6291.   ERROR_NO_MORE_FILES = 18;
  6292.  
  6293.   { The media is write protected. }
  6294.   {$EXTERNALSYM ERROR_WRITE_PROTECT}
  6295.   ERROR_WRITE_PROTECT = 19;
  6296.  
  6297.   { The system cannot find the device specified. }
  6298.   {$EXTERNALSYM ERROR_BAD_UNIT}
  6299.   ERROR_BAD_UNIT = 20;
  6300.  
  6301.   { The device is not ready. }
  6302.   {$EXTERNALSYM ERROR_NOT_READY}
  6303.   ERROR_NOT_READY = 21;
  6304.  
  6305.   { The device does not recognize the command. }
  6306.   {$EXTERNALSYM ERROR_BAD_COMMAND}
  6307.   ERROR_BAD_COMMAND = 22;
  6308.  
  6309.   { Data error (cyclic redundancy check) }
  6310.   {$EXTERNALSYM ERROR_CRC}
  6311.   ERROR_CRC = 23;
  6312.  
  6313.   { The program issued a command but the command length is incorrect. }
  6314.   {$EXTERNALSYM ERROR_BAD_LENGTH}
  6315.   ERROR_BAD_LENGTH = 24;
  6316.  
  6317.   { The drive cannot locate a specific area or track on the disk. }
  6318.   {$EXTERNALSYM ERROR_SEEK}
  6319.   ERROR_SEEK = 25;
  6320.  
  6321.   { The specified disk or diskette cannot be accessed. }
  6322.   {$EXTERNALSYM ERROR_NOT_DOS_DISK}
  6323.   ERROR_NOT_DOS_DISK = 26;
  6324.  
  6325.   { The drive cannot find the sector requested. }
  6326.   {$EXTERNALSYM ERROR_SECTOR_NOT_FOUND}
  6327.   ERROR_SECTOR_NOT_FOUND = 27;
  6328.  
  6329.   { The printer is out of paper. }
  6330.   {$EXTERNALSYM ERROR_OUT_OF_PAPER}
  6331.   ERROR_OUT_OF_PAPER = 28;
  6332.  
  6333.   { The system cannot write to the specified device. }
  6334.   {$EXTERNALSYM ERROR_WRITE_FAULT}
  6335.   ERROR_WRITE_FAULT = 29;
  6336.  
  6337.   { The system cannot read from the specified device. }
  6338.   {$EXTERNALSYM ERROR_READ_FAULT}
  6339.   ERROR_READ_FAULT = 30;
  6340.  
  6341.   { A device attached to the system is not functioning. }
  6342.   {$EXTERNALSYM ERROR_GEN_FAILURE}
  6343.   ERROR_GEN_FAILURE = 31;
  6344.  
  6345.   { The process cannot access the file because it is being used by another process. }
  6346.   {$EXTERNALSYM ERROR_SHARING_VIOLATION}
  6347.   ERROR_SHARING_VIOLATION = $20;
  6348.  
  6349.   { The process cannot access the file because }
  6350.   { another process has locked a portion of the file. }
  6351.   {$EXTERNALSYM ERROR_LOCK_VIOLATION}
  6352.   ERROR_LOCK_VIOLATION = 33;
  6353.  
  6354.   { The wrong diskette is in the drive. Insert %2 (Volume Serial Number: %3) }
  6355.   { into drive %1. }
  6356.   {$EXTERNALSYM ERROR_WRONG_DISK}
  6357.   ERROR_WRONG_DISK = 34;
  6358.  
  6359.   { Too many files opened for sharing. }
  6360.   {$EXTERNALSYM ERROR_SHARING_BUFFER_EXCEEDED}
  6361.   ERROR_SHARING_BUFFER_EXCEEDED = 36;
  6362.  
  6363.   { Reached end of file. }
  6364.   {$EXTERNALSYM ERROR_HANDLE_EOF}
  6365.   ERROR_HANDLE_EOF = 38;
  6366.  
  6367.   { The disk is full. }
  6368.   {$EXTERNALSYM ERROR_HANDLE_DISK_FULL}
  6369.   ERROR_HANDLE_DISK_FULL = 39;
  6370.  
  6371.   { The network request is not supported. }
  6372.   {$EXTERNALSYM ERROR_NOT_SUPPORTED}
  6373.   ERROR_NOT_SUPPORTED = 50;
  6374.  
  6375.   { The remote computer is not available. }
  6376.   {$EXTERNALSYM ERROR_REM_NOT_LIST}
  6377.   ERROR_REM_NOT_LIST = 51;
  6378.  
  6379.   { A duplicate name exists on the network. }
  6380.   {$EXTERNALSYM ERROR_DUP_NAME}
  6381.   ERROR_DUP_NAME = 52;
  6382.  
  6383.   { The network path was not found. }
  6384.   {$EXTERNALSYM ERROR_BAD_NETPATH}
  6385.   ERROR_BAD_NETPATH = 53;
  6386.  
  6387.   { The network is busy. }
  6388.   {$EXTERNALSYM ERROR_NETWORK_BUSY}
  6389.   ERROR_NETWORK_BUSY = 54;
  6390.  
  6391.   { The specified network resource or device is no longer }
  6392.   { available. }
  6393.   {$EXTERNALSYM ERROR_DEV_NOT_EXIST}
  6394.   ERROR_DEV_NOT_EXIST = 55;   { dderror }
  6395.  
  6396.   { The network BIOS command limit has been reached. }
  6397.   {$EXTERNALSYM ERROR_TOO_MANY_CMDS}
  6398.   ERROR_TOO_MANY_CMDS = 56;
  6399.  
  6400.   { A network adapter hardware error occurred. }
  6401.   {$EXTERNALSYM ERROR_ADAP_HDW_ERR}
  6402.   ERROR_ADAP_HDW_ERR = 57;
  6403.  
  6404.   { The specified server cannot perform the requested }
  6405.   { operation. }
  6406.   {$EXTERNALSYM ERROR_BAD_NET_RESP}
  6407.   ERROR_BAD_NET_RESP = 58;
  6408.  
  6409.   { An unexpected network error occurred. }
  6410.   {$EXTERNALSYM ERROR_UNEXP_NET_ERR}
  6411.   ERROR_UNEXP_NET_ERR = 59;
  6412.  
  6413.   { The remote adapter is not compatible. }
  6414.   {$EXTERNALSYM ERROR_BAD_REM_ADAP}
  6415.   ERROR_BAD_REM_ADAP = 60;
  6416.  
  6417.   { The printer queue is full. }
  6418.   {$EXTERNALSYM ERROR_PRINTQ_FULL}
  6419.   ERROR_PRINTQ_FULL = 61;
  6420.  
  6421.   { Space to store the file waiting to be printed is }
  6422.   { not available on the server. }
  6423.   {$EXTERNALSYM ERROR_NO_SPOOL_SPACE}
  6424.   ERROR_NO_SPOOL_SPACE = 62;
  6425.  
  6426.   { Your file waiting to be printed was deleted. }
  6427.   {$EXTERNALSYM ERROR_PRINT_CANCELLED}
  6428.   ERROR_PRINT_CANCELLED = 63;
  6429.  
  6430.   { The specified network name is no longer available. }
  6431.   {$EXTERNALSYM ERROR_NETNAME_DELETED}
  6432.   ERROR_NETNAME_DELETED = $40;
  6433.  
  6434.   { Network access is denied. }
  6435.   {$EXTERNALSYM ERROR_NETWORK_ACCESS_DENIED}
  6436.   ERROR_NETWORK_ACCESS_DENIED = 65;
  6437.  
  6438.   { The network resource type is not correct. }
  6439.   {$EXTERNALSYM ERROR_BAD_DEV_TYPE}
  6440.   ERROR_BAD_DEV_TYPE = 66;
  6441.  
  6442.   { The network name cannot be found. }
  6443.   {$EXTERNALSYM ERROR_BAD_NET_NAME}
  6444.   ERROR_BAD_NET_NAME = 67;
  6445.  
  6446.   { The name limit for the local computer network }
  6447.   { adapter card was exceeded. }
  6448.   {$EXTERNALSYM ERROR_TOO_MANY_NAMES}
  6449.   ERROR_TOO_MANY_NAMES = 68;
  6450.  
  6451.   { The network BIOS session limit was exceeded. }
  6452.   {$EXTERNALSYM ERROR_TOO_MANY_SESS}
  6453.   ERROR_TOO_MANY_SESS = 69;
  6454.  
  6455.   { The remote server has been paused or is in the }
  6456.   { process of being started. }
  6457.   {$EXTERNALSYM ERROR_SHARING_PAUSED}
  6458.   ERROR_SHARING_PAUSED = 70;
  6459.  
  6460.   { No more connections can be made to this remote computer at this time }
  6461.   { because there are already as many connections as the computer can accept. }
  6462.   {$EXTERNALSYM ERROR_REQ_NOT_ACCEP}
  6463.   ERROR_REQ_NOT_ACCEP = 71;
  6464.  
  6465.   { The specified printer or disk device has been paused. }
  6466.   {$EXTERNALSYM ERROR_REDIR_PAUSED}
  6467.   ERROR_REDIR_PAUSED = 72;
  6468.  
  6469.   { The file exists. }
  6470.   {$EXTERNALSYM ERROR_FILE_EXISTS}
  6471.   ERROR_FILE_EXISTS = 80;
  6472.  
  6473.   { The directory or file cannot be created. }
  6474.   {$EXTERNALSYM ERROR_CANNOT_MAKE}
  6475.   ERROR_CANNOT_MAKE = 82;
  6476.  
  6477.   { Fail on INT 24 }
  6478.   {$EXTERNALSYM ERROR_FAIL_I24}
  6479.   ERROR_FAIL_I24 = 83;
  6480.  
  6481.   { Storage to process this request is not available. }
  6482.   {$EXTERNALSYM ERROR_OUT_OF_STRUCTURES}
  6483.   ERROR_OUT_OF_STRUCTURES = 84;
  6484.  
  6485.   { The local device name is already in use. }
  6486.   {$EXTERNALSYM ERROR_ALREADY_ASSIGNED}
  6487.   ERROR_ALREADY_ASSIGNED = 85;
  6488.  
  6489.   { The specified network password is not correct. }
  6490.   {$EXTERNALSYM ERROR_INVALID_PASSWORD}
  6491.   ERROR_INVALID_PASSWORD = 86;
  6492.  
  6493.   { The parameter is incorrect. }
  6494.   {$EXTERNALSYM ERROR_INVALID_PARAMETER}
  6495.   ERROR_INVALID_PARAMETER = 87;   { dderror }
  6496.  
  6497.   { A write fault occurred on the network. }
  6498.   {$EXTERNALSYM ERROR_NET_WRITE_FAULT}
  6499.   ERROR_NET_WRITE_FAULT = 88;
  6500.  
  6501.   { The system cannot start another process at }
  6502.   { this time. }
  6503.   {$EXTERNALSYM ERROR_NO_PROC_SLOTS}
  6504.   ERROR_NO_PROC_SLOTS = 89;
  6505.  
  6506.   { Cannot create another system semaphore. }
  6507.   {$EXTERNALSYM ERROR_TOO_MANY_SEMAPHORES}
  6508.   ERROR_TOO_MANY_SEMAPHORES = 100;
  6509.  
  6510.   { The exclusive semaphore is owned by another process. }
  6511.   {$EXTERNALSYM ERROR_EXCL_SEM_ALREADY_OWNED}
  6512.   ERROR_EXCL_SEM_ALREADY_OWNED = 101;
  6513.  
  6514.   { The semaphore is set and cannot be closed. }
  6515.   {$EXTERNALSYM ERROR_SEM_IS_SET}
  6516.   ERROR_SEM_IS_SET = 102;
  6517.  
  6518.   { The semaphore cannot be set again. }
  6519.   {$EXTERNALSYM ERROR_TOO_MANY_SEM_REQUESTS}
  6520.   ERROR_TOO_MANY_SEM_REQUESTS = 103;
  6521.  
  6522.   { Cannot request exclusive semaphores at interrupt time. }
  6523.   {$EXTERNALSYM ERROR_INVALID_AT_INTERRUPT_TIME}
  6524.   ERROR_INVALID_AT_INTERRUPT_TIME = 104;
  6525.  
  6526.   { The previous ownership of this semaphore has ended. }
  6527.   {$EXTERNALSYM ERROR_SEM_OWNER_DIED}
  6528.   ERROR_SEM_OWNER_DIED = 105;
  6529.  
  6530.   { Insert the diskette for drive %1. }
  6531.   {$EXTERNALSYM ERROR_SEM_USER_LIMIT}
  6532.   ERROR_SEM_USER_LIMIT = 106;
  6533.  
  6534.   { Program stopped because alternate diskette was not inserted. }
  6535.   {$EXTERNALSYM ERROR_DISK_CHANGE}
  6536.   ERROR_DISK_CHANGE = 107;
  6537.  
  6538.   { The disk is in use or locked by }
  6539.   { another process. }
  6540.   {$EXTERNALSYM ERROR_DRIVE_LOCKED}
  6541.   ERROR_DRIVE_LOCKED = 108;
  6542.  
  6543.   { The pipe has been ended. }
  6544.   {$EXTERNALSYM ERROR_BROKEN_PIPE}
  6545.   ERROR_BROKEN_PIPE = 109;
  6546.  
  6547.   { The system cannot open the device or file specified. }
  6548.   {$EXTERNALSYM ERROR_OPEN_FAILED}
  6549.   ERROR_OPEN_FAILED = 110;
  6550.  
  6551.   { The file name is too long. }
  6552.   {$EXTERNALSYM ERROR_BUFFER_OVERFLOW}
  6553.   ERROR_BUFFER_OVERFLOW = 111;
  6554.  
  6555.   { There is not enough space on the disk. }
  6556.   {$EXTERNALSYM ERROR_DISK_FULL}
  6557.   ERROR_DISK_FULL = 112;
  6558.  
  6559.   { No more internal file identifiers available. }
  6560.   {$EXTERNALSYM ERROR_NO_MORE_SEARCH_HANDLES}
  6561.   ERROR_NO_MORE_SEARCH_HANDLES = 113;
  6562.  
  6563.   { The target internal file identifier is incorrect. }
  6564.   {$EXTERNALSYM ERROR_INVALID_TARGET_HANDLE}
  6565.   ERROR_INVALID_TARGET_HANDLE = 114;
  6566.  
  6567.   { The IOCTL call made by the application program is not correct. }
  6568.   {$EXTERNALSYM ERROR_INVALID_CATEGORY}
  6569.   ERROR_INVALID_CATEGORY = 117;
  6570.  
  6571.   { The verify-on-write switch parameter value is not correct. }
  6572.   {$EXTERNALSYM ERROR_INVALID_VERIFY_SWITCH}
  6573.   ERROR_INVALID_VERIFY_SWITCH = 118;
  6574.  
  6575.   { The system does not support the command requested. }
  6576.   {$EXTERNALSYM ERROR_BAD_DRIVER_LEVEL}
  6577.   ERROR_BAD_DRIVER_LEVEL = 119;
  6578.  
  6579.   { This function is only valid in Windows NT mode. }
  6580.   {$EXTERNALSYM ERROR_CALL_NOT_IMPLEMENTED}
  6581.   ERROR_CALL_NOT_IMPLEMENTED = 120;
  6582.  
  6583.   { The semaphore timeout period has expired. }
  6584.   {$EXTERNALSYM ERROR_SEM_TIMEOUT}
  6585.   ERROR_SEM_TIMEOUT = 121;
  6586.  
  6587.   { The data area passed to a system call is too small. }
  6588.   {$EXTERNALSYM ERROR_INSUFFICIENT_BUFFER}
  6589.   ERROR_INSUFFICIENT_BUFFER = 122;   { dderror }
  6590.  
  6591.   { The filename, directory name, or volume label syntax is incorrect. }
  6592.   {$EXTERNALSYM ERROR_INVALID_NAME}
  6593.   ERROR_INVALID_NAME = 123;
  6594.  
  6595.   { The system call level is not correct. }
  6596.   {$EXTERNALSYM ERROR_INVALID_LEVEL}
  6597.   ERROR_INVALID_LEVEL = 124;
  6598.  
  6599.   { The disk has no volume label. }
  6600.   {$EXTERNALSYM ERROR_NO_VOLUME_LABEL}
  6601.   ERROR_NO_VOLUME_LABEL = 125;
  6602.  
  6603.   { The specified module could not be found. }
  6604.   {$EXTERNALSYM ERROR_MOD_NOT_FOUND}
  6605.   ERROR_MOD_NOT_FOUND = 126;
  6606.  
  6607.   { The specified procedure could not be found. }
  6608.   {$EXTERNALSYM ERROR_PROC_NOT_FOUND}
  6609.   ERROR_PROC_NOT_FOUND = 127;
  6610.  
  6611.   { There are no child processes to wait for. }
  6612.   {$EXTERNALSYM ERROR_WAIT_NO_CHILDREN}
  6613.   ERROR_WAIT_NO_CHILDREN = $80;
  6614.  
  6615.   { The %1 application cannot be run in Windows NT mode. }
  6616.   {$EXTERNALSYM ERROR_CHILD_NOT_COMPLETE}
  6617.   ERROR_CHILD_NOT_COMPLETE = 129;
  6618.  
  6619.   { Attempt to use a file handle to an open disk partition for an }
  6620.   { operation other than raw disk I/O. }
  6621.   {$EXTERNALSYM ERROR_DIRECT_ACCESS_HANDLE}
  6622.   ERROR_DIRECT_ACCESS_HANDLE = 130;
  6623.  
  6624.   { An attempt was made to move the file pointer before the beginning of the file. }
  6625.   {$EXTERNALSYM ERROR_NEGATIVE_SEEK}
  6626.   ERROR_NEGATIVE_SEEK = 131;
  6627.  
  6628.   { The file pointer cannot be set on the specified device or file. }
  6629.   {$EXTERNALSYM ERROR_SEEK_ON_DEVICE}
  6630.   ERROR_SEEK_ON_DEVICE = 132;
  6631.  
  6632.   { A JOIN or SUBST command }
  6633.   { cannot be used for a drive that }
  6634.   { contains previously joined drives. }
  6635.   {$EXTERNALSYM ERROR_IS_JOIN_TARGET}
  6636.   ERROR_IS_JOIN_TARGET = 133;
  6637.  
  6638.   { An attempt was made to use a }
  6639.   { JOIN or SUBST command on a drive that has }
  6640.   { already been joined. }
  6641.   {$EXTERNALSYM ERROR_IS_JOINED}
  6642.   ERROR_IS_JOINED = 134;
  6643.  
  6644.   { An attempt was made to use a }
  6645.   { JOIN or SUBST command on a drive that has }
  6646.   { already been substituted. }
  6647.   {$EXTERNALSYM ERROR_IS_SUBSTED}
  6648.   ERROR_IS_SUBSTED = 135;
  6649.  
  6650.   { The system tried to delete }
  6651.   { the JOIN of a drive that is not joined. }
  6652.   {$EXTERNALSYM ERROR_NOT_JOINED}
  6653.   ERROR_NOT_JOINED = 136;
  6654.  
  6655.   { The system tried to delete the }
  6656.   { substitution of a drive that is not substituted. }
  6657.   {$EXTERNALSYM ERROR_NOT_SUBSTED}
  6658.   ERROR_NOT_SUBSTED = 137;
  6659.  
  6660.   { The system tried to join a drive to a directory on a joined drive. }
  6661.   {$EXTERNALSYM ERROR_JOIN_TO_JOIN}
  6662.   ERROR_JOIN_TO_JOIN = 138;
  6663.  
  6664.   { The system tried to substitute a drive to a directory on a substituted drive. }
  6665.   {$EXTERNALSYM ERROR_SUBST_TO_SUBST}
  6666.   ERROR_SUBST_TO_SUBST = 139;
  6667.  
  6668.   { The system tried to join a drive to a directory on a substituted drive. }
  6669.   {$EXTERNALSYM ERROR_JOIN_TO_SUBST}
  6670.   ERROR_JOIN_TO_SUBST = 140;
  6671.  
  6672.   { The system tried to SUBST a drive to a directory on a joined drive. }
  6673.   {$EXTERNALSYM ERROR_SUBST_TO_JOIN}
  6674.   ERROR_SUBST_TO_JOIN = 141;
  6675.  
  6676.   { The system cannot perform a JOIN or SUBST at this time. }
  6677.   {$EXTERNALSYM ERROR_BUSY_DRIVE}
  6678.   ERROR_BUSY_DRIVE = 142;
  6679.  
  6680.   { The system cannot join or substitute a }
  6681.   { drive to or for a directory on the same drive. }
  6682.   {$EXTERNALSYM ERROR_SAME_DRIVE}
  6683.   ERROR_SAME_DRIVE = 143;
  6684.  
  6685.   { The directory is not a subdirectory of the root directory. }
  6686.   {$EXTERNALSYM ERROR_DIR_NOT_ROOT}
  6687.   ERROR_DIR_NOT_ROOT = 144;
  6688.  
  6689.   { The directory is not empty. }
  6690.   {$EXTERNALSYM ERROR_DIR_NOT_EMPTY}
  6691.   ERROR_DIR_NOT_EMPTY = 145;
  6692.  
  6693.   { The path specified is being used in a substitute. }
  6694.   {$EXTERNALSYM ERROR_IS_SUBST_PATH}
  6695.   ERROR_IS_SUBST_PATH = 146;
  6696.  
  6697.   { Not enough resources are available to process this command. }
  6698.   {$EXTERNALSYM ERROR_IS_JOIN_PATH}
  6699.   ERROR_IS_JOIN_PATH = 147;
  6700.  
  6701.   { The path specified cannot be used at this time. }
  6702.   {$EXTERNALSYM ERROR_PATH_BUSY}
  6703.   ERROR_PATH_BUSY = 148;
  6704.  
  6705.   { An attempt was made to join or substitute a drive for which a directory }
  6706.   { on the drive is the target of a previous substitute. }
  6707.   {$EXTERNALSYM ERROR_IS_SUBST_TARGET}
  6708.   ERROR_IS_SUBST_TARGET = 149;
  6709.  
  6710.   { System trace information was not specified in your }
  6711.   { CONFIG.SYS file, or tracing is disallowed. }
  6712.   {$EXTERNALSYM ERROR_SYSTEM_TRACE}
  6713.   ERROR_SYSTEM_TRACE = 150;
  6714.  
  6715.   { The number of specified semaphore events for }
  6716.   { DosMuxSemWait is not correct. }
  6717.   {$EXTERNALSYM ERROR_INVALID_EVENT_COUNT}
  6718.   ERROR_INVALID_EVENT_COUNT = 151;
  6719.  
  6720.   { DosMuxSemWait did not execute; too many semaphores }
  6721.   { are already set. }
  6722.   {$EXTERNALSYM ERROR_TOO_MANY_MUXWAITERS}
  6723.   ERROR_TOO_MANY_MUXWAITERS = 152;
  6724.  
  6725.   { The DosMuxSemWait list is not correct. }
  6726.   {$EXTERNALSYM ERROR_INVALID_LIST_FORMAT}
  6727.   ERROR_INVALID_LIST_FORMAT = 153;
  6728.  
  6729.   {  The volume label you entered exceeds the label character }
  6730.   {  limit of the target file system. }
  6731.   {$EXTERNALSYM ERROR_LABEL_TOO_LONG}
  6732.   ERROR_LABEL_TOO_LONG = 154;
  6733.  
  6734.   { Cannot create another thread. }
  6735.   {$EXTERNALSYM ERROR_TOO_MANY_TCBS}
  6736.   ERROR_TOO_MANY_TCBS = 155;
  6737.  
  6738.   { The recipient process has refused the signal. }
  6739.   {$EXTERNALSYM ERROR_SIGNAL_REFUSED}
  6740.   ERROR_SIGNAL_REFUSED = 156;
  6741.  
  6742.   { The segment is already discarded and cannot be locked. }
  6743.   {$EXTERNALSYM ERROR_DISCARDED}
  6744.   ERROR_DISCARDED = 157;
  6745.  
  6746.   { The segment is already unlocked. }
  6747.   {$EXTERNALSYM ERROR_NOT_LOCKED}
  6748.   ERROR_NOT_LOCKED = 158;
  6749.  
  6750.   { The address for the thread ID is not correct. }
  6751.   {$EXTERNALSYM ERROR_BAD_THREADID_ADDR}
  6752.   ERROR_BAD_THREADID_ADDR = 159;
  6753.  
  6754.   { The argument string passed to DosExecPgm is not correct. }
  6755.   {$EXTERNALSYM ERROR_BAD_ARGUMENTS}
  6756.   ERROR_BAD_ARGUMENTS = 160;
  6757.  
  6758.   { The specified path is invalid. }
  6759.   {$EXTERNALSYM ERROR_BAD_PATHNAME}
  6760.   ERROR_BAD_PATHNAME = 161;
  6761.  
  6762.   { A signal is already pending. }
  6763.   {$EXTERNALSYM ERROR_SIGNAL_PENDING}
  6764.   ERROR_SIGNAL_PENDING = 162;
  6765.  
  6766.   { No more threads can be created in the system. }
  6767.   {$EXTERNALSYM ERROR_MAX_THRDS_REACHED}
  6768.   ERROR_MAX_THRDS_REACHED = 164;
  6769.  
  6770.   { Unable to lock a region of a file. }
  6771.   {$EXTERNALSYM ERROR_LOCK_FAILED}
  6772.   ERROR_LOCK_FAILED = 167;
  6773.  
  6774.   { The requested resource is in use. }
  6775.   {$EXTERNALSYM ERROR_BUSY}
  6776.   ERROR_BUSY = 170;
  6777.  
  6778.   { A lock request was not outstanding for the supplied cancel region. }
  6779.   {$EXTERNALSYM ERROR_CANCEL_VIOLATION}
  6780.   ERROR_CANCEL_VIOLATION = 173;
  6781.  
  6782.   { The file system does not support atomic changes to the lock type. }
  6783.   {$EXTERNALSYM ERROR_ATOMIC_LOCKS_NOT_SUPPORTED}
  6784.   ERROR_ATOMIC_LOCKS_NOT_SUPPORTED = 174;
  6785.  
  6786.   { The system detected a segment number that was not correct. }
  6787.   {$EXTERNALSYM ERROR_INVALID_SEGMENT_NUMBER}
  6788.   ERROR_INVALID_SEGMENT_NUMBER = 180;
  6789.  
  6790.   { The operating system cannot run %1. }
  6791.   {$EXTERNALSYM ERROR_INVALID_ORDINAL}
  6792.   ERROR_INVALID_ORDINAL = 182;
  6793.  
  6794.   { Cannot create a file when that file already exists. }
  6795.   {$EXTERNALSYM ERROR_ALREADY_EXISTS}
  6796.   ERROR_ALREADY_EXISTS = 183;
  6797.  
  6798.   { The flag passed is not correct. }
  6799.   {$EXTERNALSYM ERROR_INVALID_FLAG_NUMBER}
  6800.   ERROR_INVALID_FLAG_NUMBER = 186;
  6801.  
  6802.   { The specified system semaphore name was not found. }
  6803.   {$EXTERNALSYM ERROR_SEM_NOT_FOUND}
  6804.   ERROR_SEM_NOT_FOUND = 187;
  6805.  
  6806.   { The operating system cannot run %1. }
  6807.   {$EXTERNALSYM ERROR_INVALID_STARTING_CODESEG}
  6808.   ERROR_INVALID_STARTING_CODESEG = 188;
  6809.  
  6810.   { The operating system cannot run %1. }
  6811.   {$EXTERNALSYM ERROR_INVALID_STACKSEG}
  6812.   ERROR_INVALID_STACKSEG = 189;
  6813.  
  6814.   { The operating system cannot run %1. }
  6815.   {$EXTERNALSYM ERROR_INVALID_MODULETYPE}
  6816.   ERROR_INVALID_MODULETYPE = 190;
  6817.  
  6818.   { Cannot run %1 in Windows NT mode. }
  6819.   {$EXTERNALSYM ERROR_INVALID_EXE_SIGNATURE}
  6820.   ERROR_INVALID_EXE_SIGNATURE = 191;
  6821.  
  6822.   { The operating system cannot run %1. }
  6823.   {$EXTERNALSYM ERROR_EXE_MARKED_INVALID}
  6824.   ERROR_EXE_MARKED_INVALID = 192;
  6825.  
  6826.   { %1 is not a valid Windows NT application. }
  6827.   {$EXTERNALSYM ERROR_BAD_EXE_FORMAT}
  6828.   ERROR_BAD_EXE_FORMAT = 193;
  6829.  
  6830.   { The operating system cannot run %1. }
  6831.   {$EXTERNALSYM ERROR_ITERATED_DATA_EXCEEDS_64k}
  6832.   ERROR_ITERATED_DATA_EXCEEDS_64k = 194;
  6833.  
  6834.   { The operating system cannot run %1. }
  6835.   {$EXTERNALSYM ERROR_INVALID_MINALLOCSIZE}
  6836.   ERROR_INVALID_MINALLOCSIZE = 195;
  6837.  
  6838.   { The operating system cannot run this application program. }
  6839.   {$EXTERNALSYM ERROR_DYNLINK_FROM_INVALID_RING}
  6840.   ERROR_DYNLINK_FROM_INVALID_RING = 196;
  6841.  
  6842.   { The operating system is not presently configured to run this application. }
  6843.   {$EXTERNALSYM ERROR_IOPL_NOT_ENABLED}
  6844.   ERROR_IOPL_NOT_ENABLED = 197;
  6845.  
  6846.   { The operating system cannot run %1. }
  6847.   {$EXTERNALSYM ERROR_INVALID_SEGDPL}
  6848.   ERROR_INVALID_SEGDPL = 198;
  6849.  
  6850.   { The operating system cannot run this }
  6851.   { application program. }
  6852.   {$EXTERNALSYM ERROR_AUTODATASEG_EXCEEDS_64k}
  6853.   ERROR_AUTODATASEG_EXCEEDS_64k = 199;
  6854.  
  6855.   { The code segment cannot be greater than or equal to 64KB. }
  6856.   {$EXTERNALSYM ERROR_RING2SEG_MUST_BE_MOVABLE}
  6857.   ERROR_RING2SEG_MUST_BE_MOVABLE = 200;
  6858.  
  6859.   { The operating system cannot run %1. }
  6860.   {$EXTERNALSYM ERROR_RELOC_CHAIN_XEEDS_SEGLIM}
  6861.   ERROR_RELOC_CHAIN_XEEDS_SEGLIM = 201;
  6862.  
  6863.   { The operating system cannot run %1. }
  6864.   {$EXTERNALSYM ERROR_INFLOOP_IN_RELOC_CHAIN}
  6865.   ERROR_INFLOOP_IN_RELOC_CHAIN = 202;
  6866.  
  6867.   { The system could not find the environment option that was entered. }
  6868.   {$EXTERNALSYM ERROR_ENVVAR_NOT_FOUND}
  6869.   ERROR_ENVVAR_NOT_FOUND = 203;
  6870.  
  6871.   { No process in the command subtree has a signal handler. }
  6872.   {$EXTERNALSYM ERROR_NO_SIGNAL_SENT}
  6873.   ERROR_NO_SIGNAL_SENT = 205;
  6874.  
  6875.   { The filename or extension is too long. }
  6876.   {$EXTERNALSYM ERROR_FILENAME_EXCED_RANGE}
  6877.   ERROR_FILENAME_EXCED_RANGE = 206;
  6878.  
  6879.   { The ring 2 stack is in use. }
  6880.   {$EXTERNALSYM ERROR_RING2_STACK_IN_USE}
  6881.   ERROR_RING2_STACK_IN_USE = 207;
  6882.  
  6883.   { The global filename characters, * or ?, are entered }
  6884.   { incorrectly or too many global filename characters are specified. }
  6885.   {$EXTERNALSYM ERROR_META_EXPANSION_TOO_LONG}
  6886.   ERROR_META_EXPANSION_TOO_LONG = 208;
  6887.  
  6888.   { The signal being posted is not correct. }
  6889.   {$EXTERNALSYM ERROR_INVALID_SIGNAL_NUMBER}
  6890.   ERROR_INVALID_SIGNAL_NUMBER = 209;
  6891.  
  6892.   { The signal handler cannot be set. }
  6893.   {$EXTERNALSYM ERROR_THREAD_1_INACTIVE}
  6894.   ERROR_THREAD_1_INACTIVE = 210;
  6895.  
  6896.   { The segment is locked and cannot be reallocated. }
  6897.   {$EXTERNALSYM ERROR_LOCKED}
  6898.   ERROR_LOCKED = 212;
  6899.  
  6900.   { Too many dynamic link modules are attached to this }
  6901.   { program or dynamic link module. }
  6902.   {$EXTERNALSYM ERROR_TOO_MANY_MODULES}
  6903.   ERROR_TOO_MANY_MODULES = 214;
  6904.  
  6905.   { Can't nest calls to LoadModule. }
  6906.   {$EXTERNALSYM ERROR_NESTING_NOT_ALLOWED}
  6907.   ERROR_NESTING_NOT_ALLOWED = 215;
  6908.  
  6909.   {  The image file %1 is valid, but is for a machine type other }
  6910.   {  than the current machine. }
  6911.   {$EXTERNALSYM ERROR_EXE_MACHINE_TYPE_MISMATCH}
  6912.   ERROR_EXE_MACHINE_TYPE_MISMATCH = 216;
  6913.  
  6914.   { The pipe state is invalid. }
  6915.   {$EXTERNALSYM ERROR_BAD_PIPE}
  6916.   ERROR_BAD_PIPE = 230;
  6917.  
  6918.   { All pipe instances are busy. }
  6919.   {$EXTERNALSYM ERROR_PIPE_BUSY}
  6920.   ERROR_PIPE_BUSY = 231;
  6921.  
  6922.   { The pipe is being closed. }
  6923.   {$EXTERNALSYM ERROR_NO_DATA}
  6924.   ERROR_NO_DATA = 232;
  6925.  
  6926.   { No process is on the other end of the pipe. }
  6927.   {$EXTERNALSYM ERROR_PIPE_NOT_CONNECTED}
  6928.   ERROR_PIPE_NOT_CONNECTED = 233;
  6929.  
  6930.   { More data is available. }
  6931.   {$EXTERNALSYM ERROR_MORE_DATA}
  6932.   ERROR_MORE_DATA = 234;   { dderror }
  6933.  
  6934.   { The session was cancelled. }
  6935.   {$EXTERNALSYM ERROR_VC_DISCONNECTED}
  6936.   ERROR_VC_DISCONNECTED = 240;
  6937.  
  6938.   { The specified extended attribute name was invalid. }
  6939.   {$EXTERNALSYM ERROR_INVALID_EA_NAME}
  6940.   ERROR_INVALID_EA_NAME = 254;
  6941.  
  6942.   { The extended attributes are inconsistent. }
  6943.   {$EXTERNALSYM ERROR_EA_LIST_INCONSISTENT}
  6944.   ERROR_EA_LIST_INCONSISTENT = 255;
  6945.  
  6946.   { No more data is available. }
  6947.   {$EXTERNALSYM ERROR_NO_MORE_ITEMS}
  6948.   ERROR_NO_MORE_ITEMS = 259;
  6949.  
  6950.   { The Copy API cannot be used. }
  6951.   {$EXTERNALSYM ERROR_CANNOT_COPY}
  6952.   ERROR_CANNOT_COPY = 266;
  6953.  
  6954.   { The directory name is invalid. }
  6955.   {$EXTERNALSYM ERROR_DIRECTORY}
  6956.   ERROR_DIRECTORY = 267;
  6957.  
  6958.   { The extended attributes did not fit in the buffer. }
  6959.   {$EXTERNALSYM ERROR_EAS_DIDNT_FIT}
  6960.   ERROR_EAS_DIDNT_FIT = 275;
  6961.  
  6962.   { The extended attribute file on the mounted file system is corrupt. }
  6963.   {$EXTERNALSYM ERROR_EA_FILE_CORRUPT}
  6964.   ERROR_EA_FILE_CORRUPT = 276;
  6965.  
  6966.   { The extended attribute table file is full. }
  6967.   {$EXTERNALSYM ERROR_EA_TABLE_FULL}
  6968.   ERROR_EA_TABLE_FULL = 277;
  6969.  
  6970.   { The specified extended attribute handle is invalid. }
  6971.   {$EXTERNALSYM ERROR_INVALID_EA_HANDLE}
  6972.   ERROR_INVALID_EA_HANDLE = 278;
  6973.  
  6974.   { The mounted file system does not support extended attributes. }
  6975.   {$EXTERNALSYM ERROR_EAS_NOT_SUPPORTED}
  6976.   ERROR_EAS_NOT_SUPPORTED = 282;
  6977.  
  6978.   { Attempt to release mutex not owned by caller. }
  6979.   {$EXTERNALSYM ERROR_NOT_OWNER}
  6980.   ERROR_NOT_OWNER = 288;
  6981.  
  6982.   { Too many posts were made to a semaphore. }
  6983.   {$EXTERNALSYM ERROR_TOO_MANY_POSTS}
  6984.   ERROR_TOO_MANY_POSTS = 298;
  6985.  
  6986.   { Only part of a Read/WriteProcessMemory request was completed. }
  6987.   {$EXTERNALSYM ERROR_PARTIAL_COPY}
  6988.   ERROR_PARTIAL_COPY = 299;
  6989.  
  6990.   { The system cannot find message for message number $%1 }
  6991.   { in message file for %2. }
  6992.   {$EXTERNALSYM ERROR_MR_MID_NOT_FOUND}
  6993.   ERROR_MR_MID_NOT_FOUND = 317;
  6994.  
  6995.   { Attempt to access invalid address. }
  6996.   {$EXTERNALSYM ERROR_INVALID_ADDRESS}
  6997.   ERROR_INVALID_ADDRESS = 487;
  6998.  
  6999.   { Arithmetic result exceeded 32 bits. }
  7000.   {$EXTERNALSYM ERROR_ARITHMETIC_OVERFLOW}
  7001.   ERROR_ARITHMETIC_OVERFLOW = 534;
  7002.  
  7003.   { There is a process on other end of the pipe. }
  7004.   {$EXTERNALSYM ERROR_PIPE_CONNECTED}
  7005.   ERROR_PIPE_CONNECTED = 535;
  7006.  
  7007.   { Waiting for a process to open the other end of the pipe. }
  7008.   {$EXTERNALSYM ERROR_PIPE_LISTENING}
  7009.   ERROR_PIPE_LISTENING = 536;
  7010.  
  7011.   { Access to the extended attribute was denied. }
  7012.   {$EXTERNALSYM ERROR_EA_ACCESS_DENIED}
  7013.   ERROR_EA_ACCESS_DENIED = 994;
  7014.  
  7015.   { The I/O operation has been aborted because of either a thread exit }
  7016.   { or an application request. }
  7017.   {$EXTERNALSYM ERROR_OPERATION_ABORTED}
  7018.   ERROR_OPERATION_ABORTED = 995;
  7019.  
  7020.   { Overlapped I/O event is not in a signalled state. }
  7021.   {$EXTERNALSYM ERROR_IO_INCOMPLETE}
  7022.   ERROR_IO_INCOMPLETE = 996;
  7023.  
  7024.   { Overlapped I/O operation is in progress. }
  7025.   {$EXTERNALSYM ERROR_IO_PENDING}
  7026.   ERROR_IO_PENDING = 997;   { dderror }
  7027.  
  7028.   { Invalid access to memory location. }
  7029.   {$EXTERNALSYM ERROR_NOACCESS}
  7030.   ERROR_NOACCESS = 998;
  7031.  
  7032.   { Error performing inpage operation. }
  7033.   {$EXTERNALSYM ERROR_SWAPERROR}
  7034.   ERROR_SWAPERROR = 999;
  7035.  
  7036.   { Recursion too deep, stack overflowed. }
  7037.   {$EXTERNALSYM ERROR_STACK_OVERFLOW}
  7038.   ERROR_STACK_OVERFLOW = 1001;
  7039.  
  7040.   { The window cannot act on the sent message. }
  7041.   {$EXTERNALSYM ERROR_INVALID_MESSAGE}
  7042.   ERROR_INVALID_MESSAGE = 1002;
  7043.  
  7044.   { Cannot complete this function. }
  7045.   {$EXTERNALSYM ERROR_CAN_NOT_COMPLETE}
  7046.   ERROR_CAN_NOT_COMPLETE = 1003;
  7047.  
  7048.   { Invalid flags. }
  7049.   {$EXTERNALSYM ERROR_INVALID_FLAGS}
  7050.   ERROR_INVALID_FLAGS = 1004;
  7051.  
  7052.   { The volume does not contain a recognized file system. }
  7053.   { Please make sure that all required file system drivers are loaded and that the }
  7054.   { volume is not corrupt. }
  7055.   {$EXTERNALSYM ERROR_UNRECOGNIZED_VOLUME}
  7056.   ERROR_UNRECOGNIZED_VOLUME = 1005;
  7057.  
  7058.   { The volume for a file has been externally altered such that the }
  7059.   { opened file is no longer valid. }
  7060.   {$EXTERNALSYM ERROR_FILE_INVALID}
  7061.   ERROR_FILE_INVALID = 1006;
  7062.  
  7063.   { The requested operation cannot be performed in full-screen mode. }
  7064.   {$EXTERNALSYM ERROR_FULLSCREEN_MODE}
  7065.   ERROR_FULLSCREEN_MODE = 1007;
  7066.  
  7067.   { An attempt was made to reference a token that does not exist. }
  7068.   {$EXTERNALSYM ERROR_NO_TOKEN}
  7069.   ERROR_NO_TOKEN = 1008;
  7070.  
  7071.   { The configuration registry database is corrupt. }
  7072.   {$EXTERNALSYM ERROR_BADDB}
  7073.   ERROR_BADDB = 1009;
  7074.  
  7075.   { The configuration registry key is invalid. }
  7076.   {$EXTERNALSYM ERROR_BADKEY}
  7077.   ERROR_BADKEY = 1010;
  7078.  
  7079.   { The configuration registry key could not be opened. }
  7080.   {$EXTERNALSYM ERROR_CANTOPEN}
  7081.   ERROR_CANTOPEN = 1011;
  7082.  
  7083.   { The configuration registry key could not be read. }
  7084.   {$EXTERNALSYM ERROR_CANTREAD}
  7085.   ERROR_CANTREAD = 1012;
  7086.  
  7087.   { The configuration registry key could not be written. }
  7088.   {$EXTERNALSYM ERROR_CANTWRITE}
  7089.   ERROR_CANTWRITE = 1013;
  7090.  
  7091.   { One of the files in the Registry database had to be recovered }
  7092.   { by use of a log or alternate copy.  The recovery was successful. }
  7093.   {$EXTERNALSYM ERROR_REGISTRY_RECOVERED}
  7094.   ERROR_REGISTRY_RECOVERED = 1014;
  7095.  
  7096.   { The Registry is corrupt. The structure of one of the files that contains }
  7097.   { Registry data is corrupt, or the system's image of the file in memory }
  7098.   { is corrupt, or the file could not be recovered because the alternate }
  7099.   { copy or log was absent or corrupt. }
  7100.   {$EXTERNALSYM ERROR_REGISTRY_CORRUPT}
  7101.   ERROR_REGISTRY_CORRUPT = 1015;
  7102.  
  7103.   { An I/O operation initiated by the Registry failed unrecoverably. }
  7104.   { The Registry could not read in, or write out, or flush, one of the files }
  7105.   { that contain the system's image of the Registry. }
  7106.   {$EXTERNALSYM ERROR_REGISTRY_IO_FAILED}
  7107.   ERROR_REGISTRY_IO_FAILED = 1016;
  7108.  
  7109.   { The system has attempted to load or restore a file into the Registry, but the }
  7110.   { specified file is not in a Registry file format. }
  7111.   {$EXTERNALSYM ERROR_NOT_REGISTRY_FILE}
  7112.   ERROR_NOT_REGISTRY_FILE = 1017;
  7113.  
  7114.   { Illegal operation attempted on a Registry key which has been marked for deletion. }
  7115.   {$EXTERNALSYM ERROR_KEY_DELETED}
  7116.   ERROR_KEY_DELETED = 1018;
  7117.  
  7118.   { System could not allocate the required space in a Registry log. }
  7119.   {$EXTERNALSYM ERROR_NO_LOG_SPACE}
  7120.   ERROR_NO_LOG_SPACE = 1019;
  7121.  
  7122.   { Cannot create a symbolic link in a Registry key that already }
  7123.   { has subkeys or values. }
  7124.   {$EXTERNALSYM ERROR_KEY_HAS_CHILDREN}
  7125.   ERROR_KEY_HAS_CHILDREN = 1020;
  7126.  
  7127.   { Cannot create a stable subkey under a volatile parent key. }
  7128.   {$EXTERNALSYM ERROR_CHILD_MUST_BE_VOLATILE}
  7129.   ERROR_CHILD_MUST_BE_VOLATILE = 1021;
  7130.  
  7131.   { A notify change request is being completed and the information }
  7132.   { is not being returned in the caller's buffer. The caller now }
  7133.   { needs to enumerate the files to find the changes. }
  7134.   {$EXTERNALSYM ERROR_NOTIFY_ENUM_DIR}
  7135.   ERROR_NOTIFY_ENUM_DIR = 1022;
  7136.  
  7137.   { A stop control has been sent to a service which other running services }
  7138.   { are dependent on. }
  7139.   {$EXTERNALSYM ERROR_DEPENDENT_SERVICES_RUNNING}
  7140.   ERROR_DEPENDENT_SERVICES_RUNNING = 1051;
  7141.  
  7142.   { The requested control is not valid for this service }
  7143.   {$EXTERNALSYM ERROR_INVALID_SERVICE_CONTROL}
  7144.   ERROR_INVALID_SERVICE_CONTROL = 1052;
  7145.  
  7146.   { The service did not respond to the start or control request in a timely }
  7147.   { fashion. }
  7148.   {$EXTERNALSYM ERROR_SERVICE_REQUEST_TIMEOUT}
  7149.   ERROR_SERVICE_REQUEST_TIMEOUT = 1053;
  7150.  
  7151.   { A thread could not be created for the service. }
  7152.   {$EXTERNALSYM ERROR_SERVICE_NO_THREAD}
  7153.   ERROR_SERVICE_NO_THREAD = 1054;
  7154.  
  7155.   { The service database is locked. }
  7156.   {$EXTERNALSYM ERROR_SERVICE_DATABASE_LOCKED}
  7157.   ERROR_SERVICE_DATABASE_LOCKED = 1055;
  7158.  
  7159.   { An instance of the service is already running. }
  7160.   {$EXTERNALSYM ERROR_SERVICE_ALREADY_RUNNING}
  7161.   ERROR_SERVICE_ALREADY_RUNNING = 1056;
  7162.  
  7163.   { The account name is invalid or does not exist. }
  7164.   {$EXTERNALSYM ERROR_INVALID_SERVICE_ACCOUNT}
  7165.   ERROR_INVALID_SERVICE_ACCOUNT = 1057;
  7166.  
  7167.   { The specified service is disabled and cannot be started. }
  7168.   {$EXTERNALSYM ERROR_SERVICE_DISABLED}
  7169.   ERROR_SERVICE_DISABLED = 1058;
  7170.  
  7171.   { Circular service dependency was specified. }
  7172.   {$EXTERNALSYM ERROR_CIRCULAR_DEPENDENCY}
  7173.   ERROR_CIRCULAR_DEPENDENCY = 1059;
  7174.  
  7175.   { The specified service does not exist as an installed service. }
  7176.   {$EXTERNALSYM ERROR_SERVICE_DOES_NOT_EXIST}
  7177.   ERROR_SERVICE_DOES_NOT_EXIST = 1060;
  7178.  
  7179.   { The service cannot accept control messages at this time. }
  7180.   {$EXTERNALSYM ERROR_SERVICE_CANNOT_ACCEPT_CTRL}
  7181.   ERROR_SERVICE_CANNOT_ACCEPT_CTRL = 1061;
  7182.  
  7183.   { The service has not been started. }
  7184.   {$EXTERNALSYM ERROR_SERVICE_NOT_ACTIVE}
  7185.   ERROR_SERVICE_NOT_ACTIVE = 1062;
  7186.  
  7187.   { The service process could not connect to the service controller. }
  7188.   {$EXTERNALSYM ERROR_FAILED_SERVICE_CONTROLLER_}
  7189.   ERROR_FAILED_SERVICE_CONTROLLER_ = 1063;
  7190.  
  7191.   { An exception occurred in the service when handling the control request. }
  7192.   {$EXTERNALSYM ERROR_EXCEPTION_IN_SERVICE}
  7193.   ERROR_EXCEPTION_IN_SERVICE = 1064;
  7194.  
  7195.   { The database specified does not exist. }
  7196.   {$EXTERNALSYM ERROR_DATABASE_DOES_NOT_EXIST}
  7197.   ERROR_DATABASE_DOES_NOT_EXIST = 1065;
  7198.  
  7199.   { The service has returned a service-specific error code. }
  7200.   {$EXTERNALSYM ERROR_SERVICE_SPECIFIC_ERROR}
  7201.   ERROR_SERVICE_SPECIFIC_ERROR = 1066;
  7202.  
  7203.   { The process terminated unexpectedly. }
  7204.   {$EXTERNALSYM ERROR_PROCESS_ABORTED}
  7205.   ERROR_PROCESS_ABORTED = 1067;
  7206.  
  7207.   { The dependency service or group failed to start. }
  7208.   {$EXTERNALSYM ERROR_SERVICE_DEPENDENCY_FAIL}
  7209.   ERROR_SERVICE_DEPENDENCY_FAIL = 1068;
  7210.  
  7211.   { The service did not start due to a logon failure. }
  7212.   {$EXTERNALSYM ERROR_SERVICE_LOGON_FAILED}
  7213.   ERROR_SERVICE_LOGON_FAILED = 1069;
  7214.  
  7215.   { After starting, the service hung in a start-pending state. }
  7216.   {$EXTERNALSYM ERROR_SERVICE_START_HANG}
  7217.   ERROR_SERVICE_START_HANG = 1070;
  7218.  
  7219.   { The specified service database lock is invalid. }
  7220.   {$EXTERNALSYM ERROR_INVALID_SERVICE_LOCK}
  7221.   ERROR_INVALID_SERVICE_LOCK = 1071;
  7222.  
  7223.   { The specified service has been marked for deletion. }
  7224.   {$EXTERNALSYM ERROR_SERVICE_MARKED_FOR_DELETE}
  7225.   ERROR_SERVICE_MARKED_FOR_DELETE = 1072;
  7226.  
  7227.   { The specified service already exists. }
  7228.   {$EXTERNALSYM ERROR_SERVICE_EXISTS}
  7229.   ERROR_SERVICE_EXISTS = 1073;
  7230.  
  7231.   { The system is currently running with the last-known-good configuration. }
  7232.   {$EXTERNALSYM ERROR_ALREADY_RUNNING_LKG}
  7233.   ERROR_ALREADY_RUNNING_LKG = 1074;
  7234.  
  7235.   { The dependency service does not exist or has been marked for }
  7236.   { deletion. }
  7237.   {$EXTERNALSYM ERROR_SERVICE_DEPENDENCY_DELETED}
  7238.   ERROR_SERVICE_DEPENDENCY_DELETED = 1075;
  7239.  
  7240.   { The current boot has already been accepted for use as the }
  7241.   { last-known-good control set. }
  7242.   {$EXTERNALSYM ERROR_BOOT_ALREADY_ACCEPTED}
  7243.   ERROR_BOOT_ALREADY_ACCEPTED = 1076;
  7244.  
  7245.   { No attempts to start the service have been made since the last boot. }
  7246.   {$EXTERNALSYM ERROR_SERVICE_NEVER_STARTED}
  7247.   ERROR_SERVICE_NEVER_STARTED = 1077;
  7248.  
  7249.   { The name is already in use as either a service name or a service display }
  7250.   { name. }
  7251.   {$EXTERNALSYM ERROR_DUPLICATE_SERVICE_NAME}
  7252.   ERROR_DUPLICATE_SERVICE_NAME = 1078;
  7253.  
  7254.   {  The account specified for this service is different from the account }
  7255.   {  specified for other services running in the same process. }
  7256.   {$EXTERNALSYM ERROR_DIFFERENT_SERVICE_ACCOUNT}
  7257.   ERROR_DIFFERENT_SERVICE_ACCOUNT = 1079;
  7258.  
  7259.   { The physical end of the tape has been reached. }
  7260.   {$EXTERNALSYM ERROR_END_OF_MEDIA}
  7261.   ERROR_END_OF_MEDIA = 1100;
  7262.  
  7263.   { A tape access reached a filemark. }
  7264.   {$EXTERNALSYM ERROR_FILEMARK_DETECTED}
  7265.   ERROR_FILEMARK_DETECTED = 1101;
  7266.  
  7267.   { Beginning of tape or partition was encountered. }
  7268.   {$EXTERNALSYM ERROR_BEGINNING_OF_MEDIA}
  7269.   ERROR_BEGINNING_OF_MEDIA = 1102;
  7270.  
  7271.   { A tape access reached the end of a set of files. }
  7272.   {$EXTERNALSYM ERROR_SETMARK_DETECTED}
  7273.   ERROR_SETMARK_DETECTED = 1103;
  7274.  
  7275.   { No more data is on the tape. }
  7276.   {$EXTERNALSYM ERROR_NO_DATA_DETECTED}
  7277.   ERROR_NO_DATA_DETECTED = 1104;
  7278.  
  7279.   { Tape could not be partitioned. }
  7280.   {$EXTERNALSYM ERROR_PARTITION_FAILURE}
  7281.   ERROR_PARTITION_FAILURE = 1105;
  7282.  
  7283.   { When accessing a new tape of a multivolume partition, the current }
  7284.   { blocksize is incorrect. }
  7285.   {$EXTERNALSYM ERROR_INVALID_BLOCK_LENGTH}
  7286.   ERROR_INVALID_BLOCK_LENGTH = 1106;
  7287.  
  7288.   { Tape partition information could not be found when loading a tape. }
  7289.   {$EXTERNALSYM ERROR_DEVICE_NOT_PARTITIONED}
  7290.   ERROR_DEVICE_NOT_PARTITIONED = 1107;
  7291.  
  7292.   { Unable to lock the media eject mechanism. }
  7293.   {$EXTERNALSYM ERROR_UNABLE_TO_LOCK_MEDIA}
  7294.   ERROR_UNABLE_TO_LOCK_MEDIA = 1108;
  7295.  
  7296.   { Unable to unload the media. }
  7297.   {$EXTERNALSYM ERROR_UNABLE_TO_UNLOAD_MEDIA}
  7298.   ERROR_UNABLE_TO_UNLOAD_MEDIA = 1109;
  7299.  
  7300.   { Media in drive may have changed. }
  7301.   {$EXTERNALSYM ERROR_MEDIA_CHANGED}
  7302.   ERROR_MEDIA_CHANGED = 1110;
  7303.  
  7304.   { The I/O bus was reset. }
  7305.   {$EXTERNALSYM ERROR_BUS_RESET}
  7306.   ERROR_BUS_RESET = 1111;
  7307.  
  7308.   { No media in drive. }
  7309.   {$EXTERNALSYM ERROR_NO_MEDIA_IN_DRIVE}
  7310.   ERROR_NO_MEDIA_IN_DRIVE = 1112;
  7311.  
  7312.   { No mapping for the Unicode character exists in the target multi-byte code page. }
  7313.   {$EXTERNALSYM ERROR_NO_UNICODE_TRANSLATION}
  7314.   ERROR_NO_UNICODE_TRANSLATION = 1113;
  7315.  
  7316.   { A dynamic link library (DLL) initialization routine failed. }
  7317.   {$EXTERNALSYM ERROR_DLL_INIT_FAILED}
  7318.   ERROR_DLL_INIT_FAILED = 1114;
  7319.  
  7320.   { A system shutdown is in progress. }
  7321.   {$EXTERNALSYM ERROR_SHUTDOWN_IN_PROGRESS}
  7322.   ERROR_SHUTDOWN_IN_PROGRESS = 1115;
  7323.  
  7324.   { Unable to abort the system shutdown because no shutdown was in progress. }
  7325.   {$EXTERNALSYM ERROR_NO_SHUTDOWN_IN_PROGRESS}
  7326.   ERROR_NO_SHUTDOWN_IN_PROGRESS = 1116;
  7327.  
  7328.   { The request could not be performed because of an I/O device error. }
  7329.   {$EXTERNALSYM ERROR_IO_DEVICE}
  7330.   ERROR_IO_DEVICE = 1117;
  7331.  
  7332.   { No serial device was successfully initialized.  The serial driver will unload. }
  7333.   {$EXTERNALSYM ERROR_SERIAL_NO_DEVICE}
  7334.   ERROR_SERIAL_NO_DEVICE = 1118;
  7335.  
  7336.   { Unable to open a device that was sharing an interrupt request (IRQ) }
  7337.   { with other devices. At least one other device that uses that IRQ }
  7338.   { was already opened. }
  7339.   {$EXTERNALSYM ERROR_IRQ_BUSY}
  7340.   ERROR_IRQ_BUSY = 1119;
  7341.  
  7342.   { A serial I/O operation was completed by another write to the serial port. }
  7343.   { (The IOCTL_SERIAL_XOFF_COUNTER reached zero.) }
  7344.   {$EXTERNALSYM ERROR_MORE_WRITES}
  7345.   ERROR_MORE_WRITES = 1120;
  7346.  
  7347.   { A serial I/O operation completed because the time-out period expired. }
  7348.   { (The IOCTL_SERIAL_XOFF_COUNTER did not reach zero.) }
  7349.   {$EXTERNALSYM ERROR_COUNTER_TIMEOUT}
  7350.   ERROR_COUNTER_TIMEOUT = 1121;
  7351.  
  7352.   { No ID address mark was found on the floppy disk. }
  7353.   {$EXTERNALSYM ERROR_FLOPPY_ID_MARK_NOT_FOUND}
  7354.   ERROR_FLOPPY_ID_MARK_NOT_FOUND = 1122;
  7355.  
  7356.   { Mismatch between the floppy disk sector ID field and the floppy disk }
  7357.   { controller track address. }
  7358.   {$EXTERNALSYM ERROR_FLOPPY_WRONG_CYLINDER}
  7359.   ERROR_FLOPPY_WRONG_CYLINDER = 1123;
  7360.  
  7361.   { The floppy disk controller reported an error that is not recognized }
  7362.   { by the floppy disk driver. }
  7363.   {$EXTERNALSYM ERROR_FLOPPY_UNKNOWN_ERROR}
  7364.   ERROR_FLOPPY_UNKNOWN_ERROR = 1124;
  7365.  
  7366.   { The floppy disk controller returned inconsistent results in its registers. }
  7367.   {$EXTERNALSYM ERROR_FLOPPY_BAD_REGISTERS}
  7368.   ERROR_FLOPPY_BAD_REGISTERS = 1125;
  7369.  
  7370.   { While accessing the hard disk, a recalibrate operation failed, even after retries. }
  7371.   {$EXTERNALSYM ERROR_DISK_RECALIBRATE_FAILED}
  7372.   ERROR_DISK_RECALIBRATE_FAILED = 1126;
  7373.  
  7374.   { While accessing the hard disk, a disk operation failed even after retries. }
  7375.   {$EXTERNALSYM ERROR_DISK_OPERATION_FAILED}
  7376.   ERROR_DISK_OPERATION_FAILED = 1127;
  7377.  
  7378.   { While accessing the hard disk, a disk controller reset was needed, but }
  7379.   { even that failed. }
  7380.   {$EXTERNALSYM ERROR_DISK_RESET_FAILED}
  7381.   ERROR_DISK_RESET_FAILED = 1128;
  7382.  
  7383.   { Physical end of tape encountered. }
  7384.   {$EXTERNALSYM ERROR_EOM_OVERFLOW}
  7385.   ERROR_EOM_OVERFLOW = 1129;
  7386.  
  7387.   { Not enough server storage is available to process this command. }
  7388.   {$EXTERNALSYM ERROR_NOT_ENOUGH_SERVER_MEMORY}
  7389.   ERROR_NOT_ENOUGH_SERVER_MEMORY = 1130;
  7390.  
  7391.   { A potential deadlock condition has been detected. }
  7392.   {$EXTERNALSYM ERROR_POSSIBLE_DEADLOCK}
  7393.   ERROR_POSSIBLE_DEADLOCK = 1131;
  7394.  
  7395.   { The base address or the file offset specified does not have the proper }
  7396.   { alignment. }
  7397.   {$EXTERNALSYM ERROR_MAPPED_ALIGNMENT}
  7398.   ERROR_MAPPED_ALIGNMENT = 1132;
  7399.  
  7400.   { An attempt to change the system power state was vetoed by another }
  7401.   { application or driver. }
  7402.   {$EXTERNALSYM ERROR_SET_POWER_STATE_VETOED}
  7403.   ERROR_SET_POWER_STATE_VETOED = 1140;
  7404.  
  7405.   { The system BIOS failed an attempt to change the system power state. }
  7406.   {$EXTERNALSYM ERROR_SET_POWER_STATE_FAILED}
  7407.   ERROR_SET_POWER_STATE_FAILED = 1141;
  7408.  
  7409.   {  An attempt was made to create more links on a file than }
  7410.   {  the file system supports. }
  7411.   {$EXTERNALSYM ERROR_TOO_MANY_LINKS}
  7412.   ERROR_TOO_MANY_LINKS = 1142;
  7413.  
  7414.   { The specified program requires a newer version of Windows. }
  7415.   {$EXTERNALSYM ERROR_OLD_WIN_VERSION}
  7416.   ERROR_OLD_WIN_VERSION = 1150;
  7417.  
  7418.   { The specified program is not a Windows or MS-DOS program. }
  7419.   {$EXTERNALSYM ERROR_APP_WRONG_OS}
  7420.   ERROR_APP_WRONG_OS = 1151;
  7421.  
  7422.   { Cannot start more than one instance of the specified program. }
  7423.   {$EXTERNALSYM ERROR_SINGLE_INSTANCE_APP}
  7424.   ERROR_SINGLE_INSTANCE_APP = 1152;
  7425.  
  7426.   {  The specified program was written for an older version of Windows. }
  7427.   {$EXTERNALSYM ERROR_RMODE_APP}
  7428.   ERROR_RMODE_APP = 1153;
  7429.  
  7430.   { One of the library files needed to run this application is damaged. }
  7431.   {$EXTERNALSYM ERROR_INVALID_DLL}
  7432.   ERROR_INVALID_DLL = 1154;
  7433.  
  7434.   { No application is associated with the specified file for this operation. }
  7435.   {$EXTERNALSYM ERROR_NO_ASSOCIATION}
  7436.   ERROR_NO_ASSOCIATION = 1155;
  7437.  
  7438.   { An error occurred in sending the command to the application. }
  7439.   {$EXTERNALSYM ERROR_DDE_FAIL}
  7440.   ERROR_DDE_FAIL = 1156;
  7441.  
  7442.   { One of the library files needed to run this application cannot be found. }
  7443.   {$EXTERNALSYM ERROR_DLL_NOT_FOUND}
  7444.   ERROR_DLL_NOT_FOUND = 1157;
  7445.  
  7446.  
  7447. { Winnet32 Status Codes }
  7448.  
  7449.   { The specified username is invalid. }
  7450.   {$EXTERNALSYM ERROR_BAD_USERNAME}
  7451.   ERROR_BAD_USERNAME = 2202;
  7452.  
  7453.   { This network connection does not exist. }
  7454.   {$EXTERNALSYM ERROR_NOT_CONNECTED}
  7455.   ERROR_NOT_CONNECTED = 2250;
  7456.  
  7457.   { This network connection has files open or requests pending. }
  7458.   {$EXTERNALSYM ERROR_OPEN_FILES}
  7459.   ERROR_OPEN_FILES = 2401;
  7460.  
  7461.   { Active connections still exist. }
  7462.   {$EXTERNALSYM ERROR_ACTIVE_CONNECTIONS}
  7463.   ERROR_ACTIVE_CONNECTIONS = 2402;
  7464.  
  7465.   { The device is in use by an active process and cannot be disconnected. }
  7466.   {$EXTERNALSYM ERROR_DEVICE_IN_USE}
  7467.   ERROR_DEVICE_IN_USE = 2404;
  7468.  
  7469.   { The specified device name is invalid. }
  7470.   {$EXTERNALSYM ERROR_BAD_DEVICE}
  7471.   ERROR_BAD_DEVICE = 1200;
  7472.  
  7473.   { The device is not currently connected but it is a remembered connection. }
  7474.   {$EXTERNALSYM ERROR_CONNECTION_UNAVAIL}
  7475.   ERROR_CONNECTION_UNAVAIL = 1201;
  7476.  
  7477.   { An attempt was made to remember a device that had previously been remembered. }
  7478.   {$EXTERNALSYM ERROR_DEVICE_ALREADY_REMEMBERED}
  7479.   ERROR_DEVICE_ALREADY_REMEMBERED = 1202;
  7480.  
  7481.   { No network provider accepted the given network path. }
  7482.   {$EXTERNALSYM ERROR_NO_NET_OR_BAD_PATH}
  7483.   ERROR_NO_NET_OR_BAD_PATH = 1203;
  7484.  
  7485.   { The specified network provider name is invalid. }
  7486.   {$EXTERNALSYM ERROR_BAD_PROVIDER}
  7487.   ERROR_BAD_PROVIDER = 1204;
  7488.  
  7489.   { Unable to open the network connection profile. }
  7490.   {$EXTERNALSYM ERROR_CANNOT_OPEN_PROFILE}
  7491.   ERROR_CANNOT_OPEN_PROFILE = 1205;
  7492.  
  7493.   { The network connection profile is corrupt. }
  7494.   {$EXTERNALSYM ERROR_BAD_PROFILE}
  7495.   ERROR_BAD_PROFILE = 1206;
  7496.  
  7497.   { Cannot enumerate a non-container. }
  7498.   {$EXTERNALSYM ERROR_NOT_CONTAINER}
  7499.   ERROR_NOT_CONTAINER = 1207;
  7500.  
  7501.   { An extended error has occurred. }
  7502.   {$EXTERNALSYM ERROR_EXTENDED_ERROR}
  7503.   ERROR_EXTENDED_ERROR = 1208;
  7504.  
  7505.   { The format of the specified group name is invalid. }
  7506.   {$EXTERNALSYM ERROR_INVALID_GROUPNAME}
  7507.   ERROR_INVALID_GROUPNAME = 1209;
  7508.  
  7509.   { The format of the specified computer name is invalid. }
  7510.   {$EXTERNALSYM ERROR_INVALID_COMPUTERNAME}
  7511.   ERROR_INVALID_COMPUTERNAME = 1210;
  7512.  
  7513.   { The format of the specified event name is invalid. }
  7514.   {$EXTERNALSYM ERROR_INVALID_EVENTNAME}
  7515.   ERROR_INVALID_EVENTNAME = 1211;
  7516.  
  7517.   { The format of the specified domain name is invalid. }
  7518.   {$EXTERNALSYM ERROR_INVALID_DOMAINNAME}
  7519.   ERROR_INVALID_DOMAINNAME = 1212;
  7520.  
  7521.   { The format of the specified service name is invalid. }
  7522.   {$EXTERNALSYM ERROR_INVALID_SERVICENAME}
  7523.   ERROR_INVALID_SERVICENAME = 1213;
  7524.  
  7525.   { The format of the specified network name is invalid. }
  7526.   {$EXTERNALSYM ERROR_INVALID_NETNAME}
  7527.   ERROR_INVALID_NETNAME = 1214;
  7528.  
  7529.   { The format of the specified share name is invalid. }
  7530.   {$EXTERNALSYM ERROR_INVALID_SHARENAME}
  7531.   ERROR_INVALID_SHARENAME = 1215;
  7532.  
  7533.   { The format of the specified password is invalid. }
  7534.   {$EXTERNALSYM ERROR_INVALID_PASSWORDNAME}
  7535.   ERROR_INVALID_PASSWORDNAME = 1216;
  7536.  
  7537.   { The format of the specified message name is invalid. }
  7538.   {$EXTERNALSYM ERROR_INVALID_MESSAGENAME}
  7539.   ERROR_INVALID_MESSAGENAME = 1217;
  7540.  
  7541.   { The format of the specified message destination is invalid. }
  7542.   {$EXTERNALSYM ERROR_INVALID_MESSAGEDEST}
  7543.   ERROR_INVALID_MESSAGEDEST = 1218;
  7544.  
  7545.   { The credentials supplied conflict with an existing set of credentials. }
  7546.   {$EXTERNALSYM ERROR_SESSION_CREDENTIAL_CONFLICT}
  7547.   ERROR_SESSION_CREDENTIAL_CONFLICT = 1219;
  7548.  
  7549.   { An attempt was made to establish a session to a network server, but there }
  7550.   { are already too many sessions established to that server. }
  7551.   {$EXTERNALSYM ERROR_REMOTE_SESSION_LIMIT_EXCEEDED}
  7552.   ERROR_REMOTE_SESSION_LIMIT_EXCEEDED = 1220;
  7553.  
  7554.   { The workgroup or domain name is already in use by another computer on the }
  7555.   { network. }
  7556.   {$EXTERNALSYM ERROR_DUP_DOMAINNAME}
  7557.   ERROR_DUP_DOMAINNAME = 1221;
  7558.  
  7559.   { The network is not present or not started. }
  7560.   {$EXTERNALSYM ERROR_NO_NETWORK}
  7561.   ERROR_NO_NETWORK = 1222;
  7562.  
  7563.   { The operation was cancelled by the user. }
  7564.   {$EXTERNALSYM ERROR_CANCELLED}
  7565.   ERROR_CANCELLED = 1223;
  7566.  
  7567.   { The requested operation cannot be performed on a file with a user mapped section open. }
  7568.   {$EXTERNALSYM ERROR_USER_MAPPED_FILE}
  7569.   ERROR_USER_MAPPED_FILE = 1224;
  7570.  
  7571.   { The remote system refused the network connection. }
  7572.   {$EXTERNALSYM ERROR_CONNECTION_REFUSED}
  7573.   ERROR_CONNECTION_REFUSED = 1225;
  7574.  
  7575.   { The network connection was gracefully closed. }
  7576.   {$EXTERNALSYM ERROR_GRACEFUL_DISCONNECT}
  7577.   ERROR_GRACEFUL_DISCONNECT = 1226;
  7578.  
  7579.   { The network transport endpoint already has an address associated with it. }
  7580.   {$EXTERNALSYM ERROR_ADDRESS_ALREADY_ASSOCIATED}
  7581.   ERROR_ADDRESS_ALREADY_ASSOCIATED = 1227;
  7582.  
  7583.   { An address has not yet been associated with the network endpoint. }
  7584.   {$EXTERNALSYM ERROR_ADDRESS_NOT_ASSOCIATED}
  7585.   ERROR_ADDRESS_NOT_ASSOCIATED = 1228;
  7586.  
  7587.   { An operation was attempted on a non-existent network connection. }
  7588.   {$EXTERNALSYM ERROR_CONNECTION_INVALID}
  7589.   ERROR_CONNECTION_INVALID = 1229;
  7590.  
  7591.   { An invalid operation was attempted on an active network connection. }
  7592.   {$EXTERNALSYM ERROR_CONNECTION_ACTIVE}
  7593.   ERROR_CONNECTION_ACTIVE = 1230;
  7594.  
  7595.   { The remote network is not reachable by the transport. }
  7596.   {$EXTERNALSYM ERROR_NETWORK_UNREACHABLE}
  7597.   ERROR_NETWORK_UNREACHABLE = 1231;
  7598.  
  7599.   { The remote system is not reachable by the transport. }
  7600.   {$EXTERNALSYM ERROR_HOST_UNREACHABLE}
  7601.   ERROR_HOST_UNREACHABLE = 1232;
  7602.  
  7603.   { The remote system does not support the transport protocol. }
  7604.   {$EXTERNALSYM ERROR_PROTOCOL_UNREACHABLE}
  7605.   ERROR_PROTOCOL_UNREACHABLE = 1233;
  7606.  
  7607.   { No service is operating at the destination network endpoint }
  7608.   { on the remote system. }
  7609.   {$EXTERNALSYM ERROR_PORT_UNREACHABLE}
  7610.   ERROR_PORT_UNREACHABLE = 1234;
  7611.  
  7612.   { The request was aborted. }
  7613.   {$EXTERNALSYM ERROR_REQUEST_ABORTED}
  7614.   ERROR_REQUEST_ABORTED = 1235;
  7615.  
  7616.   { The network connection was aborted by the local system. }
  7617.   {$EXTERNALSYM ERROR_CONNECTION_ABORTED}
  7618.   ERROR_CONNECTION_ABORTED = 1236;
  7619.  
  7620.   { The operation could not be completed.  A retry should be performed. }
  7621.   {$EXTERNALSYM ERROR_RETRY}
  7622.   ERROR_RETRY = 1237;
  7623.  
  7624.   { A connection to the server could not be made because the limit on the number of }
  7625.   { concurrent connections for this account has been reached. }
  7626.   {$EXTERNALSYM ERROR_CONNECTION_COUNT_LIMIT}
  7627.   ERROR_CONNECTION_COUNT_LIMIT = 1238;
  7628.  
  7629.   { Attempting to login during an unauthorized time of day for this account. }
  7630.   {$EXTERNALSYM ERROR_LOGIN_TIME_RESTRICTION}
  7631.   ERROR_LOGIN_TIME_RESTRICTION = 1239;
  7632.  
  7633.   { The account is not authorized to login from this station. }
  7634.   {$EXTERNALSYM ERROR_LOGIN_WKSTA_RESTRICTION}
  7635.   ERROR_LOGIN_WKSTA_RESTRICTION = 1240;
  7636.  
  7637.   { The network address could not be used for the operation requested. }
  7638.   {$EXTERNALSYM ERROR_INCORRECT_ADDRESS}
  7639.   ERROR_INCORRECT_ADDRESS = 1241;
  7640.  
  7641.   { The service is already registered. }
  7642.   {$EXTERNALSYM ERROR_ALREADY_REGISTERED}
  7643.   ERROR_ALREADY_REGISTERED = 1242;
  7644.  
  7645.   { The specified service does not exist. }
  7646.   {$EXTERNALSYM ERROR_SERVICE_NOT_FOUND}
  7647.   ERROR_SERVICE_NOT_FOUND = 1243;
  7648.  
  7649.   { The operation being requested was not performed because the user }
  7650.   { has not been authenticated. }
  7651.   {$EXTERNALSYM ERROR_NOT_AUTHENTICATED}
  7652.   ERROR_NOT_AUTHENTICATED = 1244;
  7653.  
  7654.   { The operation being requested was not performed because the user }
  7655.   { has not logged on to the network. }
  7656.   { The specified service does not exist. }
  7657.   {$EXTERNALSYM ERROR_NOT_LOGGED_ON}
  7658.   ERROR_NOT_LOGGED_ON = 1245;
  7659.  
  7660.   { Return that wants caller to continue with work in progress. }
  7661.   {$EXTERNALSYM ERROR_CONTINUE}
  7662.   ERROR_CONTINUE = 1246;
  7663.  
  7664.   { An attempt was made to perform an initialization operation when }
  7665.   { initialization has already been completed. }
  7666.   {$EXTERNALSYM ERROR_ALREADY_INITIALIZED}
  7667.   ERROR_ALREADY_INITIALIZED = 1247;
  7668.  
  7669.   { No more local devices. }
  7670.   {$EXTERNALSYM ERROR_NO_MORE_DEVICES}
  7671.   ERROR_NO_MORE_DEVICES = 1248;
  7672.  
  7673.  
  7674. { Security Status Codes }
  7675.  
  7676.   { Not all privileges referenced are assigned to the caller. }
  7677.   {$EXTERNALSYM ERROR_NOT_ALL_ASSIGNED}
  7678.   ERROR_NOT_ALL_ASSIGNED = 1300;
  7679.  
  7680.   { Some mapping between account names and security IDs was not done. }
  7681.   {$EXTERNALSYM ERROR_SOME_NOT_MAPPED}
  7682.   ERROR_SOME_NOT_MAPPED = 1301;
  7683.  
  7684.   { No system quota limits are specifically set for this account. }
  7685.   {$EXTERNALSYM ERROR_NO_QUOTAS_FOR_ACCOUNT}
  7686.   ERROR_NO_QUOTAS_FOR_ACCOUNT = 1302;
  7687.  
  7688.   { No encryption key is available.  A well-known encryption key was returned. }
  7689.   {$EXTERNALSYM ERROR_LOCAL_USER_SESSION_KEY}
  7690.   ERROR_LOCAL_USER_SESSION_KEY = 1303;
  7691.  
  7692.   { The NT password is too complex to be converted to a LAN Manager }
  7693.   { password.  The LAN Manager password returned is a NULL string. }
  7694.   {$EXTERNALSYM ERROR_NULL_LM_PASSWORD}
  7695.   ERROR_NULL_LM_PASSWORD = 1304;
  7696.  
  7697.   { The revision level is unknown. }
  7698.   {$EXTERNALSYM ERROR_UNKNOWN_REVISION}
  7699.   ERROR_UNKNOWN_REVISION = 1305;
  7700.  
  7701.   { Indicates two revision levels are incompatible. }
  7702.   {$EXTERNALSYM ERROR_REVISION_MISMATCH}
  7703.   ERROR_REVISION_MISMATCH = 1306;
  7704.  
  7705.   { This security ID may not be assigned as the owner of this object. }
  7706.   {$EXTERNALSYM ERROR_INVALID_OWNER}
  7707.   ERROR_INVALID_OWNER = 1307;
  7708.  
  7709.   { This security ID may not be assigned as the primary group of an object. }
  7710.   {$EXTERNALSYM ERROR_INVALID_PRIMARY_GROUP}
  7711.   ERROR_INVALID_PRIMARY_GROUP = 1308;
  7712.  
  7713.   { An attempt has been made to operate on an impersonation token }
  7714.  
  7715.   { by a thread that is not currently impersonating a client. }
  7716.   {$EXTERNALSYM ERROR_NO_IMPERSONATION_TOKEN}
  7717.   ERROR_NO_IMPERSONATION_TOKEN = 1309;
  7718.  
  7719.   { The group may not be disabled. }
  7720.   {$EXTERNALSYM ERROR_CANT_DISABLE_MANDATORY}
  7721.   ERROR_CANT_DISABLE_MANDATORY = 1310;
  7722.  
  7723.   { There are currently no logon servers available to service the logon }
  7724.   { request. }
  7725.   {$EXTERNALSYM ERROR_NO_LOGON_SERVERS}
  7726.   ERROR_NO_LOGON_SERVERS = 1311;
  7727.  
  7728.   {  A specified logon session does not exist.  It may already have }
  7729.   {  been terminated. }
  7730.   {$EXTERNALSYM ERROR_NO_SUCH_LOGON_SESSION}
  7731.   ERROR_NO_SUCH_LOGON_SESSION = 1312;
  7732.  
  7733.   {  A specified privilege does not exist. }
  7734.   {$EXTERNALSYM ERROR_NO_SUCH_PRIVILEGE}
  7735.   ERROR_NO_SUCH_PRIVILEGE = 1313;
  7736.  
  7737.   {  A required privilege is not held by the client. }
  7738.   {$EXTERNALSYM ERROR_PRIVILEGE_NOT_HELD}
  7739.   ERROR_PRIVILEGE_NOT_HELD = 1314;
  7740.  
  7741.   { The name provided is not a properly formed account name. }
  7742.   {$EXTERNALSYM ERROR_INVALID_ACCOUNT_NAME}
  7743.   ERROR_INVALID_ACCOUNT_NAME = 1315;
  7744.  
  7745.   { The specified user already exists. }
  7746.   {$EXTERNALSYM ERROR_USER_EXISTS}
  7747.   ERROR_USER_EXISTS = 1316;
  7748.  
  7749.   { The specified user does not exist. }
  7750.   {$EXTERNALSYM ERROR_NO_SUCH_USER}
  7751.   ERROR_NO_SUCH_USER = 1317;
  7752.  
  7753.   { The specified group already exists. }
  7754.   {$EXTERNALSYM ERROR_GROUP_EXISTS}
  7755.   ERROR_GROUP_EXISTS = 1318;
  7756.  
  7757.   { The specified group does not exist. }
  7758.   {$EXTERNALSYM ERROR_NO_SUCH_GROUP}
  7759.   ERROR_NO_SUCH_GROUP = 1319;
  7760.  
  7761.   { Either the specified user account is already a member of the specified }
  7762.   { group, or the specified group cannot be deleted because it contains }
  7763.   { a member. }
  7764.   {$EXTERNALSYM ERROR_MEMBER_IN_GROUP}
  7765.   ERROR_MEMBER_IN_GROUP = 1320;
  7766.  
  7767.   { The specified user account is not a member of the specified group account. }
  7768.   {$EXTERNALSYM ERROR_MEMBER_NOT_IN_GROUP}
  7769.   ERROR_MEMBER_NOT_IN_GROUP = 1321;
  7770.  
  7771.   { The last remaining administration account cannot be disabled }
  7772.   { or deleted. }
  7773.   {$EXTERNALSYM ERROR_LAST_ADMIN}
  7774.   ERROR_LAST_ADMIN = 1322;
  7775.  
  7776.   { Unable to update the password.  The value provided as the current }
  7777.   { password is incorrect. }
  7778.   {$EXTERNALSYM ERROR_WRONG_PASSWORD}
  7779.   ERROR_WRONG_PASSWORD = 1323;
  7780.  
  7781.   { Unable to update the password.  The value provided for the new password }
  7782.   { contains values that are not allowed in passwords. }
  7783.   {$EXTERNALSYM ERROR_ILL_FORMED_PASSWORD}
  7784.   ERROR_ILL_FORMED_PASSWORD = 1324;
  7785.  
  7786.   { Unable to update the password because a password update rule has been }
  7787.   { violated. }
  7788.   {$EXTERNALSYM ERROR_PASSWORD_RESTRICTION}
  7789.   ERROR_PASSWORD_RESTRICTION = 1325;
  7790.  
  7791.   { Logon failure: unknown user name or bad password. }
  7792.   {$EXTERNALSYM ERROR_LOGON_FAILURE}
  7793.   ERROR_LOGON_FAILURE = 1326;
  7794.  
  7795.   { Logon failure: user account restriction. }
  7796.   {$EXTERNALSYM ERROR_ACCOUNT_RESTRICTION}
  7797.   ERROR_ACCOUNT_RESTRICTION = 1327;
  7798.  
  7799.   { Logon failure: account logon time restriction violation. }
  7800.   {$EXTERNALSYM ERROR_INVALID_LOGON_HOURS}
  7801.   ERROR_INVALID_LOGON_HOURS = 1328;
  7802.  
  7803.   { Logon failure: user not allowed to log on to this computer. }
  7804.   {$EXTERNALSYM ERROR_INVALID_WORKSTATION}
  7805.   ERROR_INVALID_WORKSTATION = 1329;
  7806.  
  7807.   { Logon failure: the specified account password has expired. }
  7808.   {$EXTERNALSYM ERROR_PASSWORD_EXPIRED}
  7809.   ERROR_PASSWORD_EXPIRED = 1330;
  7810.  
  7811.   { Logon failure: account currently disabled. }
  7812.   {$EXTERNALSYM ERROR_ACCOUNT_DISABLED}
  7813.   ERROR_ACCOUNT_DISABLED = 1331;
  7814.  
  7815.   { No mapping between account names and security IDs was done. }
  7816.   {$EXTERNALSYM ERROR_NONE_MAPPED}
  7817.   ERROR_NONE_MAPPED = 1332;
  7818.  
  7819.   { Too many local user identifiers (LUIDs) were requested at one time. }
  7820.   {$EXTERNALSYM ERROR_TOO_MANY_LUIDS_REQUESTED}
  7821.   ERROR_TOO_MANY_LUIDS_REQUESTED = 1333;
  7822.  
  7823.   { No more local user identifiers (LUIDs) are available. }
  7824.   {$EXTERNALSYM ERROR_LUIDS_EXHAUSTED}
  7825.   ERROR_LUIDS_EXHAUSTED = 1334;
  7826.  
  7827.   { The subauthority part of a security ID is invalid for this particular use. }
  7828.   {$EXTERNALSYM ERROR_INVALID_SUB_AUTHORITY}
  7829.   ERROR_INVALID_SUB_AUTHORITY = 1335;
  7830.  
  7831.   { The access control list (ACL) structure is invalid. }
  7832.   {$EXTERNALSYM ERROR_INVALID_ACL}
  7833.   ERROR_INVALID_ACL = 1336;
  7834.  
  7835.   { The security ID structure is invalid. }
  7836.   {$EXTERNALSYM ERROR_INVALID_SID}
  7837.   ERROR_INVALID_SID = 1337;
  7838.  
  7839.   { The security descriptor structure is invalid. }
  7840.   {$EXTERNALSYM ERROR_INVALID_SECURITY_DESCR}
  7841.   ERROR_INVALID_SECURITY_DESCR = 1338;
  7842.  
  7843.   { The inherited access control list (ACL) or access control entry (ACE) }
  7844.   { could not be built. }
  7845.   {$EXTERNALSYM ERROR_BAD_INHERITANCE_ACL}
  7846.   ERROR_BAD_INHERITANCE_ACL = 1340;
  7847.  
  7848.   { The server is currently disabled. }
  7849.   {$EXTERNALSYM ERROR_SERVER_DISABLED}
  7850.   ERROR_SERVER_DISABLED = 1341;
  7851.  
  7852.   { The server is currently enabled. }
  7853.   {$EXTERNALSYM ERROR_SERVER_NOT_DISABLED}
  7854.   ERROR_SERVER_NOT_DISABLED = 1342;
  7855.  
  7856.   { The value provided was an invalid value for an identifier authority. }
  7857.   {$EXTERNALSYM ERROR_INVALID_ID_AUTHORITY}
  7858.   ERROR_INVALID_ID_AUTHORITY = 1343;
  7859.  
  7860.   { No more memory is available for security information updates. }
  7861.   {$EXTERNALSYM ERROR_ALLOTTED_SPACE_EXCEEDED}
  7862.   ERROR_ALLOTTED_SPACE_EXCEEDED = 1344;
  7863.  
  7864.   { The specified attributes are invalid, or incompatible with the }
  7865.  
  7866.   { attributes for the group as a whole. }
  7867.   {$EXTERNALSYM ERROR_INVALID_GROUP_ATTRIBUTES}
  7868.   ERROR_INVALID_GROUP_ATTRIBUTES = 1345;
  7869.  
  7870.   { Either a required impersonation level was not provided, or the }
  7871.   { provided impersonation level is invalid. }
  7872.   {$EXTERNALSYM ERROR_BAD_IMPERSONATION_LEVEL}
  7873.   ERROR_BAD_IMPERSONATION_LEVEL = 1346;
  7874.  
  7875.   { Cannot open an anonymous level security token. }
  7876.   {$EXTERNALSYM ERROR_CANT_OPEN_ANONYMOUS}
  7877.   ERROR_CANT_OPEN_ANONYMOUS = 1347;
  7878.  
  7879.   { The validation information class requested was invalid. }
  7880.   {$EXTERNALSYM ERROR_BAD_VALIDATION_CLASS}
  7881.   ERROR_BAD_VALIDATION_CLASS = 1348;
  7882.  
  7883.   { The type of the token is inappropriate for its attempted use. }
  7884.   {$EXTERNALSYM ERROR_BAD_TOKEN_TYPE}
  7885.   ERROR_BAD_TOKEN_TYPE = 1349;
  7886.  
  7887.   { Unable to perform a security operation on an object }
  7888.   { which has no associated security. }
  7889.   {$EXTERNALSYM ERROR_NO_SECURITY_ON_OBJECT}
  7890.   ERROR_NO_SECURITY_ON_OBJECT = 1350;
  7891.  
  7892.   { Indicates a Windows NT Server could not be contacted or that }
  7893.   { objects within the domain are protected such that necessary }
  7894.   { information could not be retrieved. }
  7895.   {$EXTERNALSYM ERROR_CANT_ACCESS_DOMAIN_INFO}
  7896.   ERROR_CANT_ACCESS_DOMAIN_INFO = 1351;
  7897.  
  7898.   { The security account manager (SAM) or local security }
  7899.   { authority (LSA) server was in the wrong state to perform }
  7900.   { the security operation. }
  7901.   {$EXTERNALSYM ERROR_INVALID_SERVER_STATE}
  7902.   ERROR_INVALID_SERVER_STATE = 1352;
  7903.  
  7904.   { The domain was in the wrong state to perform the security operation. }
  7905.   {$EXTERNALSYM ERROR_INVALID_DOMAIN_STATE}
  7906.   ERROR_INVALID_DOMAIN_STATE = 1353;
  7907.  
  7908.   { This operation is only allowed for the Primary Domain Controller of the domain. }
  7909.   {$EXTERNALSYM ERROR_INVALID_DOMAIN_ROLE}
  7910.   ERROR_INVALID_DOMAIN_ROLE = 1354;
  7911.  
  7912.   { The specified domain did not exist. }
  7913.   {$EXTERNALSYM ERROR_NO_SUCH_DOMAIN}
  7914.   ERROR_NO_SUCH_DOMAIN = 1355;
  7915.  
  7916.   { The specified domain already exists. }
  7917.   {$EXTERNALSYM ERROR_DOMAIN_EXISTS}
  7918.   ERROR_DOMAIN_EXISTS = 1356;
  7919.  
  7920.   { An attempt was made to exceed the limit on the number of domains per server. }
  7921.   {$EXTERNALSYM ERROR_DOMAIN_LIMIT_EXCEEDED}
  7922.   ERROR_DOMAIN_LIMIT_EXCEEDED = 1357;
  7923.  
  7924.   { Unable to complete the requested operation because of either a }
  7925.   { catastrophic media failure or a data structure corruption on the disk. }
  7926.   {$EXTERNALSYM ERROR_INTERNAL_DB_CORRUPTION}
  7927.   ERROR_INTERNAL_DB_CORRUPTION = 1358;
  7928.  
  7929.   { The security account database contains an internal inconsistency. }
  7930.   {$EXTERNALSYM ERROR_INTERNAL_ERROR}
  7931.   ERROR_INTERNAL_ERROR = 1359;
  7932.  
  7933.   { Generic access types were contained in an access mask which should }
  7934.   { already be mapped to non-generic types. }
  7935.   {$EXTERNALSYM ERROR_GENERIC_NOT_MAPPED}
  7936.   ERROR_GENERIC_NOT_MAPPED = 1360;
  7937.  
  7938.   { A security descriptor is not in the right format (absolute or self-relative). }
  7939.   {$EXTERNALSYM ERROR_BAD_DESCRIPTOR_FORMAT}
  7940.   ERROR_BAD_DESCRIPTOR_FORMAT = 1361;
  7941.  
  7942.   { The requested action is restricted for use by logon processes }
  7943.   { only.  The calling process has not registered as a logon process. }
  7944.   {$EXTERNALSYM ERROR_NOT_LOGON_PROCESS}
  7945.   ERROR_NOT_LOGON_PROCESS = 1362;
  7946.  
  7947.   { Cannot start a new logon session with an ID that is already in use. }
  7948.   {$EXTERNALSYM ERROR_LOGON_SESSION_EXISTS}
  7949.   ERROR_LOGON_SESSION_EXISTS = 1363;
  7950.  
  7951.   { A specified authentication package is unknown. }
  7952.   {$EXTERNALSYM ERROR_NO_SUCH_PACKAGE}
  7953.   ERROR_NO_SUCH_PACKAGE = 1364;
  7954.  
  7955.   { The logon session is not in a state that is consistent with the }
  7956.   { requested operation. }
  7957.   {$EXTERNALSYM ERROR_BAD_LOGON_SESSION_STATE}
  7958.   ERROR_BAD_LOGON_SESSION_STATE = 1365;
  7959.  
  7960.   { The logon session ID is already in use. }
  7961.   {$EXTERNALSYM ERROR_LOGON_SESSION_COLLISION}
  7962.   ERROR_LOGON_SESSION_COLLISION = 1366;
  7963.  
  7964.   { A logon request contained an invalid logon type value. }
  7965.   {$EXTERNALSYM ERROR_INVALID_LOGON_TYPE}
  7966.   ERROR_INVALID_LOGON_TYPE = 1367;
  7967.  
  7968.   { Unable to impersonate via a named pipe until data has been read }
  7969.   { from that pipe. }
  7970.   {$EXTERNALSYM ERROR_CANNOT_IMPERSONATE}
  7971.   ERROR_CANNOT_IMPERSONATE = 1368;
  7972.  
  7973.   { The transaction state of a Registry subtree is incompatible with the }
  7974.   { requested operation. }
  7975.   {$EXTERNALSYM ERROR_RXACT_INVALID_STATE}
  7976.   ERROR_RXACT_INVALID_STATE = 1369;
  7977.  
  7978.   { An internal security database corruption has been encountered. }
  7979.   {$EXTERNALSYM ERROR_RXACT_COMMIT_FAILURE}
  7980.   ERROR_RXACT_COMMIT_FAILURE = 1370;
  7981.  
  7982.   { Cannot perform this operation on built-in accounts. }
  7983.   {$EXTERNALSYM ERROR_SPECIAL_ACCOUNT}
  7984.   ERROR_SPECIAL_ACCOUNT = 1371;
  7985.  
  7986.   { Cannot perform this operation on this built-in special group. }
  7987.   {$EXTERNALSYM ERROR_SPECIAL_GROUP}
  7988.   ERROR_SPECIAL_GROUP = 1372;
  7989.  
  7990.   { Cannot perform this operation on this built-in special user. }
  7991.   {$EXTERNALSYM ERROR_SPECIAL_USER}
  7992.   ERROR_SPECIAL_USER = 1373;
  7993.  
  7994.   { The user cannot be removed from a group because the group }
  7995.   { is currently the user's primary group. }
  7996.   {$EXTERNALSYM ERROR_MEMBERS_PRIMARY_GROUP}
  7997.   ERROR_MEMBERS_PRIMARY_GROUP = 1374;
  7998.  
  7999.   { The token is already in use as a primary token. }
  8000.   {$EXTERNALSYM ERROR_TOKEN_ALREADY_IN_USE}
  8001.   ERROR_TOKEN_ALREADY_IN_USE = 1375;
  8002.  
  8003.   { The specified local group does not exist. }
  8004.   {$EXTERNALSYM ERROR_NO_SUCH_ALIAS}
  8005.   ERROR_NO_SUCH_ALIAS = 1376;
  8006.  
  8007.   { The specified account name is not a member of the local group. }
  8008.   {$EXTERNALSYM ERROR_MEMBER_NOT_IN_ALIAS}
  8009.   ERROR_MEMBER_NOT_IN_ALIAS = 1377;
  8010.  
  8011.   { The specified account name is already a member of the local group. }
  8012.   {$EXTERNALSYM ERROR_MEMBER_IN_ALIAS}
  8013.   ERROR_MEMBER_IN_ALIAS = 1378;
  8014.  
  8015.   { The specified local group already exists. }
  8016.   {$EXTERNALSYM ERROR_ALIAS_EXISTS}
  8017.   ERROR_ALIAS_EXISTS = 1379;
  8018.  
  8019.   { Logon failure: the user has not been granted the requested }
  8020.   { logon type at this computer. }
  8021.   {$EXTERNALSYM ERROR_LOGON_NOT_GRANTED}
  8022.   ERROR_LOGON_NOT_GRANTED = 1380;
  8023.  
  8024.   { The maximum number of secrets that may be stored in a single system has been }
  8025.   { exceeded. }
  8026.   {$EXTERNALSYM ERROR_TOO_MANY_SECRETS}
  8027.   ERROR_TOO_MANY_SECRETS = 1381;
  8028.  
  8029.   { The length of a secret exceeds the maximum length allowed. }
  8030.   {$EXTERNALSYM ERROR_SECRET_TOO_LONG}
  8031.   ERROR_SECRET_TOO_LONG = 1382;
  8032.  
  8033.   { The local security authority database contains an internal inconsistency. }
  8034.   {$EXTERNALSYM ERROR_INTERNAL_DB_ERROR}
  8035.   ERROR_INTERNAL_DB_ERROR = 1383;
  8036.  
  8037.   { During a logon attempt, the user's security context accumulated too many }
  8038.   { security IDs. }
  8039.   {$EXTERNALSYM ERROR_TOO_MANY_CONTEXT_IDS}
  8040.   ERROR_TOO_MANY_CONTEXT_IDS = 1384;
  8041.  
  8042.   { Logon failure: the user has not been granted the requested logon type }
  8043.   { at this computer. }
  8044.   {$EXTERNALSYM ERROR_LOGON_TYPE_NOT_GRANTED}
  8045.   ERROR_LOGON_TYPE_NOT_GRANTED = 1385;
  8046.  
  8047.   { A cross-encrypted password is necessary to change a user password. }
  8048.   {$EXTERNALSYM ERROR_NT_CROSS_ENCRYPTION_REQUIRED}
  8049.   ERROR_NT_CROSS_ENCRYPTION_REQUIRED = 1386;
  8050.  
  8051.   { A new member could not be added to a local group because the member does }
  8052.   { not exist. }
  8053.   {$EXTERNALSYM ERROR_NO_SUCH_MEMBER}
  8054.   ERROR_NO_SUCH_MEMBER = 1387;
  8055.  
  8056.   { A new member could not be added to a local group because the member has the }
  8057.   { wrong account type. }
  8058.   {$EXTERNALSYM ERROR_INVALID_MEMBER}
  8059.   ERROR_INVALID_MEMBER = 1388;
  8060.  
  8061.   { Too many security IDs have been specified. }
  8062.   {$EXTERNALSYM ERROR_TOO_MANY_SIDS}
  8063.   ERROR_TOO_MANY_SIDS = 1389;
  8064.  
  8065.   { A cross-encrypted password is necessary to change this user password. }
  8066.   {$EXTERNALSYM ERROR_LM_CROSS_ENCRYPTION_REQUIRED}
  8067.   ERROR_LM_CROSS_ENCRYPTION_REQUIRED = 1390;
  8068.  
  8069.   { Indicates an TACL contains no inheritable components }
  8070.   {$EXTERNALSYM ERROR_NO_INHERITANCE}
  8071.   ERROR_NO_INHERITANCE = 1391;
  8072.  
  8073.   { The file or directory is corrupt and non-readable. }
  8074.   {$EXTERNALSYM ERROR_FILE_CORRUPT}
  8075.   ERROR_FILE_CORRUPT = 1392;
  8076.  
  8077.   { The disk structure is corrupt and non-readable. }
  8078.   {$EXTERNALSYM ERROR_DISK_CORRUPT}
  8079.   ERROR_DISK_CORRUPT = 1393;
  8080.  
  8081.   { There is no user session key for the specified logon session. }
  8082.   {$EXTERNALSYM ERROR_NO_USER_SESSION_KEY}
  8083.   ERROR_NO_USER_SESSION_KEY = 1394;
  8084.  
  8085.   { The service being accessed is licensed for a particular number of connections. }
  8086.   { No more connections can be made to the service at this time }
  8087.   { because there are already as many connections as the service can accept. }
  8088.   {$EXTERNALSYM ERROR_LICENSE_QUOTA_EXCEEDED}
  8089.   ERROR_LICENSE_QUOTA_EXCEEDED = 1395;
  8090.  
  8091.  
  8092. { WinUser Error Codes }
  8093.  
  8094.   { Invalid window handle. }
  8095.   {$EXTERNALSYM ERROR_INVALID_WINDOW_HANDLE}
  8096.   ERROR_INVALID_WINDOW_HANDLE = 1400;
  8097.  
  8098.   { Invalid menu handle. }
  8099.   {$EXTERNALSYM ERROR_INVALID_MENU_HANDLE}
  8100.   ERROR_INVALID_MENU_HANDLE = 1401;
  8101.  
  8102.   { Invalid cursor handle. }
  8103.   {$EXTERNALSYM ERROR_INVALID_CURSOR_HANDLE}
  8104.   ERROR_INVALID_CURSOR_HANDLE = 1402;
  8105.  
  8106.   { Invalid accelerator table handle. }
  8107.   {$EXTERNALSYM ERROR_INVALID_ACCEL_HANDLE}
  8108.   ERROR_INVALID_ACCEL_HANDLE = 1403;
  8109.  
  8110.   { Invalid hook handle. }
  8111.   {$EXTERNALSYM ERROR_INVALID_HOOK_HANDLE}
  8112.   ERROR_INVALID_HOOK_HANDLE = 1404;
  8113.  
  8114.   { Invalid handle to a multiple-window position structure. }
  8115.   {$EXTERNALSYM ERROR_INVALID_DWP_HANDLE}
  8116.   ERROR_INVALID_DWP_HANDLE = 1405;
  8117.  
  8118.   { Cannot create a top-level child window. }
  8119.   {$EXTERNALSYM ERROR_TLW_WITH_WSCHILD}
  8120.   ERROR_TLW_WITH_WSCHILD = 1406;
  8121.  
  8122.   { Cannot find window class. }
  8123.   {$EXTERNALSYM ERROR_CANNOT_FIND_WND_CLASS}
  8124.   ERROR_CANNOT_FIND_WND_CLASS = 1407;
  8125.  
  8126.   { Invalid window, belongs to other thread. }
  8127.   {$EXTERNALSYM ERROR_WINDOW_OF_OTHER_THREAD}
  8128.   ERROR_WINDOW_OF_OTHER_THREAD = 1408;
  8129.  
  8130.   { Hot key is already registered. }
  8131.   {$EXTERNALSYM ERROR_HOTKEY_ALREADY_REGISTERED}
  8132.   ERROR_HOTKEY_ALREADY_REGISTERED = 1409;
  8133.  
  8134.   { Class already exists. }
  8135.   {$EXTERNALSYM ERROR_CLASS_ALREADY_EXISTS}
  8136.   ERROR_CLASS_ALREADY_EXISTS = 1410;
  8137.  
  8138.   { Class does not exist. }
  8139.   {$EXTERNALSYM ERROR_CLASS_DOES_NOT_EXIST}
  8140.   ERROR_CLASS_DOES_NOT_EXIST = 1411;
  8141.  
  8142.   { Class still has open windows. }
  8143.   {$EXTERNALSYM ERROR_CLASS_HAS_WINDOWS}
  8144.   ERROR_CLASS_HAS_WINDOWS = 1412;
  8145.  
  8146.   { Invalid index. }
  8147.   {$EXTERNALSYM ERROR_INVALID_INDEX}
  8148.   ERROR_INVALID_INDEX = 1413;
  8149.  
  8150.   { Invalid icon handle. }
  8151.   {$EXTERNALSYM ERROR_INVALID_ICON_HANDLE}
  8152.   ERROR_INVALID_ICON_HANDLE = 1414;
  8153.  
  8154.   { Using private DIALOG window words. }
  8155.   {$EXTERNALSYM ERROR_PRIVATE_DIALOG_INDEX}
  8156.   ERROR_PRIVATE_DIALOG_INDEX = 1415;
  8157.  
  8158.   { The listbox identifier was not found. }
  8159.   {$EXTERNALSYM ERROR_LISTBOX_ID_NOT_FOUND}
  8160.   ERROR_LISTBOX_ID_NOT_FOUND = 1416;
  8161.  
  8162.   { No wildcards were found. }
  8163.   {$EXTERNALSYM ERROR_NO_WILDCARD_CHARACTERS}
  8164.   ERROR_NO_WILDCARD_CHARACTERS = 1417;
  8165.  
  8166.   { Thread does not have a clipboard open. }
  8167.   {$EXTERNALSYM ERROR_CLIPBOARD_NOT_OPEN}
  8168.   ERROR_CLIPBOARD_NOT_OPEN = 1418;
  8169.  
  8170.   { Hot key is not registered. }
  8171.   {$EXTERNALSYM ERROR_HOTKEY_NOT_REGISTERED}
  8172.   ERROR_HOTKEY_NOT_REGISTERED = 1419;
  8173.  
  8174.   { The window is not a valid dialog window. }
  8175.   {$EXTERNALSYM ERROR_WINDOW_NOT_DIALOG}
  8176.   ERROR_WINDOW_NOT_DIALOG = 1420;
  8177.  
  8178.   { Control ID not found. }
  8179.   {$EXTERNALSYM ERROR_CONTROL_ID_NOT_FOUND}
  8180.   ERROR_CONTROL_ID_NOT_FOUND = 1421;
  8181.  
  8182.   { Invalid message for a combo box because it does not have an edit control. }
  8183.   {$EXTERNALSYM ERROR_INVALID_COMBOBOX_MESSAGE}
  8184.   ERROR_INVALID_COMBOBOX_MESSAGE = 1422;
  8185.  
  8186.   { The window is not a combo box. }
  8187.   {$EXTERNALSYM ERROR_WINDOW_NOT_COMBOBOX}
  8188.   ERROR_WINDOW_NOT_COMBOBOX = 1423;
  8189.  
  8190.   { Height must be less than 256. }
  8191.   {$EXTERNALSYM ERROR_INVALID_EDIT_HEIGHT}
  8192.   ERROR_INVALID_EDIT_HEIGHT = 1424;
  8193.  
  8194.   { Invalid device context (DC) handle. }
  8195.   {$EXTERNALSYM ERROR_DC_NOT_FOUND}
  8196.   ERROR_DC_NOT_FOUND = 1425;
  8197.  
  8198.   { Invalid hook procedure type. }
  8199.   {$EXTERNALSYM ERROR_INVALID_HOOK_FILTER}
  8200.   ERROR_INVALID_HOOK_FILTER = 1426;
  8201.  
  8202.   { Invalid hook procedure. }
  8203.   {$EXTERNALSYM ERROR_INVALID_FILTER_PROC}
  8204.   ERROR_INVALID_FILTER_PROC = 1427;
  8205.  
  8206.   { Cannot set non-local hook without a module handle. }
  8207.   {$EXTERNALSYM ERROR_HOOK_NEEDS_HMOD}
  8208.   ERROR_HOOK_NEEDS_HMOD = 1428;
  8209.  
  8210.   { This hook procedure can only be set globally. }
  8211.   {$EXTERNALSYM ERROR_GLOBAL_ONLY_HOOK}
  8212.   ERROR_GLOBAL_ONLY_HOOK = 1429;
  8213.  
  8214.   { The journal hook procedure is already installed. }
  8215.   {$EXTERNALSYM ERROR_JOURNAL_HOOK_SET}
  8216.   ERROR_JOURNAL_HOOK_SET = 1430;
  8217.  
  8218.   { The hook procedure is not installed. }
  8219.   {$EXTERNALSYM ERROR_HOOK_NOT_INSTALLED}
  8220.   ERROR_HOOK_NOT_INSTALLED = 1431;
  8221.  
  8222.   { Invalid message for single-selection listbox. }
  8223.   {$EXTERNALSYM ERROR_INVALID_LB_MESSAGE}
  8224.   ERROR_INVALID_LB_MESSAGE = 1432;
  8225.  
  8226.   { LB_SETCOUNT sent to non-lazy listbox. }
  8227.   {$EXTERNALSYM ERROR_SETCOUNT_ON_BAD_LB}
  8228.   ERROR_SETCOUNT_ON_BAD_LB = 1433;
  8229.  
  8230.   { This list box does not support tab stops. }
  8231.   {$EXTERNALSYM ERROR_LB_WITHOUT_TABSTOPS}
  8232.   ERROR_LB_WITHOUT_TABSTOPS = 1434;
  8233.  
  8234.   { Cannot destroy object created by another thread. }
  8235.   {$EXTERNALSYM ERROR_DESTROY_OBJECT_OF_OTHER_THREAD}
  8236.   ERROR_DESTROY_OBJECT_OF_OTHER_THREAD = 1435;
  8237.  
  8238.   { Child windows cannot have menus. }
  8239.   {$EXTERNALSYM ERROR_CHILD_WINDOW_MENU}
  8240.   ERROR_CHILD_WINDOW_MENU = 1436;
  8241.  
  8242.   { The window does not have a system menu. }
  8243.   {$EXTERNALSYM ERROR_NO_SYSTEM_MENU}
  8244.   ERROR_NO_SYSTEM_MENU = 1437;
  8245.  
  8246.   { Invalid message box style. }
  8247.   {$EXTERNALSYM ERROR_INVALID_MSGBOX_STYLE}
  8248.   ERROR_INVALID_MSGBOX_STYLE = 1438;
  8249.  
  8250.   { Invalid system-wide (SPI_*) parameter. }
  8251.   {$EXTERNALSYM ERROR_INVALID_SPI_VALUE}
  8252.   ERROR_INVALID_SPI_VALUE = 1439;
  8253.  
  8254.   { Screen already locked. }
  8255.   {$EXTERNALSYM ERROR_SCREEN_ALREADY_LOCKED}
  8256.   ERROR_SCREEN_ALREADY_LOCKED = 1440;
  8257.  
  8258.   { All handles to windows in a multiple-window position structure must }
  8259.   { have the same parent. }
  8260.   {$EXTERNALSYM ERROR_HWNDS_HAVE_DIFF_PARENT}
  8261.   ERROR_HWNDS_HAVE_DIFF_PARENT = 1441;
  8262.  
  8263.   { The window is not a child window. }
  8264.   {$EXTERNALSYM ERROR_NOT_CHILD_WINDOW}
  8265.   ERROR_NOT_CHILD_WINDOW = 1442;
  8266.  
  8267.   { Invalid GW_* command. }
  8268.   {$EXTERNALSYM ERROR_INVALID_GW_COMMAND}
  8269.   ERROR_INVALID_GW_COMMAND = 1443;
  8270.  
  8271.   { Invalid thread identifier. }
  8272.   {$EXTERNALSYM ERROR_INVALID_THREAD_ID}
  8273.   ERROR_INVALID_THREAD_ID = 1444;
  8274.  
  8275.   { Cannot process a message from a window that is not a multiple document }
  8276.   { interface (MDI) window. }
  8277.   {$EXTERNALSYM ERROR_NON_MDICHILD_WINDOW}
  8278.   ERROR_NON_MDICHILD_WINDOW = 1445;
  8279.  
  8280.   { Popup menu already active. }
  8281.   {$EXTERNALSYM ERROR_POPUP_ALREADY_ACTIVE}
  8282.   ERROR_POPUP_ALREADY_ACTIVE = 1446;
  8283.  
  8284.   { The window does not have scroll bars. }
  8285.   {$EXTERNALSYM ERROR_NO_SCROLLBARS}
  8286.   ERROR_NO_SCROLLBARS = 1447;
  8287.  
  8288.   { Scroll bar range cannot be greater than $7FFF. }
  8289.   {$EXTERNALSYM ERROR_INVALID_SCROLLBAR_RANGE}
  8290.   ERROR_INVALID_SCROLLBAR_RANGE = 1448;
  8291.  
  8292.   { Cannot show or remove the window in the way specified. }
  8293.   {$EXTERNALSYM ERROR_INVALID_SHOWWIN_COMMAND}
  8294.   ERROR_INVALID_SHOWWIN_COMMAND = 1449;
  8295.  
  8296.   { Insufficient system resources exist to complete the requested service. }
  8297.   {$EXTERNALSYM ERROR_NO_SYSTEM_RESOURCES}
  8298.   ERROR_NO_SYSTEM_RESOURCES = 1450;
  8299.  
  8300.   { Insufficient system resources exist to complete the requested service. }
  8301.   {$EXTERNALSYM ERROR_NONPAGED_SYSTEM_RESOURCES}
  8302.   ERROR_NONPAGED_SYSTEM_RESOURCES = 1451;
  8303.  
  8304.   { Insufficient system resources exist to complete the requested service. }
  8305.   {$EXTERNALSYM ERROR_PAGED_SYSTEM_RESOURCES}
  8306.   ERROR_PAGED_SYSTEM_RESOURCES = 1452;
  8307.  
  8308.   { Insufficient quota to complete the requested service. }
  8309.   {$EXTERNALSYM ERROR_WORKING_SET_QUOTA}
  8310.   ERROR_WORKING_SET_QUOTA = 1453;
  8311.  
  8312.   { Insufficient quota to complete the requested service. }
  8313.   {$EXTERNALSYM ERROR_PAGEFILE_QUOTA}
  8314.   ERROR_PAGEFILE_QUOTA = 1454;
  8315.  
  8316.   { The paging file is too small for this operation to complete. }
  8317.   {$EXTERNALSYM ERROR_COMMITMENT_LIMIT}
  8318.   ERROR_COMMITMENT_LIMIT = 1455;
  8319.  
  8320.   { A menu item was not found. }
  8321.   {$EXTERNALSYM ERROR_MENU_ITEM_NOT_FOUND}
  8322.   ERROR_MENU_ITEM_NOT_FOUND = 1456;
  8323.  
  8324.   { Invalid keyboard layout handle. }
  8325.   {$EXTERNALSYM ERROR_INVALID_KEYBOARD_HANDLE}
  8326.   ERROR_INVALID_KEYBOARD_HANDLE = 1457;
  8327.  
  8328.   { Hook type not allowed. }
  8329.   {$EXTERNALSYM ERROR_HOOK_TYPE_NOT_ALLOWED}
  8330.   ERROR_HOOK_TYPE_NOT_ALLOWED = 1458;
  8331.  
  8332.   { This operation requires an interactive windowstation. }
  8333.   {$EXTERNALSYM ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION}
  8334.   ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION = 1459;
  8335.  
  8336.   { This operation returned because the timeout period expired. }
  8337.   {$EXTERNALSYM ERROR_TIMEOUT}
  8338.   ERROR_TIMEOUT = 1460;
  8339.  
  8340.  
  8341. { Eventlog Status Codes }
  8342.  
  8343.   { The event log file is corrupt. }
  8344.   {$EXTERNALSYM ERROR_EVENTLOG_FILE_CORRUPT}
  8345.   ERROR_EVENTLOG_FILE_CORRUPT = 1500;
  8346.  
  8347.   { No event log file could be opened, so the event logging service did not start. }
  8348.   {$EXTERNALSYM ERROR_EVENTLOG_CANT_START}
  8349.   ERROR_EVENTLOG_CANT_START = 1501;
  8350.  
  8351.   { The event log file is full. }
  8352.   {$EXTERNALSYM ERROR_LOG_FILE_FULL}
  8353.   ERROR_LOG_FILE_FULL = 1502;
  8354.  
  8355.   { The event log file has changed between reads. }
  8356.   {$EXTERNALSYM ERROR_EVENTLOG_FILE_CHANGED}
  8357.   ERROR_EVENTLOG_FILE_CHANGED = 1503;
  8358.  
  8359.  
  8360. { RPC Status Codes }
  8361.  
  8362.   { The string binding is invalid. }
  8363.   {$EXTERNALSYM RPC_S_INVALID_STRING_BINDING}
  8364.   RPC_S_INVALID_STRING_BINDING = 1700;
  8365.  
  8366.   { The binding handle is not the correct type. }
  8367.   {$EXTERNALSYM RPC_S_WRONG_KIND_OF_BINDING}
  8368.   RPC_S_WRONG_KIND_OF_BINDING = 1701;
  8369.  
  8370.   { The binding handle is invalid. }
  8371.   {$EXTERNALSYM RPC_S_INVALID_BINDING}
  8372.   RPC_S_INVALID_BINDING = 1702;
  8373.  
  8374.   { The RPC protocol sequence is not supported. }
  8375.   {$EXTERNALSYM RPC_S_PROTSEQ_NOT_SUPPORTED}
  8376.   RPC_S_PROTSEQ_NOT_SUPPORTED = 1703;
  8377.  
  8378.   { The RPC protocol sequence is invalid. }
  8379.   {$EXTERNALSYM RPC_S_INVALID_RPC_PROTSEQ}
  8380.   RPC_S_INVALID_RPC_PROTSEQ = 1704;
  8381.  
  8382.   { The string universal unique identifier (UUID) is invalid. }
  8383.   {$EXTERNALSYM RPC_S_INVALID_STRING_UUID}
  8384.   RPC_S_INVALID_STRING_UUID = 1705;
  8385.  
  8386.   { The endpoint format is invalid. }
  8387.   {$EXTERNALSYM RPC_S_INVALID_ENDPOINT_FORMAT}
  8388.   RPC_S_INVALID_ENDPOINT_FORMAT = 1706;
  8389.  
  8390.   { The network address is invalid. }
  8391.   {$EXTERNALSYM RPC_S_INVALID_NET_ADDR}
  8392.   RPC_S_INVALID_NET_ADDR = 1707;
  8393.  
  8394.   { No endpoint was found. }
  8395.   {$EXTERNALSYM RPC_S_NO_ENDPOINT_FOUND}
  8396.   RPC_S_NO_ENDPOINT_FOUND = 1708;
  8397.  
  8398.   { The timeout value is invalid. }
  8399.   {$EXTERNALSYM RPC_S_INVALID_TIMEOUT}
  8400.   RPC_S_INVALID_TIMEOUT = 1709;
  8401.  
  8402.   { The object universal unique identifier (UUID) was not found. }
  8403.   {$EXTERNALSYM RPC_S_OBJECT_NOT_FOUND}
  8404.   RPC_S_OBJECT_NOT_FOUND = 1710;
  8405.  
  8406.   { The object universal unique identifier (UUID) has already been registered. }
  8407.   {$EXTERNALSYM RPC_S_ALREADY_REGISTERED}
  8408.   RPC_S_ALREADY_REGISTERED = 1711;
  8409.  
  8410.   { The type universal unique identifier (UUID) has already been registered. }
  8411.   {$EXTERNALSYM RPC_S_TYPE_ALREADY_REGISTERED}
  8412.   RPC_S_TYPE_ALREADY_REGISTERED = 1712;
  8413.  
  8414.   { The RPC server is already listening. }
  8415.   {$EXTERNALSYM RPC_S_ALREADY_LISTENING}
  8416.   RPC_S_ALREADY_LISTENING = 1713;
  8417.  
  8418.   { No protocol sequences have been registered. }
  8419.   {$EXTERNALSYM RPC_S_NO_PROTSEQS_REGISTERED}
  8420.   RPC_S_NO_PROTSEQS_REGISTERED = 1714;
  8421.  
  8422.   { The RPC server is not listening. }
  8423.   {$EXTERNALSYM RPC_S_NOT_LISTENING}
  8424.   RPC_S_NOT_LISTENING = 1715;
  8425.  
  8426.   { The manager type is unknown. }
  8427.   {$EXTERNALSYM RPC_S_UNKNOWN_MGR_TYPE}
  8428.   RPC_S_UNKNOWN_MGR_TYPE = 1716;
  8429.  
  8430.   { The interface is unknown. }
  8431.   {$EXTERNALSYM RPC_S_UNKNOWN_IF}
  8432.   RPC_S_UNKNOWN_IF = 1717;
  8433.  
  8434.   { There are no bindings. }
  8435.   {$EXTERNALSYM RPC_S_NO_BINDINGS}
  8436.   RPC_S_NO_BINDINGS = 1718;
  8437.  
  8438.   { There are no protocol sequences. }
  8439.   {$EXTERNALSYM RPC_S_NO_PROTSEQS}
  8440.   RPC_S_NO_PROTSEQS = 1719;
  8441.  
  8442.   { The endpoint cannot be created. }
  8443.   {$EXTERNALSYM RPC_S_CANT_CREATE_ENDPOINT}
  8444.   RPC_S_CANT_CREATE_ENDPOINT = 1720;
  8445.  
  8446.   { Not enough resources are available to complete this operation. }
  8447.   {$EXTERNALSYM RPC_S_OUT_OF_RESOURCES}
  8448.   RPC_S_OUT_OF_RESOURCES = 1721;
  8449.  
  8450.   { The RPC server is unavailable. }
  8451.   {$EXTERNALSYM RPC_S_SERVER_UNAVAILABLE}
  8452.   RPC_S_SERVER_UNAVAILABLE = 1722;
  8453.  
  8454.   { The RPC server is too busy to complete this operation. }
  8455.   {$EXTERNALSYM RPC_S_SERVER_TOO_BUSY}
  8456.   RPC_S_SERVER_TOO_BUSY = 1723;
  8457.  
  8458.   { The network options are invalid. }
  8459.   {$EXTERNALSYM RPC_S_INVALID_NETWORK_OPTIONS}
  8460.   RPC_S_INVALID_NETWORK_OPTIONS = 1724;
  8461.  
  8462.   { There is not a remote procedure call active in this thread. }
  8463.   {$EXTERNALSYM RPC_S_NO_CALL_ACTIVE}
  8464.   RPC_S_NO_CALL_ACTIVE = 1725;
  8465.  
  8466.   { The remote procedure call failed. }
  8467.   {$EXTERNALSYM RPC_S_CALL_FAILED}
  8468.   RPC_S_CALL_FAILED = 1726;
  8469.  
  8470.   { The remote procedure call failed and did not execute. }
  8471.   {$EXTERNALSYM RPC_S_CALL_FAILED_DNE}
  8472.   RPC_S_CALL_FAILED_DNE = 1727;
  8473.  
  8474.   { A remote procedure call (RPC) protocol error occurred. }
  8475.   {$EXTERNALSYM RPC_S_PROTOCOL_ERROR}
  8476.   RPC_S_PROTOCOL_ERROR = 1728;
  8477.  
  8478.   { The transfer syntax is not supported by the RPC server. }
  8479.   {$EXTERNALSYM RPC_S_UNSUPPORTED_TRANS_SYN}
  8480.   RPC_S_UNSUPPORTED_TRANS_SYN = 1730;
  8481.  
  8482.   { The universal unique identifier (UUID) type is not supported. }
  8483.   {$EXTERNALSYM RPC_S_UNSUPPORTED_TYPE}
  8484.   RPC_S_UNSUPPORTED_TYPE = 1732;
  8485.  
  8486.   { The tag is invalid. }
  8487.   {$EXTERNALSYM RPC_S_INVALID_TAG}
  8488.   RPC_S_INVALID_TAG = 1733;
  8489.  
  8490.   { The array bounds are invalid. }
  8491.   {$EXTERNALSYM RPC_S_INVALID_BOUND}
  8492.   RPC_S_INVALID_BOUND = 1734;
  8493.  
  8494.   { The binding does not contain an entry name. }
  8495.   {$EXTERNALSYM RPC_S_NO_ENTRY_NAME}
  8496.   RPC_S_NO_ENTRY_NAME = 1735;
  8497.  
  8498.   { The name syntax is invalid. }
  8499.   {$EXTERNALSYM RPC_S_INVALID_NAME_SYNTAX}
  8500.   RPC_S_INVALID_NAME_SYNTAX = 1736;
  8501.  
  8502.   { The name syntax is not supported. }
  8503.   {$EXTERNALSYM RPC_S_UNSUPPORTED_NAME_SYNTAX}
  8504.   RPC_S_UNSUPPORTED_NAME_SYNTAX = 1737;
  8505.  
  8506.   { No network address is available to use to construct a universal }
  8507.  
  8508.   { unique identifier (UUID). }
  8509.   {$EXTERNALSYM RPC_S_UUID_NO_ADDRESS}
  8510.   RPC_S_UUID_NO_ADDRESS = 1739;
  8511.  
  8512.   { The endpoint is a duplicate. }
  8513.   {$EXTERNALSYM RPC_S_DUPLICATE_ENDPOINT}
  8514.   RPC_S_DUPLICATE_ENDPOINT = 1740;
  8515.  
  8516.   { The authentication type is unknown. }
  8517.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_TYPE}
  8518.   RPC_S_UNKNOWN_AUTHN_TYPE = 1741;
  8519.  
  8520.   { The maximum number of calls is too small. }
  8521.   {$EXTERNALSYM RPC_S_MAX_CALLS_TOO_SMALL}
  8522.   RPC_S_MAX_CALLS_TOO_SMALL = 1742;
  8523.  
  8524.   { The string is too long. }
  8525.   {$EXTERNALSYM RPC_S_STRING_TOO_LONG}
  8526.   RPC_S_STRING_TOO_LONG = 1743;
  8527.  
  8528.   { The RPC protocol sequence was not found. }
  8529.   {$EXTERNALSYM RPC_S_PROTSEQ_NOT_FOUND}
  8530.   RPC_S_PROTSEQ_NOT_FOUND = 1744;
  8531.  
  8532.   { The procedure number is out of range. }
  8533.   {$EXTERNALSYM RPC_S_PROCNUM_OUT_OF_RANGE}
  8534.   RPC_S_PROCNUM_OUT_OF_RANGE = 1745;
  8535.  
  8536.   { The binding does not contain any authentication information. }
  8537.   {$EXTERNALSYM RPC_S_BINDING_HAS_NO_AUTH}
  8538.   RPC_S_BINDING_HAS_NO_AUTH = 1746;
  8539.  
  8540.   { The authentication service is unknown. }
  8541.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_SERVICE}
  8542.   RPC_S_UNKNOWN_AUTHN_SERVICE = 1747;
  8543.  
  8544.   { The authentication level is unknown. }
  8545.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_LEVEL}
  8546.   RPC_S_UNKNOWN_AUTHN_LEVEL = 1748;
  8547.  
  8548.   { The security context is invalid. }
  8549.   {$EXTERNALSYM RPC_S_INVALID_AUTH_IDENTITY}
  8550.   RPC_S_INVALID_AUTH_IDENTITY = 1749;
  8551.  
  8552.   { The authorization service is unknown. }
  8553.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHZ_SERVICE}
  8554.   RPC_S_UNKNOWN_AUTHZ_SERVICE = 1750;
  8555.  
  8556.   { The entry is invalid. }
  8557.   {$EXTERNALSYM EPT_S_INVALID_ENTRY}
  8558.   EPT_S_INVALID_ENTRY = 1751;
  8559.  
  8560.   { The server endpoint cannot perform the operation. }
  8561.   {$EXTERNALSYM EPT_S_CANT_PERFORM_OP}
  8562.   EPT_S_CANT_PERFORM_OP = 1752;
  8563.  
  8564.   { There are no more endpoints available from the endpoint mapper. }
  8565.   {$EXTERNALSYM EPT_S_NOT_REGISTERED}
  8566.   EPT_S_NOT_REGISTERED = 1753;
  8567.  
  8568.   { No interfaces have been exported. }
  8569.   {$EXTERNALSYM RPC_S_NOTHING_TO_EXPORT}
  8570.   RPC_S_NOTHING_TO_EXPORT = 1754;
  8571.  
  8572.   { The entry name is incomplete. }
  8573.   {$EXTERNALSYM RPC_S_INCOMPLETE_NAME}
  8574.   RPC_S_INCOMPLETE_NAME = 1755;
  8575.  
  8576.   { The version option is invalid. }
  8577.   {$EXTERNALSYM RPC_S_INVALID_VERS_OPTION}
  8578.   RPC_S_INVALID_VERS_OPTION = 1756;
  8579.  
  8580.   { There are no more members. }
  8581.   {$EXTERNALSYM RPC_S_NO_MORE_MEMBERS}
  8582.   RPC_S_NO_MORE_MEMBERS = 1757;
  8583.  
  8584.   { There is nothing to unexport. }
  8585.   {$EXTERNALSYM RPC_S_NOT_ALL_OBJS_UNEXPORTED}
  8586.   RPC_S_NOT_ALL_OBJS_UNEXPORTED = 1758;
  8587.  
  8588.   { The interface was not found. }
  8589.   {$EXTERNALSYM RPC_S_INTERFACE_NOT_FOUND}
  8590.   RPC_S_INTERFACE_NOT_FOUND = 1759;
  8591.  
  8592.   { The entry already exists. }
  8593.   {$EXTERNALSYM RPC_S_ENTRY_ALREADY_EXISTS}
  8594.   RPC_S_ENTRY_ALREADY_EXISTS = 1760;
  8595.  
  8596.   { The entry is not found. }
  8597.   {$EXTERNALSYM RPC_S_ENTRY_NOT_FOUND}
  8598.   RPC_S_ENTRY_NOT_FOUND = 1761;
  8599.  
  8600.   { The name service is unavailable. }
  8601.   {$EXTERNALSYM RPC_S_NAME_SERVICE_UNAVAILABLE}
  8602.   RPC_S_NAME_SERVICE_UNAVAILABLE = 1762;
  8603.  
  8604.   { The network address family is invalid. }
  8605.   {$EXTERNALSYM RPC_S_INVALID_NAF_ID}
  8606.   RPC_S_INVALID_NAF_ID = 1763;
  8607.  
  8608.   { The requested operation is not supported. }
  8609.   {$EXTERNALSYM RPC_S_CANNOT_SUPPORT}
  8610.   RPC_S_CANNOT_SUPPORT = 1764;
  8611.  
  8612.   { No security context is available to allow impersonation. }
  8613.   {$EXTERNALSYM RPC_S_NO_CONTEXT_AVAILABLE}
  8614.   RPC_S_NO_CONTEXT_AVAILABLE = 1765;
  8615.  
  8616.   { An internal error occurred in a remote procedure call (RPC). }
  8617.   {$EXTERNALSYM RPC_S_INTERNAL_ERROR}
  8618.   RPC_S_INTERNAL_ERROR = 1766;
  8619.  
  8620.   { The RPC server attempted an integer division by zero. }
  8621.   {$EXTERNALSYM RPC_S_ZERO_DIVIDE}
  8622.   RPC_S_ZERO_DIVIDE = 1767;
  8623.  
  8624.   { An addressing error occurred in the RPC server. }
  8625.   {$EXTERNALSYM RPC_S_ADDRESS_ERROR}
  8626.   RPC_S_ADDRESS_ERROR = 1768;
  8627.  
  8628.   { A floating-point operation at the RPC server caused a division by zero. }
  8629.   {$EXTERNALSYM RPC_S_FP_DIV_ZERO}
  8630.   RPC_S_FP_DIV_ZERO = 1769;
  8631.  
  8632.   { A floating-point underflow occurred at the RPC server. }
  8633.   {$EXTERNALSYM RPC_S_FP_UNDERFLOW}
  8634.   RPC_S_FP_UNDERFLOW = 1770;
  8635.  
  8636.   { A floating-point overflow occurred at the RPC server. }
  8637.   {$EXTERNALSYM RPC_S_FP_OVERFLOW}
  8638.   RPC_S_FP_OVERFLOW = 1771;
  8639.  
  8640.   { The list of RPC servers available for the binding of auto handles }
  8641.   { has been exhausted. }
  8642.   {$EXTERNALSYM RPC_X_NO_MORE_ENTRIES}
  8643.   RPC_X_NO_MORE_ENTRIES = 1772;
  8644.  
  8645.   { Unable to open the character translation table file. }
  8646.   {$EXTERNALSYM RPC_X_SS_CHAR_TRANS_OPEN_FAIL}
  8647.   RPC_X_SS_CHAR_TRANS_OPEN_FAIL = 1773;
  8648.  
  8649.   { The file containing the character translation table has fewer than }
  8650.   { 512 bytes. }
  8651.   {$EXTERNALSYM RPC_X_SS_CHAR_TRANS_SHORT_FILE}
  8652.   RPC_X_SS_CHAR_TRANS_SHORT_FILE = 1774;
  8653.  
  8654.   { A null context handle was passed from the client to the host during }
  8655.   { a remote procedure call. }
  8656.   {$EXTERNALSYM RPC_X_SS_IN_NULL_CONTEXT}
  8657.   RPC_X_SS_IN_NULL_CONTEXT = 1775;
  8658.  
  8659.   { The context handle changed during a remote procedure call. }
  8660.   {$EXTERNALSYM RPC_X_SS_CONTEXT_DAMAGED}
  8661.   RPC_X_SS_CONTEXT_DAMAGED = 1777;
  8662.  
  8663.   { The binding handles passed to a remote procedure call do not match. }
  8664.   {$EXTERNALSYM RPC_X_SS_HANDLES_MISMATCH}
  8665.   RPC_X_SS_HANDLES_MISMATCH = 1778;
  8666.  
  8667.   { The stub is unable to get the remote procedure call handle. }
  8668.   {$EXTERNALSYM RPC_X_SS_CANNOT_GET_CALL_HANDLE}
  8669.   RPC_X_SS_CANNOT_GET_CALL_HANDLE = 1779;
  8670.  
  8671.   { A null reference pointer was passed to the stub. }
  8672.   {$EXTERNALSYM RPC_X_NULL_REF_POINTER}
  8673.   RPC_X_NULL_REF_POINTER = 1780;
  8674.  
  8675.   { The enumeration value is out of range. }
  8676.   {$EXTERNALSYM RPC_X_ENUM_VALUE_OUT_OF_RANGE}
  8677.   RPC_X_ENUM_VALUE_OUT_OF_RANGE = 1781;
  8678.  
  8679.   { The byte count is too small. }
  8680.   {$EXTERNALSYM RPC_X_BYTE_COUNT_TOO_SMALL}
  8681.   RPC_X_BYTE_COUNT_TOO_SMALL = 1782;
  8682.  
  8683.   { The stub received bad data. }
  8684.   {$EXTERNALSYM RPC_X_BAD_STUB_DATA}
  8685.   RPC_X_BAD_STUB_DATA = 1783;
  8686.  
  8687.   { The supplied user buffer is not valid for the requested operation. }
  8688.   {$EXTERNALSYM ERROR_INVALID_USER_BUFFER}
  8689.   ERROR_INVALID_USER_BUFFER = 1784;
  8690.  
  8691.   { The disk media is not recognized.  It may not be formatted. }
  8692.   {$EXTERNALSYM ERROR_UNRECOGNIZED_MEDIA}
  8693.   ERROR_UNRECOGNIZED_MEDIA = 1785;
  8694.  
  8695.   { The workstation does not have a trust secret. }
  8696.   {$EXTERNALSYM ERROR_NO_TRUST_LSA_SECRET}
  8697.   ERROR_NO_TRUST_LSA_SECRET = 1786;
  8698.  
  8699.   { The SAM database on the Windows NT Server does not have a computer }
  8700.   { account for this workstation trust relationship. }
  8701.   {$EXTERNALSYM ERROR_NO_TRUST_SAM_ACCOUNT}
  8702.   ERROR_NO_TRUST_SAM_ACCOUNT = 1787;
  8703.  
  8704.   { The trust relationship between the primary domain and the trusted }
  8705.   { domain failed. }
  8706.   {$EXTERNALSYM ERROR_TRUSTED_DOMAIN_FAILURE}
  8707.   ERROR_TRUSTED_DOMAIN_FAILURE = 1788;
  8708.  
  8709.   { The trust relationship between this workstation and the primary }
  8710.   { domain failed. }
  8711.   {$EXTERNALSYM ERROR_TRUSTED_RELATIONSHIP_FAILURE}
  8712.   ERROR_TRUSTED_RELATIONSHIP_FAILURE = 1789;
  8713.  
  8714.   { The network logon failed. }
  8715.   {$EXTERNALSYM ERROR_TRUST_FAILURE}
  8716.   ERROR_TRUST_FAILURE = 1790;
  8717.  
  8718.   { A remote procedure call is already in progress for this thread. }
  8719.   {$EXTERNALSYM RPC_S_CALL_IN_PROGRESS}
  8720.   RPC_S_CALL_IN_PROGRESS = 1791;
  8721.  
  8722.   { An attempt was made to logon, but the network logon service was not started. }
  8723.   {$EXTERNALSYM ERROR_NETLOGON_NOT_STARTED}
  8724.   ERROR_NETLOGON_NOT_STARTED = 1792;
  8725.  
  8726.   { The user's account has expired. }
  8727.   {$EXTERNALSYM ERROR_ACCOUNT_EXPIRED}
  8728.   ERROR_ACCOUNT_EXPIRED = 1793;
  8729.  
  8730.   { The redirector is in use and cannot be unloaded. }
  8731.   {$EXTERNALSYM ERROR_REDIRECTOR_HAS_OPEN_HANDLES}
  8732.   ERROR_REDIRECTOR_HAS_OPEN_HANDLES = 1794;
  8733.  
  8734.   { The specified printer driver is already installed. }
  8735.   {$EXTERNALSYM ERROR_PRINTER_DRIVER_ALREADY_INSTALLED}
  8736.   ERROR_PRINTER_DRIVER_ALREADY_INSTALLED = 1795;
  8737.  
  8738.   { The specified port is unknown. }
  8739.   {$EXTERNALSYM ERROR_UNKNOWN_PORT}
  8740.   ERROR_UNKNOWN_PORT = 1796;
  8741.  
  8742.   { The printer driver is unknown. }
  8743.   {$EXTERNALSYM ERROR_UNKNOWN_PRINTER_DRIVER}
  8744.   ERROR_UNKNOWN_PRINTER_DRIVER = 1797;
  8745.  
  8746.   { The print processor is unknown. }
  8747.   {$EXTERNALSYM ERROR_UNKNOWN_PRINTPROCESSOR}
  8748.   ERROR_UNKNOWN_PRINTPROCESSOR = 1798;
  8749.  
  8750.   { The specified separator file is invalid. }
  8751.   {$EXTERNALSYM ERROR_INVALID_SEPARATOR_FILE}
  8752.   ERROR_INVALID_SEPARATOR_FILE = 1799;
  8753.  
  8754.   { The specified priority is invalid. }
  8755.   {$EXTERNALSYM ERROR_INVALID_PRIORITY}
  8756.   ERROR_INVALID_PRIORITY = 1800;
  8757.  
  8758.   { The printer name is invalid. }
  8759.   {$EXTERNALSYM ERROR_INVALID_PRINTER_NAME}
  8760.   ERROR_INVALID_PRINTER_NAME = 1801;
  8761.  
  8762.   { The printer already exists. }
  8763.   {$EXTERNALSYM ERROR_PRINTER_ALREADY_EXISTS}
  8764.   ERROR_PRINTER_ALREADY_EXISTS = 1802;
  8765.  
  8766.   { The printer command is invalid. }
  8767.   {$EXTERNALSYM ERROR_INVALID_PRINTER_COMMAND}
  8768.   ERROR_INVALID_PRINTER_COMMAND = 1803;
  8769.  
  8770.   { The specified datatype is invalid. }
  8771.   {$EXTERNALSYM ERROR_INVALID_DATATYPE}
  8772.   ERROR_INVALID_DATATYPE = 1804;
  8773.  
  8774.   { The Environment specified is invalid. }
  8775.   {$EXTERNALSYM ERROR_INVALID_ENVIRONMENT}
  8776.   ERROR_INVALID_ENVIRONMENT = 1805;
  8777.  
  8778.   { There are no more bindings. }
  8779.   {$EXTERNALSYM RPC_S_NO_MORE_BINDINGS}
  8780.   RPC_S_NO_MORE_BINDINGS = 1806;
  8781.  
  8782.   { The account used is an interdomain trust account.  Use your global user account or local user account to access this server. }
  8783.   {$EXTERNALSYM ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT}
  8784.   ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT = 1807;
  8785.  
  8786.   { The account used is a Computer Account.  Use your global user account or local user account to access this server. }
  8787.   {$EXTERNALSYM ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT}
  8788.   ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT = 1808;
  8789.  
  8790.   { The account used is an server trust account.  Use your global user account or local user account to access this server. }
  8791.   {$EXTERNALSYM ERROR_NOLOGON_SERVER_TRUST_ACCOUNT}
  8792.   ERROR_NOLOGON_SERVER_TRUST_ACCOUNT = 1809;
  8793.  
  8794.   { The name or security ID (SID) of the domain specified is inconsistent }
  8795.   { with the trust information for that domain. }
  8796.   {$EXTERNALSYM ERROR_DOMAIN_TRUST_INCONSISTENT}
  8797.   ERROR_DOMAIN_TRUST_INCONSISTENT = 1810;
  8798.  
  8799.   { The server is in use and cannot be unloaded. }
  8800.   {$EXTERNALSYM ERROR_SERVER_HAS_OPEN_HANDLES}
  8801.   ERROR_SERVER_HAS_OPEN_HANDLES = 1811;
  8802.  
  8803.   { The specified image file did not contain a resource section. }
  8804.   {$EXTERNALSYM ERROR_RESOURCE_DATA_NOT_FOUND}
  8805.   ERROR_RESOURCE_DATA_NOT_FOUND = 1812;
  8806.  
  8807.   { The specified resource type can not be found in the image file. }
  8808.   {$EXTERNALSYM ERROR_RESOURCE_TYPE_NOT_FOUND}
  8809.   ERROR_RESOURCE_TYPE_NOT_FOUND = 1813;
  8810.  
  8811.   { The specified resource name can not be found in the image file. }
  8812.   {$EXTERNALSYM ERROR_RESOURCE_NAME_NOT_FOUND}
  8813.   ERROR_RESOURCE_NAME_NOT_FOUND = 1814;
  8814.  
  8815.   { The specified resource language ID cannot be found in the image file. }
  8816.   {$EXTERNALSYM ERROR_RESOURCE_LANG_NOT_FOUND}
  8817.   ERROR_RESOURCE_LANG_NOT_FOUND = 1815;
  8818.  
  8819.   { Not enough quota is available to process this command. }
  8820.   {$EXTERNALSYM ERROR_NOT_ENOUGH_QUOTA}
  8821.   ERROR_NOT_ENOUGH_QUOTA = 1816;
  8822.  
  8823.   { No interfaces have been registered. }
  8824.   {$EXTERNALSYM RPC_S_NO_INTERFACES}
  8825.   RPC_S_NO_INTERFACES = 1817;
  8826.  
  8827.   { The server was altered while processing this call. }
  8828.   {$EXTERNALSYM RPC_S_CALL_CANCELLED}
  8829.   RPC_S_CALL_CANCELLED = 1818;
  8830.  
  8831.   { The binding handle does not contain all required information. }
  8832.   {$EXTERNALSYM RPC_S_BINDING_INCOMPLETE}
  8833.   RPC_S_BINDING_INCOMPLETE = 1819;
  8834.  
  8835.   { Communications failure. }
  8836.   {$EXTERNALSYM RPC_S_COMM_FAILURE}
  8837.   RPC_S_COMM_FAILURE = 1820;
  8838.  
  8839.   { The requested authentication level is not supported. }
  8840.   {$EXTERNALSYM RPC_S_UNSUPPORTED_AUTHN_LEVEL}
  8841.   RPC_S_UNSUPPORTED_AUTHN_LEVEL = 1821;
  8842.  
  8843.   { No principal name registered. }
  8844.   {$EXTERNALSYM RPC_S_NO_PRINC_NAME}
  8845.   RPC_S_NO_PRINC_NAME = 1822;
  8846.  
  8847.   { The error specified is not a valid Windows NT RPC error code. }
  8848.   {$EXTERNALSYM RPC_S_NOT_RPC_ERROR}
  8849.   RPC_S_NOT_RPC_ERROR = 1823;
  8850.  
  8851.   { A UUID that is valid only on this computer has been allocated. }
  8852.   {$EXTERNALSYM RPC_S_UUID_LOCAL_ONLY}
  8853.   RPC_S_UUID_LOCAL_ONLY = 1824;
  8854.  
  8855.   { A security package specific error occurred. }
  8856.   {$EXTERNALSYM RPC_S_SEC_PKG_ERROR}
  8857.   RPC_S_SEC_PKG_ERROR = 1825;
  8858.  
  8859.   { Thread is not cancelled. }
  8860.   {$EXTERNALSYM RPC_S_NOT_CANCELLED}
  8861.   RPC_S_NOT_CANCELLED = 1826;
  8862.  
  8863.   { Invalid operation on the encoding/decoding handle. }
  8864.   {$EXTERNALSYM RPC_X_INVALID_ES_ACTION}
  8865.   RPC_X_INVALID_ES_ACTION = 1827;
  8866.  
  8867.   { Incompatible version of the serializing package. }
  8868.   {$EXTERNALSYM RPC_X_WRONG_ES_VERSION}
  8869.   RPC_X_WRONG_ES_VERSION = 1828;
  8870.  
  8871.   { Incompatible version of the RPC stub. }
  8872.   {$EXTERNALSYM RPC_X_WRONG_STUB_VERSION}
  8873.   RPC_X_WRONG_STUB_VERSION = 1829;
  8874.  
  8875.   { The idl pipe object is invalid or corrupted. }
  8876.   {$EXTERNALSYM RPC_X_INVALID_PIPE_OBJECT}
  8877.   RPC_X_INVALID_PIPE_OBJECT = 1830;
  8878.  
  8879.   { The operation is invalid for a given idl pipe object. }
  8880.   {$EXTERNALSYM RPC_X_INVALID_PIPE_OPERATION}
  8881.   RPC_X_INVALID_PIPE_OPERATION = 1831;
  8882.  
  8883.   { The idl pipe version is not supported. }
  8884.   {$EXTERNALSYM RPC_X_WRONG_PIPE_VERSION}
  8885.   RPC_X_WRONG_PIPE_VERSION = 1832;
  8886.  
  8887.   { The group member was not found. }
  8888.   {$EXTERNALSYM RPC_S_GROUP_MEMBER_NOT_FOUND}
  8889.   RPC_S_GROUP_MEMBER_NOT_FOUND = 1898;
  8890.  
  8891.   { The endpoint mapper database could not be created. }
  8892.   {$EXTERNALSYM EPT_S_CANT_CREATE}
  8893.   EPT_S_CANT_CREATE = 1899;
  8894.  
  8895.   { The object universal unique identifier (UUID) is the nil UUID. }
  8896.   {$EXTERNALSYM RPC_S_INVALID_OBJECT}
  8897.   RPC_S_INVALID_OBJECT = 1900;
  8898.  
  8899.   { The specified time is invalid. }
  8900.   {$EXTERNALSYM ERROR_INVALID_TIME}
  8901.   ERROR_INVALID_TIME = 1901;
  8902.  
  8903.   { The specified Form name is invalid. }
  8904.   {$EXTERNALSYM ERROR_INVALID_FORM_NAME}
  8905.   ERROR_INVALID_FORM_NAME = 1902;
  8906.  
  8907.   { The specified Form size is invalid }
  8908.   {$EXTERNALSYM ERROR_INVALID_FORM_SIZE}
  8909.   ERROR_INVALID_FORM_SIZE = 1903;
  8910.  
  8911.   { The specified Printer handle is already being waited on }
  8912.   {$EXTERNALSYM ERROR_ALREADY_WAITING}
  8913.   ERROR_ALREADY_WAITING = 1904;
  8914.  
  8915.   { The specified Printer has been deleted }
  8916.   {$EXTERNALSYM ERROR_PRINTER_DELETED}
  8917.   ERROR_PRINTER_DELETED = 1905;
  8918.  
  8919.   { The state of the Printer is invalid }
  8920.   {$EXTERNALSYM ERROR_INVALID_PRINTER_STATE}
  8921.   ERROR_INVALID_PRINTER_STATE = 1906;
  8922.  
  8923.   { The user must change his password before he logs on the first time. }
  8924.   {$EXTERNALSYM ERROR_PASSWORD_MUST_CHANGE}
  8925.   ERROR_PASSWORD_MUST_CHANGE = 1907;
  8926.  
  8927.   { Could not find the domain controller for this domain. }
  8928.   {$EXTERNALSYM ERROR_DOMAIN_CONTROLLER_NOT_FOUND}
  8929.   ERROR_DOMAIN_CONTROLLER_NOT_FOUND = 1908;
  8930.  
  8931.   { The referenced account is currently locked out and may not be logged on to. }
  8932.   {$EXTERNALSYM ERROR_ACCOUNT_LOCKED_OUT}
  8933.   ERROR_ACCOUNT_LOCKED_OUT = 1909;
  8934.  
  8935.   { The object exporter specified was not found. }
  8936.   {$EXTERNALSYM OR_INVALID_OXID}
  8937.   OR_INVALID_OXID = 1910;
  8938.  
  8939.   { The object specified was not found. }
  8940.   {$EXTERNALSYM OR_INVALID_OID}
  8941.   OR_INVALID_OID = 1911;
  8942.  
  8943.   { The object resolver set specified was not found. }
  8944.   {$EXTERNALSYM OR_INVALID_SET}
  8945.   OR_INVALID_SET = 1912;
  8946.  
  8947.   { Some data remains to be sent in the request buffer. }
  8948.   {$EXTERNALSYM RPC_S_SEND_INCOMPLETE}
  8949.   RPC_S_SEND_INCOMPLETE = 1913;
  8950.  
  8951.   { The list of servers for this workgroup is not currently available }
  8952.   {$EXTERNALSYM ERROR_NO_BROWSER_SERVERS_FOUND}
  8953.   ERROR_NO_BROWSER_SERVERS_FOUND = 6118;
  8954.  
  8955.  
  8956. { OpenGL Error Code }
  8957.  
  8958.   { The pixel format is invalid. }
  8959.   {$EXTERNALSYM ERROR_INVALID_PIXEL_FORMAT}
  8960.   ERROR_INVALID_PIXEL_FORMAT = 2000;
  8961.  
  8962.   { The specified driver is invalid. }
  8963.   {$EXTERNALSYM ERROR_BAD_DRIVER}
  8964.   ERROR_BAD_DRIVER = 2001;
  8965.  
  8966.   { The window style or class attribute is invalid for this operation. }
  8967.   {$EXTERNALSYM ERROR_INVALID_WINDOW_STYLE}
  8968.   ERROR_INVALID_WINDOW_STYLE = 2002;
  8969.  
  8970.   { The requested metafile operation is not supported. }
  8971.   {$EXTERNALSYM ERROR_METAFILE_NOT_SUPPORTED}
  8972.   ERROR_METAFILE_NOT_SUPPORTED = 2003;
  8973.  
  8974.   { The requested transformation operation is not supported. }
  8975.   {$EXTERNALSYM ERROR_TRANSFORM_NOT_SUPPORTED}
  8976.   ERROR_TRANSFORM_NOT_SUPPORTED = 2004;
  8977.  
  8978.   { The requested clipping operation is not supported. }
  8979.   {$EXTERNALSYM ERROR_CLIPPING_NOT_SUPPORTED}
  8980.   ERROR_CLIPPING_NOT_SUPPORTED = 2005;
  8981.  
  8982.  
  8983. { Win32 Spooler Error Codes }
  8984.  
  8985.   { The specified print monitor is unknown. }
  8986.   {$EXTERNALSYM ERROR_UNKNOWN_PRINT_MONITOR}
  8987.   ERROR_UNKNOWN_PRINT_MONITOR = 3000;
  8988.  
  8989.   { The specified printer driver is currently in use. }
  8990.   {$EXTERNALSYM ERROR_PRINTER_DRIVER_IN_USE}
  8991.   ERROR_PRINTER_DRIVER_IN_USE = 3001;
  8992.  
  8993.   { The spool file was not found. }
  8994.   {$EXTERNALSYM ERROR_SPOOL_FILE_NOT_FOUND}
  8995.   ERROR_SPOOL_FILE_NOT_FOUND = 3002;
  8996.  
  8997.   { A StartDocPrinter call was not issued. }
  8998.   {$EXTERNALSYM ERROR_SPL_NO_STARTDOC}
  8999.   ERROR_SPL_NO_STARTDOC = 3003;
  9000.  
  9001.   { An AddJob call was not issued. }
  9002.   {$EXTERNALSYM ERROR_SPL_NO_ADDJOB}
  9003.   ERROR_SPL_NO_ADDJOB = 3004;
  9004.  
  9005.   { The specified print processor has already been installed. }
  9006.   {$EXTERNALSYM ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED}
  9007.   ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005;
  9008.  
  9009.   { The specified print monitor has already been installed. }
  9010.   {$EXTERNALSYM ERROR_PRINT_MONITOR_ALREADY_INSTALLED}
  9011.   ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006;
  9012.  
  9013.   { The specified print monitor does not have the required functions. }
  9014.   {$EXTERNALSYM ERROR_INVALID_PRINT_MONITOR}
  9015.   ERROR_INVALID_PRINT_MONITOR = 3007;
  9016.  
  9017.   { The specified print monitor is currently in use. }
  9018.   {$EXTERNALSYM ERROR_PRINT_MONITOR_IN_USE}
  9019.   ERROR_PRINT_MONITOR_IN_USE = 3008;
  9020.  
  9021.   { The requested operation is not allowed when there are jobs queued to the printer. }
  9022.   {$EXTERNALSYM ERROR_PRINTER_HAS_JOBS_QUEUED}
  9023.   ERROR_PRINTER_HAS_JOBS_QUEUED = 3009;
  9024.  
  9025.   { The requested operation is successful.  Changes will not be effective until the system is rebooted. }
  9026.   {$EXTERNALSYM ERROR_SUCCESS_REBOOT_REQUIRED}
  9027.   ERROR_SUCCESS_REBOOT_REQUIRED = 3010;
  9028.  
  9029.   { The requested operation is successful.  Changes will not be effective until the service is restarted. }
  9030.   {$EXTERNALSYM ERROR_SUCCESS_RESTART_REQUIRED}
  9031.   ERROR_SUCCESS_RESTART_REQUIRED = 3011;
  9032.  
  9033.  
  9034. { Wins Error Codes }
  9035.  
  9036.   { WINS encountered an error while processing the command. }
  9037.   {$EXTERNALSYM ERROR_WINS_INTERNAL}
  9038.   ERROR_WINS_INTERNAL = 4000;
  9039.  
  9040.   { The local WINS can not be deleted. }
  9041.   {$EXTERNALSYM ERROR_CAN_NOT_DEL_LOCAL_WINS}
  9042.   ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001;
  9043.  
  9044.   { The importation from the file failed. }
  9045.   {$EXTERNALSYM ERROR_STATIC_INIT}
  9046.   ERROR_STATIC_INIT = 4002;
  9047.  
  9048.   { The backup Failed.  Was a full backup done before ? }
  9049.   {$EXTERNALSYM ERROR_INC_BACKUP}
  9050.   ERROR_INC_BACKUP = 4003;
  9051.  
  9052.   { The backup Failed.  Check the directory that you are backing the database to. }
  9053.   {$EXTERNALSYM ERROR_FULL_BACKUP}
  9054.   ERROR_FULL_BACKUP = 4004;
  9055.  
  9056.   { The name does not exist in the WINS database. }
  9057.   {$EXTERNALSYM ERROR_REC_NON_EXISTENT}
  9058.   ERROR_REC_NON_EXISTENT = 4005;
  9059.  
  9060.   { Replication with a non-configured partner is not allowed. }
  9061.   {$EXTERNALSYM ERROR_RPL_NOT_ALLOWED}
  9062.   ERROR_RPL_NOT_ALLOWED = 4006;
  9063.  
  9064.  
  9065. {------------------------------}
  9066. {     OLE Error Codes          }
  9067. {------------------------------}
  9068.  
  9069. (*
  9070.   The return value of OLE APIs and methods is an HRESULT.
  9071.   This is not a handle to anything, but is merely a 32-bit value
  9072.   with several fields encoded in the value.  The parts of an
  9073.   HRESULT are shown below.
  9074.  
  9075.   HRESULTs are 32 bit values layed out as follows:
  9076.  
  9077.    3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  9078.    1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  9079.   +-+-+-+-+-+---------------------+-------------------------------+
  9080.   |S|R|C|N|r|    Facility         |               Code            |
  9081.   +-+-+-+-+-+---------------------+-------------------------------+
  9082.  
  9083.   where
  9084.  
  9085.       S - Severity - indicates success/fail
  9086.           0 - Success
  9087.           1 - Fail (COERROR)
  9088.  
  9089.       R - reserved portion of the facility code, corresponds to NT's
  9090.               second severity bit.
  9091.  
  9092.       C - reserved portion of the facility code, corresponds to NT's
  9093.               C field.
  9094.  
  9095.       N - reserved portion of the facility code. Used to indicate a
  9096.               mapped NT status value.
  9097.  
  9098.       r - reserved portion of the facility code. Reserved for internal
  9099.               use. Used to indicate HRESULT values that are not status
  9100.               values, but are instead message ids for display strings.
  9101.  
  9102.       Facility - is the facility code
  9103.  
  9104.       Code - is the facility's status code
  9105. *)
  9106.  
  9107. const
  9108.   { Severity values }
  9109.   {$EXTERNALSYM SEVERITY_SUCCESS}
  9110.   SEVERITY_SUCCESS = 0;
  9111.   {$EXTERNALSYM SEVERITY_ERROR}
  9112.   SEVERITY_ERROR = 1;
  9113.  
  9114. function Succeeded(Status: HRESULT): BOOL;
  9115.  
  9116. { and the inverse }
  9117. function Failed(Status: HRESULT): BOOL;
  9118.  
  9119. { Generic test for error on any status value. }
  9120. function IsError(Status: HRESULT): BOOL;
  9121.  
  9122. { Return the code }
  9123. function HResultCode(hr: HRESULT): Integer;
  9124.  
  9125. { Return the facility }
  9126. function HResultFacility(hr: HRESULT): Integer;
  9127.  
  9128. { Return the severity }
  9129. function HResultSeverity(hr: HRESULT): Integer;
  9130.  
  9131. { Create an HRESULT value from component pieces }
  9132. {$EXTERNALSYM MakeResult}
  9133. function MakeResult(sev, fac, code: Integer): HResult;
  9134.  
  9135. { Map a WIN32 error value into a HRESULT }
  9136. { Note: This assumes that WIN32 errors fall in the range -32k to 32k. }
  9137. const
  9138.   { Define bits here so macros are guaranteed to work }
  9139.   {$EXTERNALSYM FACILITY_NT_BIT}
  9140.   FACILITY_NT_BIT = $10000000;
  9141. function HResultFromWin32(x: Integer): HRESULT;
  9142.  
  9143. { Map an NT status value into a HRESULT }
  9144. function HResultFromNT(x: Integer): HRESULT;
  9145.  
  9146. const
  9147.   { HRESULT value definitions }
  9148.   { Codes $4000-$40ff are reserved for OLE }
  9149.  
  9150.   { Success codes }
  9151.   {$EXTERNALSYM S_OK}
  9152.   S_OK    = $00000000;
  9153.   {$EXTERNALSYM S_FALSE}
  9154.   S_FALSE = $00000001;
  9155.  
  9156.   {$EXTERNALSYM NOERROR}
  9157.   NOERROR = 0;
  9158.  
  9159.   { Catastrophic failure }
  9160.   {$EXTERNALSYM E_UNEXPECTED}
  9161.   E_UNEXPECTED = $8000FFFF;
  9162.  
  9163.   { Not implemented }
  9164.   {$EXTERNALSYM E_NOTIMPL}
  9165.   E_NOTIMPL = $80004001;
  9166.  
  9167.   { Ran out of memory }
  9168.   {$EXTERNALSYM E_OUTOFMEMORY}
  9169.   E_OUTOFMEMORY = $8007000E;
  9170.  
  9171.   { One or more arguments are invalid }
  9172.   {$EXTERNALSYM E_INVALIDARG}
  9173.   E_INVALIDARG = $80070057;
  9174.  
  9175.   { No such interface supported }
  9176.   {$EXTERNALSYM E_NOINTERFACE}
  9177.   E_NOINTERFACE = $80004002;
  9178.  
  9179.   { Invalid pointer }
  9180.   {$EXTERNALSYM E_POINTER}
  9181.   E_POINTER = $80004003;
  9182.  
  9183.   { Invalid handle }
  9184.   {$EXTERNALSYM E_HANDLE}
  9185.   E_HANDLE = $80070006;
  9186.  
  9187.   { Operation aborted }
  9188.   {$EXTERNALSYM E_ABORT}
  9189.   E_ABORT = $80004004;
  9190.  
  9191.   { Unspecified error }
  9192.   {$EXTERNALSYM E_FAIL}
  9193.   E_FAIL = $80004005;
  9194.  
  9195.   { General access denied error }
  9196.   {$EXTERNALSYM E_ACCESSDENIED}
  9197.   E_ACCESSDENIED = $80070005;
  9198.  
  9199.   { The data necessary to complete this operation is not yet available. }
  9200.   {$EXTERNALSYM E_PENDING}
  9201.   E_PENDING = $8000000A;
  9202.  
  9203.   { Thread local storage failure }
  9204.   {$EXTERNALSYM CO_E_INIT_TLS}
  9205.   CO_E_INIT_TLS = $80004006;
  9206.  
  9207.   { Get shared memory allocator failure }
  9208.   {$EXTERNALSYM CO_E_INIT_SHARED_ALLOCATOR}
  9209.   CO_E_INIT_SHARED_ALLOCATOR = $80004007;
  9210.  
  9211.   { Get memory allocator failure }
  9212.   {$EXTERNALSYM CO_E_INIT_MEMORY_ALLOCATOR}
  9213.   CO_E_INIT_MEMORY_ALLOCATOR = $80004008;
  9214.  
  9215.   { Unable to initialize class cache }
  9216.   {$EXTERNALSYM CO_E_INIT_CLASS_CACHE}
  9217.   CO_E_INIT_CLASS_CACHE = $80004009;
  9218.  
  9219.   { Unable to initialize RPC services }
  9220.   {$EXTERNALSYM CO_E_INIT_RPC_CHANNEL}
  9221.   CO_E_INIT_RPC_CHANNEL = $8000400A;
  9222.  
  9223.   { Cannot set thread local storage channel control }
  9224.   {$EXTERNALSYM CO_E_INIT_TLS_SET_CHANNEL_CONTROL}
  9225.   CO_E_INIT_TLS_SET_CHANNEL_CONTROL = $8000400B;
  9226.  
  9227.   { Could not allocate thread local storage channel control }
  9228.   {$EXTERNALSYM CO_E_INIT_TLS_CHANNEL_CONTROL}
  9229.   CO_E_INIT_TLS_CHANNEL_CONTROL = $8000400C;
  9230.  
  9231.   { The user supplied memory allocator is unacceptable }
  9232.   {$EXTERNALSYM CO_E_INIT_UNACCEPTED_USER_ALLOCATOR}
  9233.   CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = $8000400D;
  9234.  
  9235.   { The OLE service mutex already exists }
  9236.   {$EXTERNALSYM CO_E_INIT_SCM_MUTEX_EXISTS}
  9237.   CO_E_INIT_SCM_MUTEX_EXISTS = $8000400E;
  9238.  
  9239.   { The OLE service file mapping already exists }
  9240.   {$EXTERNALSYM CO_E_INIT_SCM_FILE_MAPPING_EXISTS}
  9241.   CO_E_INIT_SCM_FILE_MAPPING_EXISTS = $8000400F;
  9242.  
  9243.   { Unable to map view of file for OLE service }
  9244.   {$EXTERNALSYM CO_E_INIT_SCM_MAP_VIEW_OF_FILE}
  9245.   CO_E_INIT_SCM_MAP_VIEW_OF_FILE = $80004010;
  9246.  
  9247.   { Failure attempting to launch OLE service }
  9248.   {$EXTERNALSYM CO_E_INIT_SCM_EXEC_FAILURE}
  9249.   CO_E_INIT_SCM_EXEC_FAILURE = $80004011;
  9250.  
  9251.   { There was an attempt to call CoInitialize a second time while single threaded }
  9252.   {$EXTERNALSYM CO_E_INIT_ONLY_SINGLE_THREADED}
  9253.   CO_E_INIT_ONLY_SINGLE_THREADED = $80004012;
  9254.  
  9255.   { A Remote activation was necessary but was not allowed }
  9256.   {$EXTERNALSYM CO_E_CANT_REMOTE}
  9257.   CO_E_CANT_REMOTE = $80004013;
  9258.  
  9259.   { A Remote activation was necessary but the server name provided was invalid }
  9260.   {$EXTERNALSYM CO_E_BAD_SERVER_NAME}
  9261.   CO_E_BAD_SERVER_NAME = $80004014;
  9262.  
  9263.   { The class is configured to run as a security id different from the caller }
  9264.   {$EXTERNALSYM CO_E_WRONG_SERVER_IDENTITY}
  9265.   CO_E_WRONG_SERVER_IDENTITY = $80004015;
  9266.  
  9267.   { Use of Ole1 services requiring DDE windows is disabled }
  9268.   {$EXTERNALSYM CO_E_OLE1DDE_DISABLED}
  9269.   CO_E_OLE1DDE_DISABLED = $80004016;
  9270.  
  9271.   { A RunAs specification must be <domain name>\<user name> or simply <user name> }
  9272.   {$EXTERNALSYM CO_E_RUNAS_SYNTAX}
  9273.   CO_E_RUNAS_SYNTAX = $80004017;
  9274.  
  9275.   { The server process could not be started.  The pathname may be incorrect. }
  9276.   {$EXTERNALSYM CO_E_CREATEPROCESS_FAILURE}
  9277.   CO_E_CREATEPROCESS_FAILURE = $80004018;
  9278.  
  9279.   { The server process could not be started as the configured identity.  The pathname may be incorrect or unavailable. }
  9280.   {$EXTERNALSYM CO_E_RUNAS_CREATEPROCESS_FAILURE}
  9281.   CO_E_RUNAS_CREATEPROCESS_FAILURE = $80004019;
  9282.  
  9283.   { The server process could not be started because the configured identity is incorrect.  Check the username and password. }
  9284.   {$EXTERNALSYM CO_E_RUNAS_LOGON_FAILURE}
  9285.   CO_E_RUNAS_LOGON_FAILURE = $8000401A;
  9286.  
  9287.   { The client is not allowed to launch this server. }
  9288.   {$EXTERNALSYM CO_E_LAUNCH_PERMSSION_DENIED}
  9289.   CO_E_LAUNCH_PERMSSION_DENIED = $8000401B;
  9290.  
  9291.   { The service providing this server could not be started. }
  9292.   {$EXTERNALSYM CO_E_START_SERVICE_FAILURE}
  9293.   CO_E_START_SERVICE_FAILURE = $8000401C;
  9294.  
  9295.   { This computer was unable to communicate with the computer providing the server. }
  9296.   {$EXTERNALSYM CO_E_REMOTE_COMMUNICATION_FAILURE}
  9297.   CO_E_REMOTE_COMMUNICATION_FAILURE = $8000401D;
  9298.  
  9299.   { The server did not respond after being launched. }
  9300.   {$EXTERNALSYM CO_E_SERVER_START_TIMEOUT}
  9301.   CO_E_SERVER_START_TIMEOUT = $8000401E;
  9302.  
  9303.   { The registration information for this server is inconsistent or incomplete. }
  9304.   {$EXTERNALSYM CO_E_CLSREG_INCONSISTENT}
  9305.   CO_E_CLSREG_INCONSISTENT = $8000401F;
  9306.  
  9307.   { The registration information for this interface is inconsistent or incomplete. }
  9308.   {$EXTERNALSYM CO_E_IIDREG_INCONSISTENT}
  9309.   CO_E_IIDREG_INCONSISTENT = $80004020;
  9310.  
  9311.   { The operation attempted is not supported. }
  9312.   {$EXTERNALSYM CO_E_NOT_SUPPORTED}
  9313.   CO_E_NOT_SUPPORTED = $80004021;
  9314.  
  9315.  
  9316.   { FACILITY_ITF }
  9317.   { Codes $0-$01ff are reserved for the OLE group of }
  9318.  
  9319.   { Generic OLE errors that may be returned by many inerfaces}
  9320.   {$EXTERNALSYM OLE_E_FIRST}
  9321.   OLE_E_FIRST = $80040000;
  9322.   {$EXTERNALSYM OLE_E_LAST}
  9323.   OLE_E_LAST  = $800400FF;
  9324.   {$EXTERNALSYM OLE_S_FIRST}
  9325.   OLE_S_FIRST = $40000;
  9326.   {$EXTERNALSYM OLE_S_LAST}
  9327.   OLE_S_LAST  = $400FF;
  9328.  
  9329.   { Invalid OLEVERB structure }
  9330.   {$EXTERNALSYM OLE_E_OLEVERB}
  9331.   OLE_E_OLEVERB = $80040000;
  9332.  
  9333.   { Invalid advise flags }
  9334.   {$EXTERNALSYM OLE_E_ADVF}
  9335.   OLE_E_ADVF = $80040001;
  9336.  
  9337.   { Can't enumerate any more, because the associated data is missing }
  9338.   {$EXTERNALSYM OLE_E_ENUM_NOMORE}
  9339.   OLE_E_ENUM_NOMORE = $80040002;
  9340.  
  9341.   { This implementation doesn't take advises }
  9342.   {$EXTERNALSYM OLE_E_ADVISENOTSUPPORTED}
  9343.   OLE_E_ADVISENOTSUPPORTED = $80040003;
  9344.  
  9345.   { There is no connection for this connection ID }
  9346.   {$EXTERNALSYM OLE_E_NOCONNECTION}
  9347.   OLE_E_NOCONNECTION = $80040004;
  9348.  
  9349.   { Need to run the object to perform this operation }
  9350.   {$EXTERNALSYM OLE_E_NOTRUNNING}
  9351.   OLE_E_NOTRUNNING = $80040005;
  9352.  
  9353.   { There is no cache to operate on }
  9354.   {$EXTERNALSYM OLE_E_NOCACHE}
  9355.   OLE_E_NOCACHE = $80040006;
  9356.  
  9357.   { Uninitialized object }
  9358.   {$EXTERNALSYM OLE_E_BLANK}
  9359.   OLE_E_BLANK = $80040007;
  9360.  
  9361.   { Linked object's source class has changed }
  9362.   {$EXTERNALSYM OLE_E_CLASSDIFF}
  9363.   OLE_E_CLASSDIFF = $80040008;
  9364.  
  9365.   { Not able to get the moniker of the object }
  9366.   {$EXTERNALSYM OLE_E_CANT_GETMONIKER}
  9367.   OLE_E_CANT_GETMONIKER = $80040009;
  9368.  
  9369.   { Not able to bind to the source }
  9370.   {$EXTERNALSYM OLE_E_CANT_BINDTOSOURCE}
  9371.   OLE_E_CANT_BINDTOSOURCE = $8004000A;
  9372.  
  9373.   { Object is static; operation not allowed }
  9374.   {$EXTERNALSYM OLE_E_STATIC}
  9375.   OLE_E_STATIC = $8004000B;
  9376.  
  9377.   { User cancelled out of save dialog }
  9378.   {$EXTERNALSYM OLE_E_PROMPTSAVECANCELLED}
  9379.   OLE_E_PROMPTSAVECANCELLED = $8004000C;
  9380.  
  9381.   { Invalid rectangle }
  9382.   {$EXTERNALSYM OLE_E_INVALIDRECT}
  9383.   OLE_E_INVALIDRECT = $8004000D;
  9384.  
  9385.   { compobj.dll is too old for the ole2.dll initialized }
  9386.   {$EXTERNALSYM OLE_E_WRONGCOMPOBJ}
  9387.   OLE_E_WRONGCOMPOBJ = $8004000E;
  9388.  
  9389.   { Invalid window handle }
  9390.   {$EXTERNALSYM OLE_E_INVALIDHWND}
  9391.   OLE_E_INVALIDHWND = $8004000F;
  9392.  
  9393.   { Object is not in any of the inplace active states }
  9394.   {$EXTERNALSYM OLE_E_NOT_INPLACEACTIVE}
  9395.   OLE_E_NOT_INPLACEACTIVE = $80040010;
  9396.  
  9397.   { Not able to convert object }
  9398.   {$EXTERNALSYM OLE_E_CANTCONVERT}
  9399.   OLE_E_CANTCONVERT = $80040011;
  9400.  
  9401.   {$EXTERNALSYM OLE_E_NOSTORAGE}
  9402.   OLE_E_NOSTORAGE = $80040012;
  9403.  
  9404.   { Invalid FORMATETC structure }
  9405.   {$EXTERNALSYM DV_E_FORMATETC}
  9406.   DV_E_FORMATETC = $80040064;
  9407.  
  9408.   { Invalid DVTARGETDEVICE structure }
  9409.   {$EXTERNALSYM DV_E_DVTARGETDEVICE}
  9410.   DV_E_DVTARGETDEVICE = $80040065;
  9411.  
  9412.   { Invalid STDGMEDIUM structure }
  9413.   {$EXTERNALSYM DV_E_STGMEDIUM}
  9414.   DV_E_STGMEDIUM = $80040066;
  9415.  
  9416.   { Invalid STATDATA structure }
  9417.   {$EXTERNALSYM DV_E_STATDATA}
  9418.   DV_E_STATDATA = $80040067;
  9419.  
  9420.   { Invalid lindex }
  9421.   {$EXTERNALSYM DV_E_LINDEX}
  9422.   DV_E_LINDEX = $80040068;
  9423.  
  9424.   { Invalid tymed }
  9425.   {$EXTERNALSYM DV_E_TYMED}
  9426.   DV_E_TYMED = $80040069;
  9427.  
  9428.   { Invalid clipboard format }
  9429.   {$EXTERNALSYM DV_E_CLIPFORMAT}
  9430.   DV_E_CLIPFORMAT = $8004006A;
  9431.  
  9432.   { Invalid aspect(s) }
  9433.   {$EXTERNALSYM DV_E_DVASPECT}
  9434.   DV_E_DVASPECT = $8004006B;
  9435.  
  9436.   { tdSize parameter of the DVTARGETDEVICE structure is invalid }
  9437.   {$EXTERNALSYM DV_E_DVTARGETDEVICE_SIZE}
  9438.   DV_E_DVTARGETDEVICE_SIZE = $8004006C;
  9439.  
  9440.   { Object doesn't support IViewObject interface }
  9441.   {$EXTERNALSYM DV_E_NOIVIEWOBJECT}
  9442.   DV_E_NOIVIEWOBJECT = $8004006D;
  9443.  
  9444.   {$EXTERNALSYM DRAGDROP_E_FIRST}
  9445.   DRAGDROP_E_FIRST = $80040100;
  9446.   {$EXTERNALSYM DRAGDROP_E_LAST}
  9447.   DRAGDROP_E_LAST  = $8004010F;
  9448.   {$EXTERNALSYM DRAGDROP_S_FIRST}
  9449.   DRAGDROP_S_FIRST = $40100;
  9450.  
  9451.   { Trying to revoke a drop target that has not been registered }
  9452.   {$EXTERNALSYM DRAGDROP_E_NOTREGISTERED}
  9453.   DRAGDROP_E_NOTREGISTERED = $80040100;
  9454.  
  9455.   { This window has already been registered as a drop target }
  9456.   {$EXTERNALSYM DRAGDROP_E_ALREADYREGISTERED}
  9457.   DRAGDROP_E_ALREADYREGISTERED = $80040101;
  9458.  
  9459.   { Invalid window handle }
  9460.   {$EXTERNALSYM DRAGDROP_E_INVALIDHWND}
  9461.   DRAGDROP_E_INVALIDHWND = $80040102;
  9462.  
  9463.   {$EXTERNALSYM CLASSFACTORY_E_FIRST}
  9464.   CLASSFACTORY_E_FIRST = $80040110;
  9465.   {$EXTERNALSYM CLASSFACTORY_E_LAST}
  9466.   CLASSFACTORY_E_LAST  = $8004011F;
  9467.   {$EXTERNALSYM CLASSFACTORY_S_FIRST}
  9468.   CLASSFACTORY_S_FIRST = $40110;
  9469.  
  9470.   { Class does not support aggregation (or class object is remote) }
  9471.   {$EXTERNALSYM CLASS_E_NOAGGREGATION}
  9472.   CLASS_E_NOAGGREGATION = $80040110;
  9473.  
  9474.   { ClassFactory cannot supply requested class }
  9475.   {$EXTERNALSYM CLASS_E_CLASSNOTAVAILABLE}
  9476.   CLASS_E_CLASSNOTAVAILABLE = $80040111;
  9477.  
  9478.   {$EXTERNALSYM MARSHAL_E_FIRST}
  9479.   MARSHAL_E_FIRST = $80040120;
  9480.   {$EXTERNALSYM MARSHAL_E_LAST}
  9481.   MARSHAL_E_LAST  = $8004012F;
  9482.   {$EXTERNALSYM MARSHAL_S_FIRST}
  9483.   MARSHAL_S_FIRST = $40120;
  9484.   {$EXTERNALSYM MARSHAL_S_LAST}
  9485.   MARSHAL_S_LAST  = $4012F;
  9486.   {$EXTERNALSYM DATA_E_FIRST}
  9487.   DATA_E_FIRST    = $80040130;
  9488.   {$EXTERNALSYM DATA_E_LAST}
  9489.   DATA_E_LAST     = $8004013F;
  9490.   {$EXTERNALSYM DATA_S_FIRST}
  9491.   DATA_S_FIRST    = $40130;
  9492.   {$EXTERNALSYM DATA_S_LAST}
  9493.   DATA_S_LAST     = $4013F;
  9494.   {$EXTERNALSYM VIEW_E_FIRST}
  9495.   VIEW_E_FIRST    = $80040140;
  9496.   {$EXTERNALSYM VIEW_E_LAST}
  9497.   VIEW_E_LAST     = $8004014F;
  9498.   {$EXTERNALSYM VIEW_S_FIRST}
  9499.   VIEW_S_FIRST    = $40140;
  9500.  
  9501.   { Error drawing view }
  9502.   {$EXTERNALSYM VIEW_E_DRAW}
  9503.   VIEW_E_DRAW = $80040140;
  9504.  
  9505.   {$EXTERNALSYM REGDB_E_FIRST}
  9506.   REGDB_E_FIRST = $80040150;
  9507.   {$EXTERNALSYM REGDB_E_LAST}
  9508.   REGDB_E_LAST  = $8004015F;
  9509.   {$EXTERNALSYM REGDB_S_FIRST}
  9510.   REGDB_S_FIRST = $40150;
  9511.  
  9512.   { Could not read key from registry }
  9513.   {$EXTERNALSYM REGDB_E_READREGDB}
  9514.   REGDB_E_READREGDB = $80040150;
  9515.  
  9516.   { Could not write key to registry }
  9517.   {$EXTERNALSYM REGDB_E_WRITEREGDB}
  9518.   REGDB_E_WRITEREGDB = $80040151;
  9519.  
  9520.   { Could not find the key in the registry }
  9521.   {$EXTERNALSYM REGDB_E_KEYMISSING}
  9522.   REGDB_E_KEYMISSING = $80040152;
  9523.  
  9524.   { Invalid value for registry }
  9525.   {$EXTERNALSYM REGDB_E_INVALIDVALUE}
  9526.   REGDB_E_INVALIDVALUE = $80040153;
  9527.  
  9528.   { Class not registered }
  9529.   {$EXTERNALSYM REGDB_E_CLASSNOTREG}
  9530.   REGDB_E_CLASSNOTREG = $80040154;
  9531.  
  9532.   { Interface not registered }
  9533.   {$EXTERNALSYM REGDB_E_IIDNOTREG}
  9534.   REGDB_E_IIDNOTREG = $80040155;
  9535.  
  9536.   {$EXTERNALSYM CACHE_E_FIRST}
  9537.   CACHE_E_FIRST = $80040170;
  9538.   {$EXTERNALSYM CACHE_E_LAST}
  9539.   CACHE_E_LAST  = $8004017F;
  9540.   {$EXTERNALSYM CACHE_S_FIRST}
  9541.   CACHE_S_FIRST = $40170;
  9542.  
  9543.   { Cache not updated }
  9544.   {$EXTERNALSYM CACHE_E_NOCACHE_UPDATED}
  9545.   CACHE_E_NOCACHE_UPDATED = $80040170;
  9546.  
  9547.   {$EXTERNALSYM OLEOBJ_E_FIRST}
  9548.   OLEOBJ_E_FIRST = $80040180;
  9549.   {$EXTERNALSYM OLEOBJ_E_LAST}
  9550.   OLEOBJ_E_LAST  = $8004018F;
  9551.   {$EXTERNALSYM OLEOBJ_S_FIRST}
  9552.   OLEOBJ_S_FIRST = $40180;
  9553.  
  9554.   { No verbs for OLE object }
  9555.   {$EXTERNALSYM OLEOBJ_E_NOVERBS}
  9556.   OLEOBJ_E_NOVERBS = $80040180;
  9557.  
  9558.   { Invalid verb for OLE object }
  9559.   {$EXTERNALSYM OLEOBJ_E_INVALIDVERB}
  9560.   OLEOBJ_E_INVALIDVERB = $80040181;
  9561.  
  9562.   {$EXTERNALSYM CLIENTSITE_E_FIRST}
  9563.   CLIENTSITE_E_FIRST = $80040190;
  9564.   {$EXTERNALSYM CLIENTSITE_E_LAST}
  9565.   CLIENTSITE_E_LAST = $8004019F;
  9566.   {$EXTERNALSYM CLIENTSITE_S_FIRST}
  9567.   CLIENTSITE_S_FIRST = $40190;
  9568.  
  9569.   { Undo is not available }
  9570.   {$EXTERNALSYM INPLACE_E_NOTUNDOABLE}
  9571.   INPLACE_E_NOTUNDOABLE = $800401A0;
  9572.  
  9573.   { Space for tools is not available }
  9574.   {$EXTERNALSYM INPLACE_E_NOTOOLSPACE}
  9575.   INPLACE_E_NOTOOLSPACE = $800401A1;
  9576.  
  9577.   {$EXTERNALSYM INPLACE_E_FIRST}
  9578.   INPLACE_E_FIRST = $800401A0;
  9579.   {$EXTERNALSYM INPLACE_E_LAST}
  9580.   INPLACE_E_LAST  = $800401AF;
  9581.   {$EXTERNALSYM INPLACE_S_FIRST}
  9582.   INPLACE_S_FIRST = $401A0;
  9583.   {$EXTERNALSYM INPLACE_S_LAST}
  9584.   INPLACE_S_LAST  = $401AF;
  9585.   {$EXTERNALSYM ENUM_E_FIRST}
  9586.   ENUM_E_FIRST = $800401B0;
  9587.   {$EXTERNALSYM ENUM_E_LAST}
  9588.   ENUM_E_LAST  = $800401BF;
  9589.   {$EXTERNALSYM ENUM_S_FIRST}
  9590.   ENUM_S_FIRST = $401B0;
  9591.   {$EXTERNALSYM ENUM_S_LAST}
  9592.   ENUM_S_LAST  = $401BF;
  9593.   {$EXTERNALSYM CONVERT10_E_FIRST}
  9594.   CONVERT10_E_FIRST = $800401C0;
  9595.   {$EXTERNALSYM CONVERT10_E_LAST}
  9596.   CONVERT10_E_LAST  = $800401CF;
  9597.   {$EXTERNALSYM CONVERT10_S_FIRST}
  9598.   CONVERT10_S_FIRST = $401C0;
  9599.  
  9600.   { OLESTREAM Get method failed }
  9601.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_GET}
  9602.   CONVERT10_E_OLESTREAM_GET = $800401C0;
  9603.  
  9604.   { OLESTREAM Put method failed }
  9605.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_PUT}
  9606.   CONVERT10_E_OLESTREAM_PUT = $800401C1;
  9607.  
  9608.   { Contents of the OLESTREAM not in correct format }
  9609.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_FMT}
  9610.   CONVERT10_E_OLESTREAM_FMT = $800401C2;
  9611.  
  9612.   { There was an error in a Windows GDI call while converting the bitmap to a DIB }
  9613.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_BITMAP_TO_DIB}
  9614.   CONVERT10_E_OLESTREAM_BITMAP_TO_DIB = $800401C3;
  9615.  
  9616.   { Contents of the IStorage not in correct format }
  9617.   {$EXTERNALSYM CONVERT10_E_STG_FMT}
  9618.   CONVERT10_E_STG_FMT = $800401C4;
  9619.  
  9620.   { Contents of IStorage is missing one of the standard streams }
  9621.   {$EXTERNALSYM CONVERT10_E_STG_NO_STD_STREAM}
  9622.   CONVERT10_E_STG_NO_STD_STREAM = $800401C5;
  9623.  
  9624.   {$EXTERNALSYM CONVERT10_E_STG_DIB_TO_BITMAP}
  9625.   CONVERT10_E_STG_DIB_TO_BITMAP = $800401C6;
  9626.  
  9627.   {$EXTERNALSYM CLIPBRD_E_FIRST}
  9628.   CLIPBRD_E_FIRST = $800401D0;
  9629.   {$EXTERNALSYM CLIPBRD_E_LAST}
  9630.   CLIPBRD_E_LAST  = $800401DF;
  9631.   {$EXTERNALSYM CLIPBRD_S_FIRST}
  9632.   CLIPBRD_S_FIRST = $401D0;
  9633.  
  9634.   { OpenClipboard Failed }
  9635.   {$EXTERNALSYM CLIPBRD_E_CANT_OPEN}
  9636.   CLIPBRD_E_CANT_OPEN = $800401D0;
  9637.  
  9638.   { EmptyClipboard Failed }
  9639.   {$EXTERNALSYM CLIPBRD_E_CANT_EMPTY}
  9640.   CLIPBRD_E_CANT_EMPTY = $800401D1;
  9641.  
  9642.   { SetClipboard Failed }
  9643.   {$EXTERNALSYM CLIPBRD_E_CANT_SET}
  9644.   CLIPBRD_E_CANT_SET = $800401D2;
  9645.  
  9646.   { Data on clipboard is invalid }
  9647.   {$EXTERNALSYM CLIPBRD_E_BAD_DATA}
  9648.   CLIPBRD_E_BAD_DATA = $800401D3;
  9649.  
  9650.   { CloseClipboard Failed }
  9651.   {$EXTERNALSYM CLIPBRD_E_CANT_CLOSE}
  9652.   CLIPBRD_E_CANT_CLOSE = $800401D4;
  9653.  
  9654.   {$EXTERNALSYM MK_E_FIRST}
  9655.   MK_E_FIRST = $800401E0;
  9656.   {$EXTERNALSYM MK_E_LAST}
  9657.   MK_E_LAST  = $800401EF;
  9658.   {$EXTERNALSYM MK_S_FIRST}
  9659.   MK_S_FIRST = $401E0;
  9660.  
  9661.   { Moniker needs to be connected manually }
  9662.   {$EXTERNALSYM MK_E_CONNECTMANUALLY}
  9663.   MK_E_CONNECTMANUALLY = $800401E0;
  9664.  
  9665.   { Operation exceeded deadline }
  9666.   {$EXTERNALSYM MK_E_EXCEEDEDDEADLINE}
  9667.   MK_E_EXCEEDEDDEADLINE = $800401E1;
  9668.  
  9669.   { Moniker needs to be generic }
  9670.   {$EXTERNALSYM MK_E_NEEDGENERIC}
  9671.   MK_E_NEEDGENERIC = $800401E2;
  9672.  
  9673.   { Operation unavailable }
  9674.   {$EXTERNALSYM MK_E_UNAVAILABLE}
  9675.   MK_E_UNAVAILABLE = $800401E3;
  9676.  
  9677.   { Invalid syntax }
  9678.   {$EXTERNALSYM MK_E_SYNTAX}
  9679.   MK_E_SYNTAX = $800401E4;
  9680.  
  9681.   { No object for moniker }
  9682.   {$EXTERNALSYM MK_E_NOOBJECT}
  9683.   MK_E_NOOBJECT = $800401E5;
  9684.  
  9685.   { Bad extension for file }
  9686.   {$EXTERNALSYM MK_E_INVALIDEXTENSION}
  9687.   MK_E_INVALIDEXTENSION = $800401E6;
  9688.  
  9689.   { Intermediate operation failed }
  9690.   {$EXTERNALSYM MK_E_INTERMEDIATEINTERFACENOTSUPPORTED}
  9691.   MK_E_INTERMEDIATEINTERFACENOTSUPPORTED = $800401E7;
  9692.  
  9693.   { Moniker is not bindable }
  9694.   {$EXTERNALSYM MK_E_NOTBINDABLE}
  9695.   MK_E_NOTBINDABLE = $800401E8;
  9696.  
  9697.   { Moniker is not bound }
  9698.   {$EXTERNALSYM MK_E_NOTBOUND}
  9699.   MK_E_NOTBOUND = $800401E9;
  9700.  
  9701.   { Moniker cannot open file }
  9702.   {$EXTERNALSYM MK_E_CANTOPENFILE}
  9703.   MK_E_CANTOPENFILE = $800401EA;
  9704.  
  9705.   { User input required for operation to succeed }
  9706.   {$EXTERNALSYM MK_E_MUSTBOTHERUSER}
  9707.   MK_E_MUSTBOTHERUSER = $800401EB;
  9708.  
  9709.   { Moniker class has no inverse }
  9710.   {$EXTERNALSYM MK_E_NOINVERSE}
  9711.   MK_E_NOINVERSE = $800401EC;
  9712.  
  9713.   { Moniker does not refer to storage }
  9714.   {$EXTERNALSYM MK_E_NOSTORAGE}
  9715.   MK_E_NOSTORAGE = $800401ED;
  9716.  
  9717.   { No common prefix }
  9718.   {$EXTERNALSYM MK_E_NOPREFIX}
  9719.   MK_E_NOPREFIX = $800401EE;
  9720.  
  9721.   { Moniker could not be enumerated }
  9722.   {$EXTERNALSYM MK_E_ENUMERATION_FAILED}
  9723.   MK_E_ENUMERATION_FAILED = $800401EF;
  9724.  
  9725.   {$EXTERNALSYM CO_E_FIRST}
  9726.   CO_E_FIRST = $800401F0;
  9727.   {$EXTERNALSYM CO_E_LAST}
  9728.   CO_E_LAST  = $800401FF;
  9729.   {$EXTERNALSYM CO_S_FIRST}
  9730.   CO_S_FIRST = $401F0;
  9731.  
  9732.   { CoInitialize has not been called. }
  9733.   {$EXTERNALSYM CO_E_NOTINITIALIZED}
  9734.   CO_E_NOTINITIALIZED = $800401F0;
  9735.  
  9736.   { CoInitialize has already been called. }
  9737.   {$EXTERNALSYM CO_E_ALREADYINITIALIZED}
  9738.   CO_E_ALREADYINITIALIZED = $800401F1;
  9739.  
  9740.   { Class of object cannot be determined }
  9741.   {$EXTERNALSYM CO_E_CANTDETERMINECLASS}
  9742.   CO_E_CANTDETERMINECLASS = $800401F2;
  9743.  
  9744.   { Invalid class string }
  9745.   {$EXTERNALSYM CO_E_CLASSSTRING}
  9746.   CO_E_CLASSSTRING = $800401F3;
  9747.  
  9748.   { Invalid interface string }
  9749.   {$EXTERNALSYM CO_E_IIDSTRING}
  9750.   CO_E_IIDSTRING = $800401F4;
  9751.  
  9752.   { Application not found }
  9753.   {$EXTERNALSYM CO_E_APPNOTFOUND}
  9754.   CO_E_APPNOTFOUND = $800401F5;
  9755.  
  9756.   { Application cannot be run more than once }
  9757.   {$EXTERNALSYM CO_E_APPSINGLEUSE}
  9758.   CO_E_APPSINGLEUSE = $800401F6;
  9759.  
  9760.   { Some error in application program }
  9761.   {$EXTERNALSYM CO_E_ERRORINAPP}
  9762.   CO_E_ERRORINAPP = $800401F7;
  9763.  
  9764.   { DLL for class not found }
  9765.   {$EXTERNALSYM CO_E_DLLNOTFOUND}
  9766.   CO_E_DLLNOTFOUND = $800401F8;
  9767.  
  9768.   { Error in the DLL }
  9769.   {$EXTERNALSYM CO_E_ERRORINDLL}
  9770.   CO_E_ERRORINDLL = $800401F9;
  9771.  
  9772.   { Wrong OS or OS version for application }
  9773.   {$EXTERNALSYM CO_E_WRONGOSFORAPP}
  9774.   CO_E_WRONGOSFORAPP = $800401FA;
  9775.  
  9776.   { Object is not registered }
  9777.   {$EXTERNALSYM CO_E_OBJNOTREG}
  9778.   CO_E_OBJNOTREG = $800401FB;
  9779.  
  9780.   { Object is already registered }
  9781.   {$EXTERNALSYM CO_E_OBJISREG}
  9782.   CO_E_OBJISREG = $800401FC;
  9783.  
  9784.   { Object is not connected to server }
  9785.   {$EXTERNALSYM CO_E_OBJNOTCONNECTED}
  9786.   CO_E_OBJNOTCONNECTED = $800401FD;
  9787.  
  9788.   { Application was launched but it didn't register a class factory }
  9789.   {$EXTERNALSYM CO_E_APPDIDNTREG}
  9790.   CO_E_APPDIDNTREG = $800401FE;
  9791.  
  9792.   { Object has been released }
  9793.   {$EXTERNALSYM CO_E_RELEASED}
  9794.   CO_E_RELEASED = $800401FF;
  9795.  
  9796.   { Use the registry database to provide the requested information }
  9797.   {$EXTERNALSYM OLE_S_USEREG}
  9798.   OLE_S_USEREG = $40000;
  9799.  
  9800.   { Success, but static }
  9801.   {$EXTERNALSYM OLE_S_STATIC}
  9802.   OLE_S_STATIC = $40001;
  9803.  
  9804.   { Macintosh clipboard format }
  9805.   {$EXTERNALSYM OLE_S_MAC_CLIPFORMAT}
  9806.   OLE_S_MAC_CLIPFORMAT = $40002;
  9807.  
  9808.   { Successful drop took place }
  9809.   {$EXTERNALSYM DRAGDROP_S_DROP}
  9810.   DRAGDROP_S_DROP = $40100;
  9811.  
  9812.   { Drag-drop operation canceled }
  9813.   {$EXTERNALSYM DRAGDROP_S_CANCEL}
  9814.   DRAGDROP_S_CANCEL = $40101;
  9815.  
  9816.   { Use the default cursor }
  9817.   {$EXTERNALSYM DRAGDROP_S_USEDEFAULTCURSORS}
  9818.   DRAGDROP_S_USEDEFAULTCURSORS = $40102;
  9819.  
  9820.   { Data has same FORMATETC }
  9821.   {$EXTERNALSYM DATA_S_SAMEFORMATETC}
  9822.   DATA_S_SAMEFORMATETC = $40130;
  9823.  
  9824.   { View is already frozen }
  9825.   {$EXTERNALSYM VIEW_S_ALREADY_FROZEN}
  9826.   VIEW_S_ALREADY_FROZEN = $40140;
  9827.  
  9828.   { FORMATETC not supported }
  9829.   {$EXTERNALSYM CACHE_S_FORMATETC_NOTSUPPORTED}
  9830.   CACHE_S_FORMATETC_NOTSUPPORTED = $40170;
  9831.  
  9832.   { Same cache }
  9833.   {$EXTERNALSYM CACHE_S_SAMECACHE}
  9834.   CACHE_S_SAMECACHE = $40171;
  9835.  
  9836.   { Some cache(s) not updated }
  9837.   {$EXTERNALSYM CACHE_S_SOMECACHES_NOTUPDATED}
  9838.   CACHE_S_SOMECACHES_NOTUPDATED = $40172;
  9839.  
  9840.   { Invalid verb for OLE object }
  9841.   {$EXTERNALSYM OLEOBJ_S_INVALIDVERB}
  9842.   OLEOBJ_S_INVALIDVERB = $40180;
  9843.  
  9844.   { Verb number is valid but verb cannot be done now }
  9845.   {$EXTERNALSYM OLEOBJ_S_CANNOT_DOVERB_NOW}
  9846.   OLEOBJ_S_CANNOT_DOVERB_NOW = $40181;
  9847.  
  9848.   { Invalid window handle passed }
  9849.   {$EXTERNALSYM OLEOBJ_S_INVALIDHWND}
  9850.   OLEOBJ_S_INVALIDHWND = $40182;
  9851.  
  9852.   { Message is too long; some of it had to be truncated before displaying }
  9853.   {$EXTERNALSYM INPLACE_S_TRUNCATED}
  9854.   INPLACE_S_TRUNCATED = $401A0;
  9855.  
  9856.   { Unable to convert OLESTREAM to IStorage }
  9857.   {$EXTERNALSYM CONVERT10_S_NO_PRESENTATION}
  9858.   CONVERT10_S_NO_PRESENTATION = $401C0;
  9859.  
  9860.   { Moniker reduced to itself }
  9861.   {$EXTERNALSYM MK_S_REDUCED_TO_SELF}
  9862.   MK_S_REDUCED_TO_SELF = $401E2;
  9863.  
  9864.   { Common prefix is this moniker }
  9865.   {$EXTERNALSYM MK_S_ME}
  9866.   MK_S_ME = $401E4;
  9867.  
  9868.   { Common prefix is input moniker }
  9869.   {$EXTERNALSYM MK_S_HIM}
  9870.   MK_S_HIM = $401E5;
  9871.  
  9872.   { Common prefix is both monikers }
  9873.   {$EXTERNALSYM MK_S_US}
  9874.   MK_S_US = $401E6;
  9875.  
  9876.   { Moniker is already registered in running object table }
  9877.   {$EXTERNALSYM MK_S_MONIKERALREADYREGISTERED}
  9878.   MK_S_MONIKERALREADYREGISTERED = $401E7;
  9879.  
  9880.  
  9881.   { FACILITY_WINDOWS }
  9882.   { Codes $0-$01ff are reserved for the OLE group of}
  9883.  
  9884.   { Attempt to create a class object failed }
  9885.   {$EXTERNALSYM CO_E_CLASS_CREATE_FAILED}
  9886.   CO_E_CLASS_CREATE_FAILED = $80080001;
  9887.  
  9888.   { OLE service could not bind object }
  9889.   {$EXTERNALSYM CO_E_SCM_ERROR}
  9890.   CO_E_SCM_ERROR = $80080002;
  9891.  
  9892.   { RPC communication failed with OLE service }
  9893.   {$EXTERNALSYM CO_E_SCM_RPC_FAILURE}
  9894.   CO_E_SCM_RPC_FAILURE = $80080003;
  9895.  
  9896.   { Bad path to object }
  9897.   {$EXTERNALSYM CO_E_BAD_PATH}
  9898.   CO_E_BAD_PATH = $80080004;
  9899.  
  9900.   { Server execution failed }
  9901.   {$EXTERNALSYM CO_E_SERVER_EXEC_FAILURE}
  9902.   CO_E_SERVER_EXEC_FAILURE = $80080005;
  9903.  
  9904.   { OLE service could not communicate with the object server }
  9905.   {$EXTERNALSYM CO_E_OBJSRV_RPC_FAILURE}
  9906.   CO_E_OBJSRV_RPC_FAILURE = $80080006;
  9907.  
  9908.   { Moniker path could not be normalized }
  9909.   {$EXTERNALSYM MK_E_NO_NORMALIZED}
  9910.   MK_E_NO_NORMALIZED = $80080007;
  9911.  
  9912.   { Object server is stopping when OLE service contacts it }
  9913.   {$EXTERNALSYM CO_E_SERVER_STOPPING}
  9914.   CO_E_SERVER_STOPPING = $80080008;
  9915.  
  9916.   { An invalid root block pointer was specified }
  9917.   {$EXTERNALSYM MEM_E_INVALID_ROOT}
  9918.   MEM_E_INVALID_ROOT = $80080009;
  9919.  
  9920.   { An allocation chain contained an invalid link pointer }
  9921.   {$EXTERNALSYM MEM_E_INVALID_LINK}
  9922.   MEM_E_INVALID_LINK = $80080010;
  9923.  
  9924.   { The requested allocation size was too large }
  9925.   {$EXTERNALSYM MEM_E_INVALID_SIZE}
  9926.   MEM_E_INVALID_SIZE = $80080011;
  9927.  
  9928.   { Not all the requested interfaces were available }
  9929.   {$EXTERNALSYM CO_S_NOTALLINTERFACES}
  9930.   CO_S_NOTALLINTERFACES = $00080012;
  9931.  
  9932.  
  9933.   { FACILITY_DISPATCH }
  9934.  
  9935.   { Unknown interface. }
  9936.   {$EXTERNALSYM DISP_E_UNKNOWNINTERFACE}
  9937.   DISP_E_UNKNOWNINTERFACE = $80020001;
  9938.  
  9939.   { Member not found. }
  9940.   {$EXTERNALSYM DISP_E_MEMBERNOTFOUND}
  9941.   DISP_E_MEMBERNOTFOUND = $80020003;
  9942.  
  9943.   { Parameter not found. }
  9944.   {$EXTERNALSYM DISP_E_PARAMNOTFOUND}
  9945.   DISP_E_PARAMNOTFOUND = $80020004;
  9946.  
  9947.   { Type mismatch. }
  9948.   {$EXTERNALSYM DISP_E_TYPEMISMATCH}
  9949.   DISP_E_TYPEMISMATCH = $80020005;
  9950.  
  9951.   { Unknown name. }
  9952.   {$EXTERNALSYM DISP_E_UNKNOWNNAME}
  9953.   DISP_E_UNKNOWNNAME = $80020006;
  9954.  
  9955.   { No named arguments. }
  9956.   {$EXTERNALSYM DISP_E_NONAMEDARGS}
  9957.   DISP_E_NONAMEDARGS = $80020007;
  9958.  
  9959.   { Bad variable type. }
  9960.   {$EXTERNALSYM DISP_E_BADVARTYPE}
  9961.   DISP_E_BADVARTYPE = $80020008;
  9962.  
  9963.   { Exception occurred. }
  9964.   {$EXTERNALSYM DISP_E_EXCEPTION}
  9965.   DISP_E_EXCEPTION = $80020009;
  9966.  
  9967.   { Out of present range. }
  9968.   {$EXTERNALSYM DISP_E_OVERFLOW}
  9969.   DISP_E_OVERFLOW = $8002000A;
  9970.  
  9971.   { Invalid index. }
  9972.   {$EXTERNALSYM DISP_E_BADINDEX}
  9973.   DISP_E_BADINDEX = $8002000B;
  9974.  
  9975.   { Unknown language. }
  9976.   {$EXTERNALSYM DISP_E_UNKNOWNLCID}
  9977.   DISP_E_UNKNOWNLCID = $8002000C;
  9978.  
  9979.   { Memory is locked. }
  9980.   {$EXTERNALSYM DISP_E_ARRAYISLOCKED}
  9981.   DISP_E_ARRAYISLOCKED = $8002000D;
  9982.  
  9983.   { Invalid number of parameters. }
  9984.   {$EXTERNALSYM DISP_E_BADPARAMCOUNT}
  9985.   DISP_E_BADPARAMCOUNT = $8002000E;
  9986.  
  9987.   { Parameter not optional. }
  9988.   {$EXTERNALSYM DISP_E_PARAMNOTOPTIONAL}
  9989.   DISP_E_PARAMNOTOPTIONAL = $8002000F;
  9990.  
  9991.   { Invalid callee. }
  9992.   {$EXTERNALSYM DISP_E_BADCALLEE}
  9993.   DISP_E_BADCALLEE = $80020010;
  9994.  
  9995.   { Does not support a collection. }
  9996.   {$EXTERNALSYM DISP_E_NOTACOLLECTION}
  9997.   DISP_E_NOTACOLLECTION = $80020011;
  9998.  
  9999.   { Buffer too small. }
  10000.   {$EXTERNALSYM TYPE_E_BUFFERTOOSMALL}
  10001.   TYPE_E_BUFFERTOOSMALL = $80028016;
  10002.  
  10003.   { Old format or invalid type library. }
  10004.   {$EXTERNALSYM TYPE_E_INVDATAREAD}
  10005.   TYPE_E_INVDATAREAD = $80028018;
  10006.  
  10007.   { Old format or invalid type library. }
  10008.   {$EXTERNALSYM TYPE_E_UNSUPFORMAT}
  10009.   TYPE_E_UNSUPFORMAT = $80028019;
  10010.  
  10011.   { Error accessing the OLE registry. }
  10012.   {$EXTERNALSYM TYPE_E_REGISTRYACCESS}
  10013.   TYPE_E_REGISTRYACCESS = $8002801C;
  10014.  
  10015.   { Library not registered. }
  10016.   {$EXTERNALSYM TYPE_E_LIBNOTREGISTERED}
  10017.   TYPE_E_LIBNOTREGISTERED = $8002801D;
  10018.  
  10019.   { Bound to unknown type. }
  10020.   {$EXTERNALSYM TYPE_E_UNDEFINEDTYPE}
  10021.   TYPE_E_UNDEFINEDTYPE = $80028027;
  10022.  
  10023.   { Qualified name disallowed. }
  10024.   {$EXTERNALSYM TYPE_E_QUALIFIEDNAMEDISALLOWED}
  10025.   TYPE_E_QUALIFIEDNAMEDISALLOWED = $80028028;
  10026.  
  10027.   { Invalid forward reference, or reference to uncompiled type. }
  10028.   {$EXTERNALSYM TYPE_E_INVALIDSTATE}
  10029.   TYPE_E_INVALIDSTATE = $80028029;
  10030.  
  10031.   { Type mismatch. }
  10032.   {$EXTERNALSYM TYPE_E_WRONGTYPEKIND}
  10033.   TYPE_E_WRONGTYPEKIND = $8002802A;
  10034.  
  10035.   { Element not found. }
  10036.   {$EXTERNALSYM TYPE_E_ELEMENTNOTFOUND}
  10037.   TYPE_E_ELEMENTNOTFOUND = $8002802B;
  10038.  
  10039.   { Ambiguous name. }
  10040.   {$EXTERNALSYM TYPE_E_AMBIGUOUSNAME}
  10041.   TYPE_E_AMBIGUOUSNAME = $8002802C;
  10042.  
  10043.   { Name already exists in the library. }
  10044.   {$EXTERNALSYM TYPE_E_NAMECONFLICT}
  10045.   TYPE_E_NAMECONFLICT = $8002802D;
  10046.  
  10047.   { Unknown LCID. }
  10048.   {$EXTERNALSYM TYPE_E_UNKNOWNLCID}
  10049.   TYPE_E_UNKNOWNLCID = $8002802E;
  10050.  
  10051.   { Function not defined in specified DLL. }
  10052.   {$EXTERNALSYM TYPE_E_DLLFUNCTIONNOTFOUND}
  10053.   TYPE_E_DLLFUNCTIONNOTFOUND = $8002802F;
  10054.  
  10055.   { Wrong module kind for the operation. }
  10056.   {$EXTERNALSYM TYPE_E_BADMODULEKIND}
  10057.   TYPE_E_BADMODULEKIND = $800288BD;
  10058.  
  10059.   { Size may not exceed 64K. }
  10060.   {$EXTERNALSYM TYPE_E_SIZETOOBIG}
  10061.   TYPE_E_SIZETOOBIG = $800288C5;
  10062.  
  10063.   { Duplicate ID in inheritance hierarchy. }
  10064.   {$EXTERNALSYM TYPE_E_DUPLICATEID}
  10065.   TYPE_E_DUPLICATEID = $800288C6;
  10066.  
  10067.   { Incorrect inheritance depth in standard OLE hmember. }
  10068.   {$EXTERNALSYM TYPE_E_INVALIDID}
  10069.   TYPE_E_INVALIDID = $800288CF;
  10070.  
  10071.   { Type mismatch. }
  10072.   {$EXTERNALSYM TYPE_E_TYPEMISMATCH}
  10073.   TYPE_E_TYPEMISMATCH = $80028CA0;
  10074.  
  10075.   { Invalid number of arguments. }
  10076.   {$EXTERNALSYM TYPE_E_OUTOFBOUNDS}
  10077.   TYPE_E_OUTOFBOUNDS = $80028CA1;
  10078.  
  10079.   { I/O Error. }
  10080.   {$EXTERNALSYM TYPE_E_IOERROR}
  10081.   TYPE_E_IOERROR = $80028CA2;
  10082.  
  10083.   { Error creating unique tmp file. }
  10084.   {$EXTERNALSYM TYPE_E_CANTCREATETMPFILE}
  10085.   TYPE_E_CANTCREATETMPFILE = $80028CA3;
  10086.  
  10087.   { Error loading type library/DLL. }
  10088.   {$EXTERNALSYM TYPE_E_CANTLOADLIBRARY}
  10089.   TYPE_E_CANTLOADLIBRARY = $80029C4A;
  10090.  
  10091.   { Inconsistent property functions. }
  10092.   {$EXTERNALSYM TYPE_E_INCONSISTENTPROPFUNCS}
  10093.   TYPE_E_INCONSISTENTPROPFUNCS = $80029C83;
  10094.  
  10095.   { Circular dependency between types/modules. }
  10096.   {$EXTERNALSYM TYPE_E_CIRCULARTYPE}
  10097.   TYPE_E_CIRCULARTYPE = $80029C84;
  10098.  
  10099.  
  10100.   { FACILITY_STORAGE }
  10101.  
  10102.   { Unable to perform requested operation. }
  10103.   {$EXTERNALSYM STG_E_INVALIDFUNCTION}
  10104.   STG_E_INVALIDFUNCTION = $80030001;
  10105.  
  10106.   { %l could not be found. }
  10107.   {$EXTERNALSYM STG_E_FILENOTFOUND}
  10108.   STG_E_FILENOTFOUND = $80030002;
  10109.  
  10110.   { The path %l could not be found. }
  10111.   {$EXTERNALSYM STG_E_PATHNOTFOUND}
  10112.   STG_E_PATHNOTFOUND = $80030003;
  10113.  
  10114.   { There are insufficient resources to open another file. }
  10115.   {$EXTERNALSYM STG_E_TOOMANYOPENFILES}
  10116.   STG_E_TOOMANYOPENFILES = $80030004;
  10117.  
  10118.   { Access Denied. }
  10119.   {$EXTERNALSYM STG_E_ACCESSDENIED}
  10120.   STG_E_ACCESSDENIED = $80030005;
  10121.  
  10122.   { Attempted an operation on an invalid object. }
  10123.   {$EXTERNALSYM STG_E_INVALIDHANDLE}
  10124.   STG_E_INVALIDHANDLE = $80030006;
  10125.  
  10126.   { There is insufficient memory available to complete operation. }
  10127.   {$EXTERNALSYM STG_E_INSUFFICIENTMEMORY}
  10128.   STG_E_INSUFFICIENTMEMORY = $80030008;
  10129.  
  10130.   { Invalid pointer error. }
  10131.   {$EXTERNALSYM STG_E_INVALIDPOINTER}
  10132.   STG_E_INVALIDPOINTER = $80030009;
  10133.  
  10134.   { There are no more entries to return. }
  10135.   {$EXTERNALSYM STG_E_NOMOREFILES}
  10136.   STG_E_NOMOREFILES = $80030012;
  10137.  
  10138.   { Disk is write-protected. }
  10139.   {$EXTERNALSYM STG_E_DISKISWRITEPROTECTED}
  10140.   STG_E_DISKISWRITEPROTECTED = $80030013;
  10141.  
  10142.   { An error occurred during a seek operation. }
  10143.   {$EXTERNALSYM STG_E_SEEKERROR}
  10144.   STG_E_SEEKERROR = $80030019;
  10145.  
  10146.   { A disk error occurred during a write operation. }
  10147.   {$EXTERNALSYM STG_E_WRITEFAULT}
  10148.   STG_E_WRITEFAULT = $8003001D;
  10149.  
  10150.   { A disk error occurred during a read operation. }
  10151.   {$EXTERNALSYM STG_E_READFAULT}
  10152.   STG_E_READFAULT = $8003001E;
  10153.  
  10154.   { A share violation has occurred. }
  10155.   {$EXTERNALSYM STG_E_SHAREVIOLATION}
  10156.   STG_E_SHAREVIOLATION = $80030020;
  10157.  
  10158.   { A lock violation has occurred. }
  10159.   {$EXTERNALSYM STG_E_LOCKVIOLATION}
  10160.   STG_E_LOCKVIOLATION = $80030021;
  10161.  
  10162.   { %l already exists. }
  10163.   {$EXTERNALSYM STG_E_FILEALREADYEXISTS}
  10164.   STG_E_FILEALREADYEXISTS = $80030050;
  10165.  
  10166.   { Invalid parameter error. }
  10167.   {$EXTERNALSYM STG_E_INVALIDPARAMETER}
  10168.   STG_E_INVALIDPARAMETER = $80030057;
  10169.  
  10170.   { There is insufficient disk space to complete operation. }
  10171.   {$EXTERNALSYM STG_E_MEDIUMFULL}
  10172.   STG_E_MEDIUMFULL = $80030070;
  10173.  
  10174.   { Illegal write of non-simple property to simple property set. }
  10175.   {$EXTERNALSYM STG_E_PROPSETMISMATCHED}
  10176.   STG_E_PROPSETMISMATCHED = $800300F0;
  10177.  
  10178.   { An API call exited abnormally. }
  10179.   {$EXTERNALSYM STG_E_ABNORMALAPIEXIT}
  10180.   STG_E_ABNORMALAPIEXIT = $800300FA;
  10181.  
  10182.   { The file %l is not a valid compound file. }
  10183.   {$EXTERNALSYM STG_E_INVALIDHEADER}
  10184.   STG_E_INVALIDHEADER = $800300FB;
  10185.  
  10186.   { The name %l is not valid. }
  10187.   {$EXTERNALSYM STG_E_INVALIDNAME}
  10188.   STG_E_INVALIDNAME = $800300FC;
  10189.  
  10190.   { An unexpected error occurred. }
  10191.   {$EXTERNALSYM STG_E_UNKNOWN}
  10192.   STG_E_UNKNOWN = $800300FD;
  10193.  
  10194.   { That function is not implemented. }
  10195.   {$EXTERNALSYM STG_E_UNIMPLEMENTEDFUNCTION}
  10196.   STG_E_UNIMPLEMENTEDFUNCTION = $800300FE;
  10197.  
  10198.   { Invalid flag error. }
  10199.   {$EXTERNALSYM STG_E_INVALIDFLAG}
  10200.   STG_E_INVALIDFLAG = $800300FF;
  10201.  
  10202.   { Attempted to use an object that is busy. }
  10203.   {$EXTERNALSYM STG_E_INUSE}
  10204.   STG_E_INUSE = $80030100;
  10205.  
  10206.   { The storage has been changed since the last commit. }
  10207.   {$EXTERNALSYM STG_E_NOTCURRENT}
  10208.   STG_E_NOTCURRENT = $80030101;
  10209.  
  10210.   { Attempted to use an object that has ceased to exist. }
  10211.   {$EXTERNALSYM STG_E_REVERTED}
  10212.   STG_E_REVERTED = $80030102;
  10213.  
  10214.   { Can't save. }
  10215.   {$EXTERNALSYM STG_E_CANTSAVE}
  10216.   STG_E_CANTSAVE = $80030103;
  10217.  
  10218.   { The compound file %l was produced with an incompatible version of storage. }
  10219.   {$EXTERNALSYM STG_E_OLDFORMAT}
  10220.   STG_E_OLDFORMAT = $80030104;
  10221.  
  10222.   { The compound file %l was produced with a newer version of storage. }
  10223.   {$EXTERNALSYM STG_E_OLDDLL}
  10224.   STG_E_OLDDLL = $80030105;
  10225.  
  10226.   { Share.exe or equivalent is required for operation. }
  10227.   {$EXTERNALSYM STG_E_SHAREREQUIRED}
  10228.   STG_E_SHAREREQUIRED = $80030106;
  10229.  
  10230.   { Illegal operation called on non-file based storage. }
  10231.   {$EXTERNALSYM STG_E_NOTFILEBASEDSTORAGE}
  10232.   STG_E_NOTFILEBASEDSTORAGE = $80030107;
  10233.  
  10234.   { Illegal operation called on object with extant marshallings. }
  10235.   {$EXTERNALSYM STG_E_EXTANTMARSHALLINGS}
  10236.   STG_E_EXTANTMARSHALLINGS = $80030108;
  10237.  
  10238.   { The docfile has been corrupted. }
  10239.   {$EXTERNALSYM STG_E_DOCFILECORRUPT}
  10240.   STG_E_DOCFILECORRUPT = $80030109;
  10241.  
  10242.   { OLE32.DLL has been loaded at the wrong address. }
  10243.   {$EXTERNALSYM STG_E_BADBASEADDRESS}
  10244.   STG_E_BADBASEADDRESS = $80030110;
  10245.  
  10246.   { The file download was aborted abnormally.  The file is incomplete. }
  10247.   {$EXTERNALSYM STG_E_INCOMPLETE}
  10248.   STG_E_INCOMPLETE = $80030201;
  10249.  
  10250.   { The file download has been terminated. }
  10251.   {$EXTERNALSYM STG_E_TERMINATED}
  10252.   STG_E_TERMINATED = $80030202;
  10253.  
  10254.   { The underlying file was converted to compound file format. }
  10255.   {$EXTERNALSYM STG_S_CONVERTED}
  10256.   STG_S_CONVERTED = $00030200;
  10257.  
  10258.   { The storage operation should block until more data is available. }
  10259.   {$EXTERNALSYM STG_S_BLOCK}
  10260.   STG_S_BLOCK = $00030201;
  10261.  
  10262.   { The storage operation should retry immediately. }
  10263.   {$EXTERNALSYM STG_S_RETRYNOW}
  10264.   STG_S_RETRYNOW = $00030202;
  10265.  
  10266.   { The notified event sink will not influence the storage operation. }
  10267.   {$EXTERNALSYM STG_S_MONITORING}
  10268.   STG_S_MONITORING = $00030203;
  10269.  
  10270.  
  10271.   { FACILITY_RPC }
  10272.  
  10273.   { Call was rejected by callee. }
  10274.   {$EXTERNALSYM RPC_E_CALL_REJECTED}
  10275.   RPC_E_CALL_REJECTED = $80010001;
  10276.  
  10277.   { Call was canceled by the message filter. }
  10278.   {$EXTERNALSYM RPC_E_CALL_CANCELED}
  10279.   RPC_E_CALL_CANCELED = $80010002;
  10280.  
  10281.   { The caller is dispatching an intertask SendMessage call and }
  10282.   { cannot call out via PostMessage. }
  10283.   {$EXTERNALSYM RPC_E_CANTPOST_INSENDCALL}
  10284.   RPC_E_CANTPOST_INSENDCALL = $80010003;
  10285.  
  10286.   { The caller is dispatching an asynchronous call and cannot }
  10287.   { make an outgoing call on behalf of this call. }
  10288.   {$EXTERNALSYM RPC_E_CANTCALLOUT_INASYNCCALL}
  10289.   RPC_E_CANTCALLOUT_INASYNCCALL = $80010004;
  10290.  
  10291.   { It is illegal to call out while inside message filter. }
  10292.   {$EXTERNALSYM RPC_E_CANTCALLOUT_INEXTERNALCALL}
  10293.   RPC_E_CANTCALLOUT_INEXTERNALCALL = $80010005;
  10294.  
  10295.   { The connection terminated or is in a bogus state }
  10296.   { and cannot be used any more. Other connections }
  10297.   { are still valid. }
  10298.   {$EXTERNALSYM RPC_E_CONNECTION_TERMINATED}
  10299.   RPC_E_CONNECTION_TERMINATED = $80010006;
  10300.  
  10301.   { The callee (server [not server application]) is not available }
  10302.   { and disappeared; all connections are invalid.  The call may }
  10303.   { have executed. }
  10304.   {$EXTERNALSYM RPC_E_SERVER_DIED}
  10305.   RPC_E_SERVER_DIED = $80010007;
  10306.  
  10307.   { The caller (client) disappeared while the callee (server) was }
  10308.   { processing a call. }
  10309.   {$EXTERNALSYM RPC_E_CLIENT_DIED}
  10310.   RPC_E_CLIENT_DIED = $80010008;
  10311.  
  10312.   { The data packet with the marshalled parameter data is incorrect. }
  10313.   {$EXTERNALSYM RPC_E_INVALID_DATAPACKET}
  10314.   RPC_E_INVALID_DATAPACKET = $80010009;
  10315.  
  10316.   { The call was not transmitted properly; the message queue }
  10317.   { was full and was not emptied after yielding. }
  10318.   {$EXTERNALSYM RPC_E_CANTTRANSMIT_CALL}
  10319.   RPC_E_CANTTRANSMIT_CALL = $8001000A;
  10320.  
  10321.   { The client (caller) cannot marshall the parameter data - low memory, etc. }
  10322.   {$EXTERNALSYM RPC_E_CLIENT_CANTMARSHAL_DATA}
  10323.   RPC_E_CLIENT_CANTMARSHAL_DATA = $8001000B;
  10324.  
  10325.   { The client (caller) cannot unmarshall the return data - low memory, etc. }
  10326.   {$EXTERNALSYM RPC_E_CLIENT_CANTUNMARSHAL_DATA}
  10327.   RPC_E_CLIENT_CANTUNMARSHAL_DATA = $8001000C;
  10328.  
  10329.   { The server (callee) cannot marshall the return data - low memory, etc. }
  10330.   {$EXTERNALSYM RPC_E_SERVER_CANTMARSHAL_DATA}
  10331.   RPC_E_SERVER_CANTMARSHAL_DATA = $8001000D;
  10332.  
  10333.   { The server (callee) cannot unmarshall the parameter data - low memory, etc. }
  10334.   {$EXTERNALSYM RPC_E_SERVER_CANTUNMARSHAL_DATA}
  10335.   RPC_E_SERVER_CANTUNMARSHAL_DATA = $8001000E;
  10336.  
  10337.   { Received data is invalid; could be server or client data. }
  10338.   {$EXTERNALSYM RPC_E_INVALID_DATA}
  10339.   RPC_E_INVALID_DATA = $8001000F;
  10340.  
  10341.   { A particular parameter is invalid and cannot be (un)marshalled. }
  10342.   {$EXTERNALSYM RPC_E_INVALID_PARAMETER}
  10343.   RPC_E_INVALID_PARAMETER = $80010010;
  10344.  
  10345.   { There is no second outgoing call on same channel in DDE conversation. }
  10346.   {$EXTERNALSYM RPC_E_CANTCALLOUT_AGAIN}
  10347.   RPC_E_CANTCALLOUT_AGAIN = $80010011;
  10348.  
  10349.   { The callee (server [not server application]) is not available }
  10350.   { and disappeared; all connections are invalid.  The call did not execute. }
  10351.   {$EXTERNALSYM RPC_E_SERVER_DIED_DNE}
  10352.   RPC_E_SERVER_DIED_DNE = $80010012;
  10353.  
  10354.   { System call failed. }
  10355.   {$EXTERNALSYM RPC_E_SYS_CALL_FAILED}
  10356.   RPC_E_SYS_CALL_FAILED = $80010100;
  10357.  
  10358.   { Could not allocate some required resource (memory, events, ...) }
  10359.   {$EXTERNALSYM RPC_E_OUT_OF_RESOURCES}
  10360.   RPC_E_OUT_OF_RESOURCES = $80010101;
  10361.  
  10362.   { Attempted to make calls on more than one thread in single threaded mode. }
  10363.   {$EXTERNALSYM RPC_E_ATTEMPTED_MULTITHREAD}
  10364.   RPC_E_ATTEMPTED_MULTITHREAD = $80010102;
  10365.  
  10366.   { The requested interface is not registered on the server object. }
  10367.   {$EXTERNALSYM RPC_E_NOT_REGISTERED}
  10368.   RPC_E_NOT_REGISTERED = $80010103;
  10369.  
  10370.   { RPC could not call the server or could not return the results of calling the server. }
  10371.   {$EXTERNALSYM RPC_E_FAULT}
  10372.   RPC_E_FAULT = $80010104;
  10373.  
  10374.   { The server threw an exception. }
  10375.   {$EXTERNALSYM RPC_E_SERVERFAULT}
  10376.   RPC_E_SERVERFAULT = $80010105;
  10377.  
  10378.   { Cannot change thread mode after it is set. }
  10379.   {$EXTERNALSYM RPC_E_CHANGED_MODE}
  10380.   RPC_E_CHANGED_MODE = $80010106;
  10381.  
  10382.   { The method called does not exist on the server. }
  10383.   {$EXTERNALSYM RPC_E_INVALIDMETHOD}
  10384.   RPC_E_INVALIDMETHOD = $80010107;
  10385.  
  10386.   { The object invoked has disconnected from its clients. }
  10387.   {$EXTERNALSYM RPC_E_DISCONNECTED}
  10388.   RPC_E_DISCONNECTED = $80010108;
  10389.  
  10390.   { The object invoked chose not to process the call now.  Try again later. }
  10391.   {$EXTERNALSYM RPC_E_RETRY}
  10392.   RPC_E_RETRY = $80010109;
  10393.  
  10394.   { The message filter indicated that the application is busy. }
  10395.   {$EXTERNALSYM RPC_E_SERVERCALL_RETRYLATER}
  10396.   RPC_E_SERVERCALL_RETRYLATER = $8001010A;
  10397.  
  10398.   { The message filter rejected the call. }
  10399.   {$EXTERNALSYM RPC_E_SERVERCALL_REJECTED}
  10400.   RPC_E_SERVERCALL_REJECTED = $8001010B;
  10401.  
  10402.   { A call control interfaces was called with invalid data. }
  10403.   {$EXTERNALSYM RPC_E_INVALID_CALLDATA}
  10404.   RPC_E_INVALID_CALLDATA = $8001010C;
  10405.  
  10406.   { An outgoing call cannot be made since the application is dispatching an input-synchronous call. }
  10407.   {$EXTERNALSYM RPC_E_CANTCALLOUT_ININPUTSYNCCALL}
  10408.   RPC_E_CANTCALLOUT_ININPUTSYNCCALL = $8001010D;
  10409.  
  10410.   { The application called an interface that was marshalled for a different thread. }
  10411.   {$EXTERNALSYM RPC_E_WRONG_THREAD}
  10412.   RPC_E_WRONG_THREAD = $8001010E;
  10413.  
  10414.   { CoInitialize has not been called on the current thread. }
  10415.   {$EXTERNALSYM RPC_E_THREAD_NOT_INIT}
  10416.   RPC_E_THREAD_NOT_INIT = $8001010F;
  10417.  
  10418.   { The version of OLE on the client and server machines does not match. }
  10419.   {$EXTERNALSYM RPC_E_VERSION_MISMATCH}
  10420.   RPC_E_VERSION_MISMATCH = $80010110;
  10421.  
  10422.   { OLE received a packet with an invalid header. }
  10423.   {$EXTERNALSYM RPC_E_INVALID_HEADER}
  10424.   RPC_E_INVALID_HEADER = $80010111;
  10425.  
  10426.   { OLE received a packet with an invalid extension. }
  10427.   {$EXTERNALSYM RPC_E_INVALID_EXTENSION}
  10428.   RPC_E_INVALID_EXTENSION = $80010112;
  10429.  
  10430.   { The requested object or interface does not exist. }
  10431.   {$EXTERNALSYM RPC_E_INVALID_IPID}
  10432.   RPC_E_INVALID_IPID = $80010113;
  10433.  
  10434.   { The requested object does not exist. }
  10435.   {$EXTERNALSYM RPC_E_INVALID_OBJECT}
  10436.   RPC_E_INVALID_OBJECT = $80010114;
  10437.  
  10438.   { OLE has sent a request and is waiting for a reply. }
  10439.   {$EXTERNALSYM RPC_S_CALLPENDING}
  10440.   RPC_S_CALLPENDING = $80010115;
  10441.  
  10442.   { OLE is waiting before retrying a request. }
  10443.   {$EXTERNALSYM RPC_S_WAITONTIMER}
  10444.   RPC_S_WAITONTIMER = $80010116;
  10445.  
  10446.   { Call context cannot be accessed after call completed. }
  10447.   {$EXTERNALSYM RPC_E_CALL_COMPLETE}
  10448.   RPC_E_CALL_COMPLETE = $80010117;
  10449.  
  10450.   { Impersonate on unsecure calls is not supported. }
  10451.   {$EXTERNALSYM RPC_E_UNSECURE_CALL}
  10452.   RPC_E_UNSECURE_CALL = $80010118;
  10453.  
  10454.   { Security must be initialized before any interfaces are marshalled or }
  10455.   {$EXTERNALSYM RPC_E_TOO_LATE}
  10456.   RPC_E_TOO_LATE = $80010119;
  10457.  
  10458.   { No security packages are installed on this machine or the user is not logged }
  10459.   {$EXTERNALSYM RPC_E_NO_GOOD_SECURITY_PACKAGES}
  10460.   RPC_E_NO_GOOD_SECURITY_PACKAGES = $8001011A;
  10461.  
  10462.   { Access is denied. }
  10463.   {$EXTERNALSYM RPC_E_ACCESS_DENIED}
  10464.   RPC_E_ACCESS_DENIED = $8001011B;
  10465.  
  10466.   { Remote calls are not allowed for this process. }
  10467.   {$EXTERNALSYM RPC_E_REMOTE_DISABLED}
  10468.   RPC_E_REMOTE_DISABLED = $8001011C;
  10469.  
  10470.   { The marshaled interface data packet (OBJREF) has an invalid or unknown format. }
  10471.   {$EXTERNALSYM RPC_E_INVALID_OBJREF}
  10472.   RPC_E_INVALID_OBJREF = $8001011D;
  10473.  
  10474.   { An internal error occurred. }
  10475.   {$EXTERNALSYM RPC_E_UNEXPECTED}
  10476.   RPC_E_UNEXPECTED = $8001FFFF;
  10477.  
  10478.  
  10479. { FACILITY_SSPI }
  10480.  
  10481.   { Bad UID. }
  10482.   {$EXTERNALSYM NTE_BAD_UID}
  10483.   NTE_BAD_UID = $80090001;
  10484.  
  10485.   { Bad Hash. }
  10486.   {$EXTERNALSYM NTE_BAD_HASH}
  10487.   NTE_BAD_HASH = $80090002;
  10488.  
  10489.   { Bad Key. }
  10490.   {$EXTERNALSYM NTE_BAD_KEY}
  10491.   NTE_BAD_KEY = $80090003;
  10492.  
  10493.   { Bad Length. }
  10494.   {$EXTERNALSYM NTE_BAD_LEN}
  10495.   NTE_BAD_LEN = $80090004;
  10496.  
  10497.   { Bad Data. }
  10498.   {$EXTERNALSYM NTE_BAD_DATA}
  10499.   NTE_BAD_DATA = $80090005;
  10500.  
  10501.   { Invalid Signature. }
  10502.   {$EXTERNALSYM NTE_BAD_SIGNATURE}
  10503.   NTE_BAD_SIGNATURE = $80090006;
  10504.  
  10505.   { Bad Version of provider. }
  10506.   {$EXTERNALSYM NTE_BAD_VER}
  10507.   NTE_BAD_VER = $80090007;
  10508.  
  10509.   { Invalid algorithm specified. }
  10510.   {$EXTERNALSYM NTE_BAD_ALGID}
  10511.   NTE_BAD_ALGID = $80090008;
  10512.  
  10513.   { Invalid flags specified. }
  10514.   {$EXTERNALSYM NTE_BAD_FLAGS}
  10515.   NTE_BAD_FLAGS = $80090009;
  10516.  
  10517.   { Invalid type specified. }
  10518.   {$EXTERNALSYM NTE_BAD_TYPE}
  10519.   NTE_BAD_TYPE = $8009000A;
  10520.  
  10521.   { Key not valid for use in specified state. }
  10522.   {$EXTERNALSYM NTE_BAD_KEY_STATE}
  10523.   NTE_BAD_KEY_STATE = $8009000B;
  10524.  
  10525.   { Hash not valid for use in specified state. }
  10526.   {$EXTERNALSYM NTE_BAD_HASH_STATE}
  10527.   NTE_BAD_HASH_STATE = $8009000C;
  10528.  
  10529.   { Key does not exist. }
  10530.   {$EXTERNALSYM NTE_NO_KEY}
  10531.   NTE_NO_KEY = $8009000D;
  10532.  
  10533.   { Insufficient memory available for the operation. }
  10534.   {$EXTERNALSYM NTE_NO_MEMORY}
  10535.   NTE_NO_MEMORY = $8009000E;
  10536.  
  10537.   { Object already exists. }
  10538.   {$EXTERNALSYM NTE_EXISTS}
  10539.   NTE_EXISTS = $8009000F;
  10540.  
  10541.   { Access denied. }
  10542.   {$EXTERNALSYM NTE_PERM}
  10543.   NTE_PERM = $80090010;
  10544.  
  10545.   { Object was not found. }
  10546.   {$EXTERNALSYM NTE_NOT_FOUND}
  10547.   NTE_NOT_FOUND = $80090011;
  10548.  
  10549.   { Data already encrypted. }
  10550.   {$EXTERNALSYM NTE_DOUBLE_ENCRYPT}
  10551.   NTE_DOUBLE_ENCRYPT = $80090012;
  10552.  
  10553.   { Invalid provider specified. }
  10554.   {$EXTERNALSYM NTE_BAD_PROVIDER}
  10555.   NTE_BAD_PROVIDER = $80090013;
  10556.  
  10557.   { Invalid provider type specified. }
  10558.   {$EXTERNALSYM NTE_BAD_PROV_TYPE}
  10559.   NTE_BAD_PROV_TYPE = $80090014;
  10560.  
  10561.   { Provider's public key is invalid. }
  10562.   {$EXTERNALSYM NTE_BAD_PUBLIC_KEY}
  10563.   NTE_BAD_PUBLIC_KEY = $80090015;
  10564.  
  10565.   { Keyset does not exist }
  10566.   {$EXTERNALSYM NTE_BAD_KEYSET}
  10567.   NTE_BAD_KEYSET = $80090016;
  10568.  
  10569.   { Provider type not defined. }
  10570.   {$EXTERNALSYM NTE_PROV_TYPE_NOT_DEF}
  10571.   NTE_PROV_TYPE_NOT_DEF = $80090017;
  10572.  
  10573.   { Provider type as registered is invalid. }
  10574.   {$EXTERNALSYM NTE_PROV_TYPE_ENTRY_BAD}
  10575.   NTE_PROV_TYPE_ENTRY_BAD = $80090018;
  10576.  
  10577.   { The keyset is not defined. }
  10578.   {$EXTERNALSYM NTE_KEYSET_NOT_DEF}
  10579.   NTE_KEYSET_NOT_DEF = $80090019;
  10580.  
  10581.   { Keyset as registered is invalid. }
  10582.   {$EXTERNALSYM NTE_KEYSET_ENTRY_BAD}
  10583.   NTE_KEYSET_ENTRY_BAD = $8009001A;
  10584.  
  10585.   { Provider type does not match registered value. }
  10586.   {$EXTERNALSYM NTE_PROV_TYPE_NO_MATCH}
  10587.   NTE_PROV_TYPE_NO_MATCH = $8009001B;
  10588.  
  10589.   { The digital signature file is corrupt. }
  10590.   {$EXTERNALSYM NTE_SIGNATURE_FILE_BAD}
  10591.   NTE_SIGNATURE_FILE_BAD = $8009001C;
  10592.  
  10593.   { Provider DLL failed to initialize correctly. }
  10594.   {$EXTERNALSYM NTE_PROVIDER_DLL_FAIL}
  10595.   NTE_PROVIDER_DLL_FAIL = $8009001D;
  10596.  
  10597.   { Provider DLL could not be found. }
  10598.   {$EXTERNALSYM NTE_PROV_DLL_NOT_FOUND}
  10599.   NTE_PROV_DLL_NOT_FOUND = $8009001E;
  10600.  
  10601.   { The Keyset parameter is invalid. }
  10602.   {$EXTERNALSYM NTE_BAD_KEYSET_PARAM}
  10603.   NTE_BAD_KEYSET_PARAM = $8009001F;
  10604.  
  10605.   { An internal error occurred. }
  10606.   {$EXTERNALSYM NTE_FAIL}
  10607.   NTE_FAIL = $80090020;
  10608.  
  10609.   { A base error occurred. }
  10610.   {$EXTERNALSYM NTE_SYS_ERR}
  10611.   NTE_SYS_ERR = $80090021;
  10612.  
  10613.   {$EXTERNALSYM NTE_OP_OK}
  10614.   NTE_OP_OK = 0;
  10615.  
  10616. { FACILITY_CERT }
  10617.  
  10618.   { The specified trust provider is not known on this system. }
  10619.   {$EXTERNALSYM TRUST_E_PROVIDER_UNKNOWN}
  10620.   TRUST_E_PROVIDER_UNKNOWN = $800B0001;
  10621.  
  10622.   { The trust verification action specified is not supported by the specified trust provider. }
  10623.   {$EXTERNALSYM TRUST_E_ACTION_UNKNOWN}
  10624.   TRUST_E_ACTION_UNKNOWN = $800B0002;
  10625.  
  10626.   { The form specified for the subject is not one supported or known by the specified trust provider. }
  10627.   {$EXTERNALSYM TRUST_E_SUBJECT_FORM_UNKNOWN}
  10628.   TRUST_E_SUBJECT_FORM_UNKNOWN = $800B0003;
  10629.  
  10630.   { The subject is not trusted for the specified action. }
  10631.   {$EXTERNALSYM TRUST_E_SUBJECT_NOT_TRUSTED}
  10632.   TRUST_E_SUBJECT_NOT_TRUSTED = $800B0004;
  10633.  
  10634.   { Error due to problem in ASN.1 encoding process. }
  10635.   {$EXTERNALSYM DIGSIG_E_ENCODE}
  10636.   DIGSIG_E_ENCODE = $800B0005;
  10637.  
  10638.   { Error due to problem in ASN.1 decoding process. }
  10639.   {$EXTERNALSYM DIGSIG_E_DECODE}
  10640.   DIGSIG_E_DECODE = $800B0006;
  10641.  
  10642.   { Reading / writing Extensions where Attributes are appropriate, and visa versa. }
  10643.   {$EXTERNALSYM DIGSIG_E_EXTENSIBILITY}
  10644.   DIGSIG_E_EXTENSIBILITY = $800B0007;
  10645.  
  10646.   { Unspecified cryptographic failure. }
  10647.   {$EXTERNALSYM DIGSIG_E_CRYPTO}
  10648.   DIGSIG_E_CRYPTO = $800B0008;
  10649.  
  10650.   { The size of the data could not be determined. }
  10651.   {$EXTERNALSYM PERSIST_E_SIZEDEFINITE}
  10652.   PERSIST_E_SIZEDEFINITE = $800B0009;
  10653.  
  10654.   { The size of the indefinite-sized data could not be determined. }
  10655.   {$EXTERNALSYM PERSIST_E_SIZEINDEFINITE}
  10656.   PERSIST_E_SIZEINDEFINITE = $800B000A;
  10657.  
  10658.   { This object does not read and write self-sizing data. }
  10659.   {$EXTERNALSYM PERSIST_E_NOTSELFSIZING}
  10660.   PERSIST_E_NOTSELFSIZING = $800B000B;
  10661.  
  10662.   { No signature was present in the subject. }
  10663.   {$EXTERNALSYM TRUST_E_NOSIGNATURE}
  10664.   TRUST_E_NOSIGNATURE = $800B0100;
  10665.  
  10666.   { A required certificate is not within its validity period. }
  10667.   {$EXTERNALSYM CERT_E_EXPIRED}
  10668.   CERT_E_EXPIRED = $800B0101;
  10669.  
  10670.   { The validity periods of the certification chain do not nest correctly. }
  10671.   {$EXTERNALSYM CERT_E_VALIDIYPERIODNESTING}
  10672.   CERT_E_VALIDIYPERIODNESTING = $800B0102;
  10673.  
  10674.   { A certificate that can only be used as an end-entity is being used as a CA or visa versa. }
  10675.   {$EXTERNALSYM CERT_E_ROLE}
  10676.   CERT_E_ROLE = $800B0103;
  10677.  
  10678.   { A path length constraint in the certification chain has been violated. }
  10679.   {$EXTERNALSYM CERT_E_PATHLENCONST}
  10680.   CERT_E_PATHLENCONST = $800B0104;
  10681.  
  10682.   { An extension of unknown type that is labeled 'critical' is present in a certificate. }
  10683.   {$EXTERNALSYM CERT_E_CRITICAL}
  10684.   CERT_E_CRITICAL = $800B0105;
  10685.  
  10686.   { A certificate is being used for a purpose other than that for which it is permitted. }
  10687.   {$EXTERNALSYM CERT_E_PURPOSE}
  10688.   CERT_E_PURPOSE = $800B0106;
  10689.  
  10690.   { A parent of a given certificate in fact did not issue that child certificate. }
  10691.   {$EXTERNALSYM CERT_E_ISSUERCHAINING}
  10692.   CERT_E_ISSUERCHAINING = $800B0107;
  10693.  
  10694.   { A certificate is missing or has an empty value for an important field, such as a subject or issuer name. }
  10695.   {$EXTERNALSYM CERT_E_MALFORMED}
  10696.   CERT_E_MALFORMED = $800B0108;
  10697.  
  10698.   { A certification chain processed correctly, but terminated in a root certificate which isn't trusted by the trust provider. }
  10699.   {$EXTERNALSYM CERT_E_UNTRUSTEDROOT}
  10700.   CERT_E_UNTRUSTEDROOT = $800B0109;
  10701.  
  10702.   { A chain of certs didn't chain as they should in a certain application of chaining. }
  10703.   {$EXTERNALSYM CERT_E_CHAINING}
  10704.   CERT_E_CHAINING = $800B010A;
  10705.  
  10706. { End WINERROR.H }
  10707.  
  10708.  
  10709.   { Abnormal termination codes }
  10710.  
  10711.   {$EXTERNALSYM TC_NORMAL}
  10712.   TC_NORMAL = 0;
  10713.   {$EXTERNALSYM TC_HARDERR}
  10714.   TC_HARDERR = 1;
  10715.   {$EXTERNALSYM TC_GP_TRAP}
  10716.   TC_GP_TRAP = 2;
  10717.   {$EXTERNALSYM TC_SIGNAL}
  10718.   TC_SIGNAL = 3;
  10719.  
  10720.   { Power Management APIs }
  10721.  
  10722.   {$EXTERNALSYM AC_LINE_OFFLINE}
  10723.   AC_LINE_OFFLINE = 0;
  10724.   {$EXTERNALSYM AC_LINE_ONLINE}
  10725.   AC_LINE_ONLINE = 1;
  10726.   {$EXTERNALSYM AC_LINE_BACKUP_POWER}
  10727.   AC_LINE_BACKUP_POWER = 2;
  10728.   {$EXTERNALSYM AC_LINE_UNKNOWN}
  10729.   AC_LINE_UNKNOWN = 255;
  10730.  
  10731.   {$EXTERNALSYM BATTERY_FLAG_HIGH}
  10732.   BATTERY_FLAG_HIGH = 1;
  10733.   {$EXTERNALSYM BATTERY_FLAG_LOW}
  10734.   BATTERY_FLAG_LOW = 2;
  10735.   {$EXTERNALSYM BATTERY_FLAG_CRITICAL}
  10736.   BATTERY_FLAG_CRITICAL = 4;
  10737.   {$EXTERNALSYM BATTERY_FLAG_CHARGING}
  10738.   BATTERY_FLAG_CHARGING = 8;
  10739.   {$EXTERNALSYM BATTERY_FLAG_NO_BATTERY}
  10740.   BATTERY_FLAG_NO_BATTERY = $80;
  10741.   {$EXTERNALSYM BATTERY_FLAG_UNKNOWN}
  10742.   BATTERY_FLAG_UNKNOWN = 255;
  10743.   {$EXTERNALSYM BATTERY_PERCENTAGE_UNKNOWN}
  10744.   BATTERY_PERCENTAGE_UNKNOWN = 255;
  10745.   {$EXTERNALSYM BATTERY_LIFE_UNKNOWN}
  10746.   BATTERY_LIFE_UNKNOWN = $FFFFFFFF;
  10747.  
  10748. type
  10749.   PSystemPowerStatus = ^TSystemPowerStatus;
  10750.   {$EXTERNALSYM _SYSTEM_POWER_STATUS}
  10751.   _SYSTEM_POWER_STATUS = packed record
  10752.     ACLineStatus : Byte;
  10753.     BatteryFlag : Byte;
  10754.     BatteryLifePercent : Byte;
  10755.     Reserved1 : Byte;
  10756.     BatteryLifeTime : DWORD;
  10757.     BatteryFullLifeTime : DWORD;
  10758.   end;
  10759.   TSystemPowerStatus = _SYSTEM_POWER_STATUS;
  10760.   {$EXTERNALSYM SYSTEM_POWER_STATUS}
  10761.   SYSTEM_POWER_STATUS = _SYSTEM_POWER_STATUS;
  10762.  
  10763. {$EXTERNALSYM GetSystemPowerStatus}
  10764. function GetSystemPowerStatus(var lpSystemPowerStatus: TSystemPowerStatus): BOOL; stdcall;
  10765. {$EXTERNALSYM SetSystemPowerState}
  10766. function SetSystemPowerState(fSuspend, fForce: BOOL): BOOL; stdcall;
  10767.  
  10768.  
  10769. { Win Certificate API and Structures }
  10770.  
  10771. { Structures }
  10772. type
  10773.   PWinCertificate = ^TWinCertificate;
  10774.   {$EXTERNALSYM _WIN_CERTIFICATE}
  10775.   _WIN_CERTIFICATE = packed record
  10776.     dwLength: DWORD;
  10777.     wRevision: Word;
  10778.     wCertificateType: Word;         { WIN_CERT_TYPE_xxx }
  10779.     bCertificate: packed array[0..0] of Byte;
  10780.   end;
  10781.   TWinCertificate = _WIN_CERTIFICATE;
  10782.   {$EXTERNALSYM WIN_CERTIFICATE}
  10783.   WIN_CERTIFICATE = _WIN_CERTIFICATE;
  10784.  
  10785. { Currently, the only defined certificate revision is WIN_CERT_REVISION_1_0 }
  10786.  
  10787. const
  10788.   {$EXTERNALSYM WIN_CERT_REVISION_1_0}
  10789.   WIN_CERT_REVISION_1_0 = $0100;
  10790.  
  10791. { Possible certificate types are specified by the following values }
  10792.  
  10793.   {$EXTERNALSYM WIN_CERT_TYPE_X509}
  10794.   WIN_CERT_TYPE_X509 = $0001;                        { bCertificate contains an X.509 Certificate }
  10795.   {$EXTERNALSYM WIN_CERT_TYPE_PKCS_SIGNED_DATA}
  10796.   WIN_CERT_TYPE_PKCS_SIGNED_DATA = $0002;            { bCertificate contains a PKCS SignedData structure }
  10797.   {$EXTERNALSYM WIN_CERT_TYPE_RESERVED_1}
  10798.   WIN_CERT_TYPE_RESERVED_1 = $0003;                  { Reserved }
  10799.  
  10800. { API }
  10801.  
  10802. {$EXTERNALSYM WinSubmitCertificate}
  10803. function WinSubmitCertificate(var lpCertificate: TWinCertificate): BOOL; stdcall;
  10804.  
  10805. { Trust API and Structures }
  10806.  
  10807. {$EXTERNALSYM WinVerifyTrust}
  10808. function WinVerifyTrust(hwnd: HWND; const ActionID: TGUID; ActionData: Pointer): Longint; stdcall;
  10809. {$EXTERNALSYM WinLoadTrustProvider}
  10810. function WinLoadTrustProvider(ActionID: PGUID): BOOL; stdcall;
  10811.  
  10812. { Common Trust API Data Structures }
  10813.  
  10814. { Data type commonly used in ActionData structures }
  10815.  
  10816. type
  10817.   TWinTrustSubject = Pointer;
  10818.  
  10819. { Two commonly used ActionData structures }
  10820.  
  10821.   PWinTrustActdataContextWithSubject = ^TWinTrustActdataContextWithSubject;
  10822.   {$EXTERNALSYM _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT}
  10823.   _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT = record
  10824.     hClientToken: THandle;
  10825.     SubjectType: PGUID;
  10826.     Subject: TWinTrustSubject;
  10827.   end;
  10828.   TWinTrustActdataContextWithSubject = _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT;
  10829.   {$EXTERNALSYM WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT}
  10830.   WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT = _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT;
  10831.  
  10832.  
  10833.   PWinTrustActdataSubjectOnly = ^TWinTrustActdataSubjectOnly;
  10834.   {$EXTERNALSYM _WIN_TRUST_ACTDATA_SUBJECT_ONLY}
  10835.   _WIN_TRUST_ACTDATA_SUBJECT_ONLY = record
  10836.     SubjectType: PGUID;
  10837.     Subject: TWinTrustSubject;
  10838.   end;
  10839.   TWinTrustActdataSubjectOnly = _WIN_TRUST_ACTDATA_SUBJECT_ONLY;
  10840.   {$EXTERNALSYM WIN_TRUST_ACTDATA_SUBJECT_ONLY}
  10841.   WIN_TRUST_ACTDATA_SUBJECT_ONLY = _WIN_TRUST_ACTDATA_SUBJECT_ONLY;
  10842.  
  10843.  
  10844. { SUBJECT FORM DEFINITIONS }
  10845.  
  10846. { Currently defined Subject Type Identifiers.  All of the below
  10847.   use the WIN_TRUST_SUBJECT_FILE subject form, defined below. }
  10848.  
  10849. const
  10850. { RawFile = 959dc450-8d9e-11cf-8736-00aa00a485eb }
  10851.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_RAW_FILE}
  10852.   WIN_TRUST_SUBJTYPE_RAW_FILE: TGUID =
  10853.     '{959dc450-8d9e-11cf-8736-00aa00a485eb}';
  10854.  
  10855. { PeImage = 43c9a1e0-8da0-11cf-8736-00aa00a485eb }
  10856.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_PE_IMAGE}
  10857.   WIN_TRUST_SUBJTYPE_PE_IMAGE: TGUID =
  10858.     '{43c9a1e0-8da0-11cf-8736-00aa00a485eb}';
  10859.  
  10860. { JavaClass = 08ad3990-8da1-11cf-8736-00aa00a485eb }
  10861.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_JAVA_CLASS}
  10862.   WIN_TRUST_SUBJTYPE_JAVA_CLASS: TGUID =
  10863.     '{08ad3990-8da1-11cf-8736-00aa00a485eb}';
  10864.  
  10865. { Cabinet = d17c5374-a392-11cf-9df5-00aa00c184e0 }
  10866.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_CABINET}
  10867.   WIN_TRUST_SUBJTYPE_CABINET: TGUID =
  10868.     '{d17c5374-a392-11cf-9df5-00aa00c184e0}';
  10869.  
  10870. { Associated Subject Data Structure: }
  10871.  
  10872.  
  10873. type
  10874.   PWinTrustSubjectFile = ^TWinTrustSubjectFile;
  10875.   {$EXTERNALSYM _WIN_TRUST_SUBJECT_FILE}
  10876.   _WIN_TRUST_SUBJECT_FILE = record
  10877.     hFile: THandle;
  10878.     lpPath: PWideChar;
  10879.   end;
  10880.   TWinTrustSubjectFile = _WIN_TRUST_SUBJECT_FILE;
  10881.   {$EXTERNALSYM WIN_TRUST_SUBJECT_FILE}
  10882.   WIN_TRUST_SUBJECT_FILE = _WIN_TRUST_SUBJECT_FILE;
  10883.  
  10884. { The following subject types use the
  10885.   WIN_TRUST_SUBJECT_FILE_AND_DISPLAY subject type, defined
  10886.   below. }
  10887.  
  10888. const
  10889.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_RAW_FILEEX}
  10890.   WIN_TRUST_SUBJTYPE_RAW_FILEEX: TGUID = (
  10891.           D1:$6f458110; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  10892.  
  10893.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_PE_IMAGEEX}
  10894.   WIN_TRUST_SUBJTYPE_PE_IMAGEEX: TGUID = (
  10895.           D1:$6f458111; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  10896.  
  10897.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_JAVA_CLASSEX}
  10898.   WIN_TRUST_SUBJTYPE_JAVA_CLASSEX: TGUID = (
  10899.           D1:$6f458113; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  10900.  
  10901.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_CABINETEX}
  10902.   WIN_TRUST_SUBJTYPE_CABINETEX: TGUID = (
  10903.           D1:$6f458114; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  10904.  
  10905.  
  10906. { Associated Subject Data Structure: }
  10907.  
  10908. type
  10909.   PWinTrustSubjectFileAndDisplay = ^TWinTrustSubjectFileAndDisplay;
  10910.   {$EXTERNALSYM _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY}
  10911.   _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY = record
  10912.     hFile: THandle;              { handle to the open file if you got it }
  10913.     lpPath: PWideString;         { the path to open if you don't }
  10914.     lpDisplayName: PWideString;  { (optional) display name to show to user }
  10915.                                  {      in place of path }
  10916.   end;
  10917.   TWinTrustSubjectFileAndDisplay = _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY;
  10918.   {$EXTERNALSYM WIN_TRUST_SUBJECT_FILE_AND_DISPLAY}
  10919.   WIN_TRUST_SUBJECT_FILE_AND_DISPLAY = _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY;
  10920.  
  10921. { Other subject types: }
  10922.  
  10923. const
  10924. { OleStorage == c257e740-8da0-11cf-8736-00aa00a485eb }
  10925. {$EXTERNALSYM WIN_TRUST_SUBJTYPE_OLE_STORAGE}
  10926. WIN_TRUST_SUBJTYPE_OLE_STORAGE: TGUID = (
  10927.           D1:$c257e740; D2:$8da0; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  10928.  
  10929.  
  10930. { TRUST PROVIDER SPECIFIC DEFINITIONS
  10931.  
  10932.       Each trust provider will have the following
  10933.       sections defined:
  10934.  
  10935.       Actions - What actions are supported by the trust
  10936.           provider.
  10937.       SubjectForms - Subjects that may be evaluated by this
  10938.           trust provider.
  10939.                      and
  10940.       Data structures to support the subject forms. }
  10941.  
  10942.  
  10943. { Software Publisher Trust Provider }
  10944.  
  10945. { Actions: }
  10946.  
  10947. { TrustedPublisher == 66426730-8da1-11cf-8736-00aa00a485eb }
  10948.   {$EXTERNALSYM WIN_SPUB_ACTION_TRUSTED_PUBLISHER}
  10949.   WIN_SPUB_ACTION_TRUSTED_PUBLISHER: TGUID = (
  10950.           D1:$66426730; D2:$8da1; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  10951.  
  10952. { NtActivateImage == 8bc96b00-8da1-11cf-8736-00aa00a485eb }
  10953.   {$EXTERNALSYM WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE}
  10954.   WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE: TGUID = (
  10955.           D1:$8bc96b00; D2:$8da1; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  10956.  
  10957. { PublishedSoftware == 64b9d180-8da2-11cf-8736-00aa00a485eb }
  10958.   {$EXTERNALSYM WIN_SPUB_ACTION_PUBLISHED_SOFTWARE}
  10959.   WIN_SPUB_ACTION_PUBLISHED_SOFTWARE: TGUID = (
  10960.           D1:$64b9d180; D2:$8da2; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  10961.  
  10962. { Data Structures: }
  10963.  
  10964. { WIN_SPUB_ACTION_TRUSTED_PUBLISHER:
  10965.       Uses WIN_SPUB_TRUSTED_PUBLISHER_DATA }
  10966.  
  10967. { WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE:
  10968.       Uses WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT }
  10969.  
  10970. { WIN_SPUB_ACTION_PUBLISHED_SOFTWARE:
  10971.       Uses WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT }
  10972.  
  10973. type
  10974.   PWinSpubTrustedPublisherData = ^TWinSpubTrustedPublisherData;
  10975.   {$EXTERNALSYM _WIN_SPUB_TRUSTED_PUBLISHER_DATA}
  10976.   _WIN_SPUB_TRUSTED_PUBLISHER_DATA = record
  10977.     hClientToken: THandle;
  10978.     lpCertificate: PWinCertificate;
  10979.   end;
  10980.   TWinSpubTrustedPublisherData = _WIN_SPUB_TRUSTED_PUBLISHER_DATA;
  10981.   {$EXTERNALSYM WIN_SPUB_TRUSTED_PUBLISHER_DATA}
  10982.   WIN_SPUB_TRUSTED_PUBLISHER_DATA = _WIN_SPUB_TRUSTED_PUBLISHER_DATA;
  10983.  
  10984. { Translated from WINGDI.H }
  10985.  
  10986. const
  10987.   { Binary raster ops }
  10988.   {$EXTERNALSYM R2_BLACK}
  10989.   R2_BLACK       = 1;     {  0   }
  10990.   {$EXTERNALSYM R2_NOTMERGEPEN}
  10991.   R2_NOTMERGEPEN = 2;     { DPon }
  10992.   {$EXTERNALSYM R2_MASKNOTPEN}
  10993.   R2_MASKNOTPEN  = 3;     { DPna }
  10994.   {$EXTERNALSYM R2_NOTCOPYPEN}
  10995.   R2_NOTCOPYPEN  = 4;     { PN   }
  10996.   {$EXTERNALSYM R2_MASKPENNOT}
  10997.   R2_MASKPENNOT  = 5;     { PDna }
  10998.   {$EXTERNALSYM R2_NOT}
  10999.   R2_NOT         = 6;     { Dn   }
  11000.   {$EXTERNALSYM R2_XORPEN}
  11001.   R2_XORPEN      = 7;     { DPx  }
  11002.   {$EXTERNALSYM R2_NOTMASKPEN}
  11003.   R2_NOTMASKPEN  = 8;     { DPan }
  11004.   {$EXTERNALSYM R2_MASKPEN}
  11005.   R2_MASKPEN     = 9;     { DPa  }
  11006.   {$EXTERNALSYM R2_NOTXORPEN}
  11007.   R2_NOTXORPEN   = 10;    { DPxn }
  11008.   {$EXTERNALSYM R2_NOP}
  11009.   R2_NOP         = 11;    { D    }
  11010.   {$EXTERNALSYM R2_MERGENOTPEN}
  11011.   R2_MERGENOTPEN = 12;    { DPno }
  11012.   {$EXTERNALSYM R2_COPYPEN}
  11013.   R2_COPYPEN     = 13;    { P    }
  11014.   {$EXTERNALSYM R2_MERGEPENNOT}
  11015.   R2_MERGEPENNOT = 14;    { PDno }
  11016.   {$EXTERNALSYM R2_MERGEPEN}
  11017.   R2_MERGEPEN    = 15;    { DPo  }
  11018.   {$EXTERNALSYM R2_WHITE}
  11019.   R2_WHITE       = $10;   {  1   }
  11020.   {$EXTERNALSYM R2_LAST}
  11021.   R2_LAST        = $10;
  11022.  
  11023.  
  11024.   { Ternary raster operations }
  11025.   {$EXTERNALSYM SRCCOPY}
  11026.   SRCCOPY     = $00CC0020;     { dest = source                    }
  11027.   {$EXTERNALSYM SRCPAINT}
  11028.   SRCPAINT    = $00EE0086;     { dest = source OR dest            }
  11029.   {$EXTERNALSYM SRCAND}
  11030.   SRCAND      = $008800C6;     { dest = source AND dest           }
  11031.   {$EXTERNALSYM SRCINVERT}
  11032.   SRCINVERT   = $00660046;     { dest = source XOR dest           }
  11033.   {$EXTERNALSYM SRCERASE}
  11034.   SRCERASE    = $00440328;     { dest = source AND (NOT dest )    }
  11035.   {$EXTERNALSYM NOTSRCCOPY}
  11036.   NOTSRCCOPY  = $00330008;     { dest = (NOT source)              }
  11037.   {$EXTERNALSYM NOTSRCERASE}
  11038.   NOTSRCERASE = $001100A6;     { dest = (NOT src) AND (NOT dest)  }
  11039.   {$EXTERNALSYM MERGECOPY}
  11040.   MERGECOPY   = $00C000CA;     { dest = (source AND pattern)      }
  11041.   {$EXTERNALSYM MERGEPAINT}
  11042.   MERGEPAINT  = $00BB0226;     { dest = (NOT source) OR dest      }
  11043.   {$EXTERNALSYM PATCOPY}
  11044.   PATCOPY     = $00F00021;     { dest = pattern                   }
  11045.   {$EXTERNALSYM PATPAINT}
  11046.   PATPAINT    = $00FB0A09;     { dest = DPSnoo                    }
  11047.   {$EXTERNALSYM PATINVERT}
  11048.   PATINVERT   = $005A0049;     { dest = pattern XOR dest          }
  11049.   {$EXTERNALSYM DSTINVERT}
  11050.   DSTINVERT   = $00550009;     { dest = (NOT dest)                }
  11051.   {$EXTERNALSYM BLACKNESS}
  11052.   BLACKNESS   = $00000042;     { dest = BLACK                     }
  11053.   {$EXTERNALSYM WHITENESS}
  11054.   WHITENESS   = $00FF0062;     { dest = WHITE                     }
  11055.  
  11056.  
  11057. { Quaternary raster codes }
  11058.  
  11059. function MakeROP4(fore,back: DWORD): DWORD;
  11060.  
  11061. const
  11062.   {$EXTERNALSYM GDI_ERROR}
  11063.   GDI_ERROR = $FFFFFFFF;
  11064.   {$EXTERNALSYM HGDI_ERROR}
  11065.   HGDI_ERROR = $FFFFFFFF;
  11066.  
  11067.  
  11068.   { Region Flags }
  11069.   {$EXTERNALSYM ERROR}
  11070.   ERROR = 0;
  11071.   {$EXTERNALSYM NULLREGION}
  11072.   NULLREGION = 1;
  11073.   {$EXTERNALSYM SIMPLEREGION}
  11074.   SIMPLEREGION = 2;
  11075.   {$EXTERNALSYM COMPLEXREGION}
  11076.   COMPLEXREGION = 3;
  11077.   {$EXTERNALSYM RGN_ERROR}
  11078.   RGN_ERROR = ERROR;
  11079.  
  11080.  
  11081.   { CombineRgn() Styles }
  11082.   {$EXTERNALSYM RGN_AND}
  11083.   RGN_AND = 1;
  11084.   {$EXTERNALSYM RGN_OR}
  11085.   RGN_OR = 2;
  11086.   {$EXTERNALSYM RGN_XOR}
  11087.   RGN_XOR = 3;
  11088.   {$EXTERNALSYM RGN_DIFF}
  11089.   RGN_DIFF = 4;
  11090.   {$EXTERNALSYM RGN_COPY}
  11091.   RGN_COPY = 5;
  11092.   {$EXTERNALSYM RGN_MIN}
  11093.   RGN_MIN = RGN_AND;
  11094.   {$EXTERNALSYM RGN_MAX}
  11095.   RGN_MAX = RGN_COPY;
  11096.  
  11097.   { StretchBlt() Modes }
  11098.   {$EXTERNALSYM BLACKONWHITE}
  11099.   BLACKONWHITE = 1;
  11100.   {$EXTERNALSYM WHITEONBLACK}
  11101.   WHITEONBLACK = 2;
  11102.   {$EXTERNALSYM COLORONCOLOR}
  11103.   COLORONCOLOR = 3;
  11104.   {$EXTERNALSYM HALFTONE}
  11105.   HALFTONE = 4;
  11106.   {$EXTERNALSYM MAXSTRETCHBLTMODE}
  11107.   MAXSTRETCHBLTMODE = 4;
  11108.  
  11109.  
  11110.   { New StretchBlt() Modes }
  11111.   {$EXTERNALSYM STRETCH_ANDSCANS}
  11112.   STRETCH_ANDSCANS = BLACKONWHITE;
  11113.   {$EXTERNALSYM STRETCH_ORSCANS}
  11114.   STRETCH_ORSCANS = WHITEONBLACK;
  11115.   {$EXTERNALSYM STRETCH_DELETESCANS}
  11116.   STRETCH_DELETESCANS = COLORONCOLOR;
  11117.   {$EXTERNALSYM STRETCH_HALFTONE}
  11118.   STRETCH_HALFTONE = HALFTONE;
  11119.  
  11120.  
  11121.   { PolyFill() Modes }
  11122.   {$EXTERNALSYM ALTERNATE}
  11123.   ALTERNATE = 1;
  11124.   {$EXTERNALSYM WINDING}
  11125.   WINDING = 2;
  11126.   {$EXTERNALSYM POLYFILL_LAST}
  11127.   POLYFILL_LAST = 2;
  11128.  
  11129.  
  11130.   { Text Alignment Options }
  11131.   {$EXTERNALSYM TA_NOUPDATECP}
  11132.   TA_NOUPDATECP = 0;
  11133.   {$EXTERNALSYM TA_UPDATECP}
  11134.   TA_UPDATECP = 1;
  11135.   {$EXTERNALSYM TA_LEFT}
  11136.   TA_LEFT = 0;
  11137.   {$EXTERNALSYM TA_RIGHT}
  11138.   TA_RIGHT = 2;
  11139.   {$EXTERNALSYM TA_CENTER}
  11140.   TA_CENTER = 6;
  11141.   {$EXTERNALSYM TA_TOP}
  11142.   TA_TOP = 0;
  11143.   {$EXTERNALSYM TA_BOTTOM}
  11144.   TA_BOTTOM = 8;
  11145.   {$EXTERNALSYM TA_BASELINE}
  11146.   TA_BASELINE = 24;
  11147.   {$EXTERNALSYM TA_RTLREADING}
  11148.   TA_RTLREADING = $100;
  11149.   {$EXTERNALSYM TA_MASK}
  11150.   TA_MASK =  (TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING);
  11151.  
  11152.   {$EXTERNALSYM VTA_BASELINE}
  11153.   VTA_BASELINE = TA_BASELINE;
  11154.   {$EXTERNALSYM VTA_LEFT}
  11155.   VTA_LEFT = TA_BOTTOM;
  11156.   {$EXTERNALSYM VTA_RIGHT}
  11157.   VTA_RIGHT = TA_TOP;
  11158.   {$EXTERNALSYM VTA_CENTER}
  11159.   VTA_CENTER = TA_CENTER;
  11160.   {$EXTERNALSYM VTA_BOTTOM}
  11161.   VTA_BOTTOM = TA_RIGHT;
  11162.   {$EXTERNALSYM VTA_TOP}
  11163.   VTA_TOP = TA_LEFT;
  11164.  
  11165.   {$EXTERNALSYM ETO_OPAQUE}
  11166.   ETO_OPAQUE = 2;
  11167.   {$EXTERNALSYM ETO_CLIPPED}
  11168.   ETO_CLIPPED = 4;
  11169.   {$EXTERNALSYM ETO_GLYPH_INDEX}
  11170.   ETO_GLYPH_INDEX = $10;
  11171.   {$EXTERNALSYM ETO_RTLREADING}
  11172.   ETO_RTLREADING = $80;
  11173.   {$EXTERNALSYM ETO_IGNORELANGUAGE}
  11174.   ETO_IGNORELANGUAGE = $1000;
  11175.  
  11176.   {$EXTERNALSYM ASPECT_FILTERING}
  11177.   ASPECT_FILTERING = 1;
  11178.  
  11179.  
  11180.   { Bounds Accumulation APIs }
  11181.   {$EXTERNALSYM DCB_RESET}
  11182.   DCB_RESET = 1;
  11183.   {$EXTERNALSYM DCB_ACCUMULATE}
  11184.   DCB_ACCUMULATE = 2;
  11185.   {$EXTERNALSYM DCB_DIRTY}
  11186.   DCB_DIRTY = DCB_ACCUMULATE;
  11187.   {$EXTERNALSYM DCB_SET}
  11188.   DCB_SET = (DCB_RESET or DCB_ACCUMULATE);
  11189.   {$EXTERNALSYM DCB_ENABLE}
  11190.   DCB_ENABLE = 4;
  11191.   {$EXTERNALSYM DCB_DISABLE}
  11192.   DCB_DISABLE = 8;
  11193.  
  11194.   { Metafile Functions }
  11195.   {$EXTERNALSYM META_SETBKCOLOR}
  11196.   META_SETBKCOLOR = 513;
  11197.   {$EXTERNALSYM META_SETBKMODE}
  11198.   META_SETBKMODE = 258;
  11199.   {$EXTERNALSYM META_SETMAPMODE}
  11200.   META_SETMAPMODE = 259;
  11201.   {$EXTERNALSYM META_SETROP2}
  11202.   META_SETROP2 = 260;
  11203.   {$EXTERNALSYM META_SETRELABS}
  11204.   META_SETRELABS = 261;
  11205.   {$EXTERNALSYM META_SETPOLYFILLMODE}
  11206.   META_SETPOLYFILLMODE = 262;
  11207.   {$EXTERNALSYM META_SETSTRETCHBLTMODE}
  11208.   META_SETSTRETCHBLTMODE = 263;
  11209.   {$EXTERNALSYM META_SETTEXTCHAREXTRA}
  11210.   META_SETTEXTCHAREXTRA = 264;
  11211.   {$EXTERNALSYM META_SETTEXTCOLOR}
  11212.   META_SETTEXTCOLOR = 521;
  11213.   {$EXTERNALSYM META_SETTEXTJUSTIFICATION}
  11214.   META_SETTEXTJUSTIFICATION = 522;
  11215.   {$EXTERNALSYM META_SETWINDOWORG}
  11216.   META_SETWINDOWORG = 523;
  11217.   {$EXTERNALSYM META_SETWINDOWEXT}
  11218.   META_SETWINDOWEXT = 524;
  11219.   {$EXTERNALSYM META_SETVIEWPORTORG}
  11220.   META_SETVIEWPORTORG = 525;
  11221.   {$EXTERNALSYM META_SETVIEWPORTEXT}
  11222.   META_SETVIEWPORTEXT = 526;
  11223.   {$EXTERNALSYM META_OFFSETWINDOWORG}
  11224.   META_OFFSETWINDOWORG = 527;
  11225.   {$EXTERNALSYM META_SCALEWINDOWEXT}
  11226.   META_SCALEWINDOWEXT = 1040;
  11227.   {$EXTERNALSYM META_OFFSETVIEWPORTORG}
  11228.   META_OFFSETVIEWPORTORG = 529;
  11229.   {$EXTERNALSYM META_SCALEVIEWPORTEXT}
  11230.   META_SCALEVIEWPORTEXT = 1042;
  11231.   {$EXTERNALSYM META_LINETO}
  11232.   META_LINETO = 531;
  11233.   {$EXTERNALSYM META_MOVETO}
  11234.   META_MOVETO = 532;
  11235.   {$EXTERNALSYM META_EXCLUDECLIPRECT}
  11236.   META_EXCLUDECLIPRECT = 1045;
  11237.   {$EXTERNALSYM META_INTERSECTCLIPRECT}
  11238.   META_INTERSECTCLIPRECT = 1046;
  11239.   {$EXTERNALSYM META_ARC}
  11240.   META_ARC = 2071;
  11241.   {$EXTERNALSYM META_ELLIPSE}
  11242.   META_ELLIPSE = 1048;
  11243.   {$EXTERNALSYM META_FLOODFILL}
  11244.   META_FLOODFILL = 1049;
  11245.   {$EXTERNALSYM META_PIE}
  11246.   META_PIE = 2074;
  11247.   {$EXTERNALSYM META_RECTANGLE}
  11248.   META_RECTANGLE = 1051;
  11249.   {$EXTERNALSYM META_ROUNDRECT}
  11250.   META_ROUNDRECT = 1564;
  11251.   {$EXTERNALSYM META_PATBLT}
  11252.   META_PATBLT = 1565;
  11253.   {$EXTERNALSYM META_SAVEDC}
  11254.   META_SAVEDC = 30;
  11255.   {$EXTERNALSYM META_SETPIXEL}
  11256.   META_SETPIXEL = 1055;
  11257.   {$EXTERNALSYM META_OFFSETCLIPRGN}
  11258.   META_OFFSETCLIPRGN = 544;
  11259.   {$EXTERNALSYM META_TEXTOUT}
  11260.   META_TEXTOUT = 1313;
  11261.   {$EXTERNALSYM META_BITBLT}
  11262.   META_BITBLT = 2338;
  11263.   {$EXTERNALSYM META_STRETCHBLT}
  11264.   META_STRETCHBLT = 2851;
  11265.   {$EXTERNALSYM META_POLYGON}
  11266.   META_POLYGON = 804;
  11267.   {$EXTERNALSYM META_POLYLINE}
  11268.   META_POLYLINE = 805;
  11269.   {$EXTERNALSYM META_ESCAPE}
  11270.   META_ESCAPE = 1574;
  11271.   {$EXTERNALSYM META_RESTOREDC}
  11272.   META_RESTOREDC = 295;
  11273.   {$EXTERNALSYM META_FILLREGION}
  11274.   META_FILLREGION = 552;
  11275.   {$EXTERNALSYM META_FRAMEREGION}
  11276.   META_FRAMEREGION = 1065;
  11277.   {$EXTERNALSYM META_INVERTREGION}
  11278.   META_INVERTREGION = 298;
  11279.   {$EXTERNALSYM META_PAINTREGION}
  11280.   META_PAINTREGION = 299;
  11281.   {$EXTERNALSYM META_SELECTCLIPREGION}
  11282.   META_SELECTCLIPREGION = 300;
  11283.   {$EXTERNALSYM META_SELECTOBJECT}
  11284.   META_SELECTOBJECT = 301;
  11285.   {$EXTERNALSYM META_SETTEXTALIGN}
  11286.   META_SETTEXTALIGN = 302;
  11287.   {$EXTERNALSYM META_CHORD}
  11288.   META_CHORD = 2096;
  11289.   {$EXTERNALSYM META_SETMAPPERFLAGS}
  11290.   META_SETMAPPERFLAGS = 561;
  11291.   {$EXTERNALSYM META_EXTTEXTOUT}
  11292.   META_EXTTEXTOUT = 2610;
  11293.   {$EXTERNALSYM META_SETDIBTODEV}
  11294.   META_SETDIBTODEV = 3379;
  11295.   {$EXTERNALSYM META_SELECTPALETTE}
  11296.   META_SELECTPALETTE = 564;
  11297.   {$EXTERNALSYM META_REALIZEPALETTE}
  11298.   META_REALIZEPALETTE = 53;
  11299.   {$EXTERNALSYM META_ANIMATEPALETTE}
  11300.   META_ANIMATEPALETTE = 1078;
  11301.   {$EXTERNALSYM META_SETPALENTRIES}
  11302.   META_SETPALENTRIES = 55;
  11303.   {$EXTERNALSYM META_POLYPOLYGON}
  11304.   META_POLYPOLYGON = 1336;
  11305.   {$EXTERNALSYM META_RESIZEPALETTE}
  11306.   META_RESIZEPALETTE = 313;
  11307.   {$EXTERNALSYM META_DIBBITBLT}
  11308.   META_DIBBITBLT = 2368;
  11309.   {$EXTERNALSYM META_DIBSTRETCHBLT}
  11310.   META_DIBSTRETCHBLT = 2881;
  11311.   {$EXTERNALSYM META_DIBCREATEPATTERNBRUSH}
  11312.   META_DIBCREATEPATTERNBRUSH = 322;
  11313.   {$EXTERNALSYM META_STRETCHDIB}
  11314.   META_STRETCHDIB = 3907;
  11315.   {$EXTERNALSYM META_EXTFLOODFILL}
  11316.   META_EXTFLOODFILL = 1352;
  11317.   {$EXTERNALSYM META_DELETEOBJECT}
  11318.   META_DELETEOBJECT = 496;
  11319.   {$EXTERNALSYM META_CREATEPALETTE}
  11320.   META_CREATEPALETTE = 247;
  11321.   {$EXTERNALSYM META_CREATEPATTERNBRUSH}
  11322.   META_CREATEPATTERNBRUSH = 505;
  11323.   {$EXTERNALSYM META_CREATEPENINDIRECT}
  11324.   META_CREATEPENINDIRECT = 762;
  11325.   {$EXTERNALSYM META_CREATEFONTINDIRECT}
  11326.   META_CREATEFONTINDIRECT = 763;
  11327.   {$EXTERNALSYM META_CREATEBRUSHINDIRECT}
  11328.   META_CREATEBRUSHINDIRECT = 764;
  11329.   {$EXTERNALSYM META_CREATEREGION}
  11330.   META_CREATEREGION = 1791;
  11331.  
  11332.  
  11333.   { GDI Escapes }
  11334.   {$EXTERNALSYM NEWFRAME}
  11335.   NEWFRAME = 1;
  11336.   _ABORTDOC = 2; { Renamed }
  11337.   {$EXTERNALSYM NEXTBAND}
  11338.   NEXTBAND = 3;
  11339.   {$EXTERNALSYM SETCOLORTABLE}
  11340.   SETCOLORTABLE = 4;
  11341.   {$EXTERNALSYM GETCOLORTABLE}
  11342.   GETCOLORTABLE = 5;
  11343.   {$EXTERNALSYM FLUSHOUTPUT}
  11344.   FLUSHOUTPUT = 6;
  11345.   {$EXTERNALSYM DRAFTMODE}
  11346.   DRAFTMODE = 7;
  11347.   {$EXTERNALSYM QUERYESCSUPPORT}
  11348.   QUERYESCSUPPORT = 8;
  11349.   _SETABORTPROC = 9; { Renamed }
  11350.   _STARTDOC = 10; { Renamed }
  11351.   _ENDDOC = 11; { Renamed }
  11352.   {$EXTERNALSYM GETPHYSPAGESIZE}
  11353.   GETPHYSPAGESIZE = 12;
  11354.   {$EXTERNALSYM GETPRINTINGOFFSET}
  11355.   GETPRINTINGOFFSET = 13;
  11356.   {$EXTERNALSYM GETSCALINGFACTOR}
  11357.   GETSCALINGFACTOR = 14;
  11358.   {$EXTERNALSYM MFCOMMENT}
  11359.   MFCOMMENT = 15;
  11360.   {$EXTERNALSYM GETPENWIDTH}
  11361.   GETPENWIDTH = $10;
  11362.   {$EXTERNALSYM SETCOPYCOUNT}
  11363.   SETCOPYCOUNT = 17;
  11364.   {$EXTERNALSYM SELECTPAPERSOURCE}
  11365.   SELECTPAPERSOURCE = 18;
  11366.   {$EXTERNALSYM DEVICEDATA}
  11367.   DEVICEDATA = 19;
  11368.   {$EXTERNALSYM PASSTHROUGH}
  11369.   PASSTHROUGH = 19;
  11370.   {$EXTERNALSYM GETTECHNOLGY}
  11371.   GETTECHNOLGY = 20;
  11372.   {$EXTERNALSYM GETTECHNOLOGY}
  11373.   GETTECHNOLOGY = 20;
  11374.   {$EXTERNALSYM SETLINECAP}
  11375.   SETLINECAP = 21;
  11376.   {$EXTERNALSYM SETLINEJOIN}
  11377.   SETLINEJOIN = 22;
  11378.   _SETMITERLIMIT = 23; { Renamed }
  11379.   {$EXTERNALSYM BANDINFO}
  11380.   BANDINFO = 24;
  11381.   {$EXTERNALSYM DRAWPATTERNRECT}
  11382.   DRAWPATTERNRECT = 25;
  11383.   {$EXTERNALSYM GETVECTORPENSIZE}
  11384.   GETVECTORPENSIZE = 26;
  11385.   {$EXTERNALSYM GETVECTORBRUSHSIZE}
  11386.   GETVECTORBRUSHSIZE = 27;
  11387.   {$EXTERNALSYM ENABLEDUPLEX}
  11388.   ENABLEDUPLEX = 28;
  11389.   {$EXTERNALSYM GETSETPAPERBINS}
  11390.   GETSETPAPERBINS = 29;
  11391.   {$EXTERNALSYM GETSETPRINTORIENT}
  11392.   GETSETPRINTORIENT = 30;
  11393.   {$EXTERNALSYM ENUMPAPERBINS}
  11394.   ENUMPAPERBINS = 31;
  11395.   {$EXTERNALSYM SETDIBSCALING}
  11396.   SETDIBSCALING = $20;
  11397.   {$EXTERNALSYM EPSPRINTING}
  11398.   EPSPRINTING = 33;
  11399.   {$EXTERNALSYM ENUMPAPERMETRICS}
  11400.   ENUMPAPERMETRICS = 34;
  11401.   {$EXTERNALSYM GETSETPAPERMETRICS}
  11402.   GETSETPAPERMETRICS = 35;
  11403.   {$EXTERNALSYM POSTSCRIPT_DATA}
  11404.   POSTSCRIPT_DATA = 37;
  11405.   {$EXTERNALSYM POSTSCRIPT_IGNORE}
  11406.   POSTSCRIPT_IGNORE = 38;
  11407.   {$EXTERNALSYM MOUSETRAILS}
  11408.   MOUSETRAILS = 39;
  11409.   {$EXTERNALSYM GETDEVICEUNITS}
  11410.   GETDEVICEUNITS = 42;
  11411.  
  11412.   {$EXTERNALSYM GETEXTENDEDTEXTMETRICS}
  11413.   GETEXTENDEDTEXTMETRICS = 256;
  11414.   {$EXTERNALSYM GETEXTENTTABLE}
  11415.   GETEXTENTTABLE = 257;
  11416.   {$EXTERNALSYM GETPAIRKERNTABLE}
  11417.   GETPAIRKERNTABLE = 258;
  11418.   {$EXTERNALSYM GETTRACKKERNTABLE}
  11419.   GETTRACKKERNTABLE = 259;
  11420.   _EXTTEXTOUT = $200; { Renamed }
  11421.   {$EXTERNALSYM GETFACENAME}
  11422.   GETFACENAME = 513;
  11423.   {$EXTERNALSYM DOWNLOADFACE}
  11424.   DOWNLOADFACE = 514;
  11425.   {$EXTERNALSYM ENABLERELATIVEWIDTHS}
  11426.   ENABLERELATIVEWIDTHS = 768;
  11427.   {$EXTERNALSYM ENABLEPAIRKERNING}
  11428.   ENABLEPAIRKERNING = 769;
  11429.   {$EXTERNALSYM SETKERNTRACK}
  11430.   SETKERNTRACK = 770;
  11431.   {$EXTERNALSYM SETALLJUSTVALUES}
  11432.   SETALLJUSTVALUES = 771;
  11433.   {$EXTERNALSYM SETCHARSET}
  11434.   SETCHARSET = 772;
  11435.  
  11436.   _STRETCHBLT = $800; { Renamed }
  11437.   {$EXTERNALSYM GETSETSCREENPARAMS}
  11438.   GETSETSCREENPARAMS = 3072;
  11439.   {$EXTERNALSYM QUERYDIBSUPPORT}
  11440.   QUERYDIBSUPPORT = 3073;
  11441.   {$EXTERNALSYM BEGIN_PATH}
  11442.   BEGIN_PATH = $1000;
  11443.   {$EXTERNALSYM CLIP_TO_PATH}
  11444.   CLIP_TO_PATH = 4097;
  11445.   {$EXTERNALSYM END_PATH}
  11446.   END_PATH = 4098;
  11447.   {$EXTERNALSYM EXT_DEVICE_CAPS}
  11448.   EXT_DEVICE_CAPS = 4099;
  11449.   {$EXTERNALSYM RESTORE_CTM}
  11450.   RESTORE_CTM = 4100;
  11451.   {$EXTERNALSYM SAVE_CTM}
  11452.   SAVE_CTM = 4101;
  11453.   {$EXTERNALSYM SET_ARC_DIRECTION}
  11454.   SET_ARC_DIRECTION = 4102;
  11455.   {$EXTERNALSYM SET_BACKGROUND_COLOR}
  11456.   SET_BACKGROUND_COLOR = 4103;
  11457.   {$EXTERNALSYM SET_POLY_MODE}
  11458.   SET_POLY_MODE = 4104;
  11459.   {$EXTERNALSYM SET_SCREEN_ANGLE}
  11460.   SET_SCREEN_ANGLE = 4105;
  11461.   {$EXTERNALSYM SET_SPREAD}
  11462.   SET_SPREAD = 4106;
  11463.   {$EXTERNALSYM TRANSFORM_CTM}
  11464.   TRANSFORM_CTM = 4107;
  11465.   {$EXTERNALSYM SET_CLIP_BOX}
  11466.   SET_CLIP_BOX = 4108;
  11467.   {$EXTERNALSYM SET_BOUNDS}
  11468.   SET_BOUNDS = 4109;
  11469.   {$EXTERNALSYM SET_MIRROR_MODE}
  11470.   SET_MIRROR_MODE = 4110;
  11471.   {$EXTERNALSYM OPENCHANNEL}
  11472.   OPENCHANNEL = 4110;
  11473.   {$EXTERNALSYM DOWNLOADHEADER}
  11474.   DOWNLOADHEADER = 4111;
  11475.   {$EXTERNALSYM CLOSECHANNEL}
  11476.   CLOSECHANNEL = 4112;
  11477.   {$EXTERNALSYM POSTSCRIPT_PASSTHROUGH}
  11478.   POSTSCRIPT_PASSTHROUGH = 4115;
  11479.   {$EXTERNALSYM ENCAPSULATED_POSTSCRIPT}
  11480.   ENCAPSULATED_POSTSCRIPT = 4116;
  11481.  
  11482.   { Flag returned from QUERYDIBSUPPORT }
  11483.   {$EXTERNALSYM QDI_SETDIBITS}
  11484.   QDI_SETDIBITS = 1;
  11485.   {$EXTERNALSYM QDI_GETDIBITS}
  11486.   QDI_GETDIBITS = 2;
  11487.   {$EXTERNALSYM QDI_DIBTOSCREEN}
  11488.   QDI_DIBTOSCREEN = 4;
  11489.   {$EXTERNALSYM QDI_STRETCHDIB}
  11490.   QDI_STRETCHDIB = 8;
  11491.  
  11492.  
  11493.   { Spooler Error Codes }
  11494.   {$EXTERNALSYM SP_NOTREPORTED}
  11495.   SP_NOTREPORTED = $4000;
  11496.   {$EXTERNALSYM SP_ERROR}
  11497.   SP_ERROR = -1;
  11498.   {$EXTERNALSYM SP_APPABORT}
  11499.   SP_APPABORT = -2;
  11500.   {$EXTERNALSYM SP_USERABORT}
  11501.   SP_USERABORT = -3;
  11502.   {$EXTERNALSYM SP_OUTOFDISK}
  11503.   SP_OUTOFDISK = -4;
  11504.   {$EXTERNALSYM SP_OUTOFMEMORY}
  11505.   SP_OUTOFMEMORY = -5;
  11506.  
  11507.   {$EXTERNALSYM PR_JOBSTATUS}
  11508.   PR_JOBSTATUS = 0;
  11509.  
  11510.  
  11511.   { Object Definitions for EnumObjects() }
  11512.   {$EXTERNALSYM OBJ_PEN}
  11513.   OBJ_PEN = 1;
  11514.   {$EXTERNALSYM OBJ_BRUSH}
  11515.   OBJ_BRUSH = 2;
  11516.   {$EXTERNALSYM OBJ_DC}
  11517.   OBJ_DC = 3;
  11518.   {$EXTERNALSYM OBJ_METADC}
  11519.   OBJ_METADC = 4;
  11520.   {$EXTERNALSYM OBJ_PAL}
  11521.   OBJ_PAL = 5;
  11522.   {$EXTERNALSYM OBJ_FONT}
  11523.   OBJ_FONT = 6;
  11524.   {$EXTERNALSYM OBJ_BITMAP}
  11525.   OBJ_BITMAP = 7;
  11526.   {$EXTERNALSYM OBJ_REGION}
  11527.   OBJ_REGION = 8;
  11528.   {$EXTERNALSYM OBJ_METAFILE}
  11529.   OBJ_METAFILE = 9;
  11530.   {$EXTERNALSYM OBJ_MEMDC}
  11531.   OBJ_MEMDC = 10;
  11532.   {$EXTERNALSYM OBJ_EXTPEN}
  11533.   OBJ_EXTPEN = 11;
  11534.   {$EXTERNALSYM OBJ_ENHMETADC}
  11535.   OBJ_ENHMETADC = 12;
  11536.   {$EXTERNALSYM OBJ_ENHMETAFILE}
  11537.   OBJ_ENHMETAFILE = 13;
  11538.  
  11539.  
  11540.   { xform stuff }
  11541.   {$EXTERNALSYM MWT_IDENTITY}
  11542.   MWT_IDENTITY = 1;
  11543.   {$EXTERNALSYM MWT_LEFTMULTIPLY}
  11544.   MWT_LEFTMULTIPLY = 2;
  11545.   {$EXTERNALSYM MWT_RIGHTMULTIPLY}
  11546.   MWT_RIGHTMULTIPLY = 3;
  11547.  
  11548.   {$EXTERNALSYM MWT_MIN}
  11549.   MWT_MIN = MWT_IDENTITY;
  11550.   {$EXTERNALSYM MWT_MAX}
  11551.   MWT_MAX = MWT_RIGHTMULTIPLY;
  11552.  
  11553.  
  11554. type
  11555.   PXForm = ^TXForm;
  11556.   {$EXTERNALSYM tagXFORM}
  11557.   tagXFORM = packed record
  11558.     eM11: Single;
  11559.     eM12: Single;
  11560.     eM21: Single;
  11561.     eM22: Single;
  11562.     eDx: Single;
  11563.     eDy: Single;
  11564.   end;
  11565.   TXForm = tagXFORM;
  11566.   {$EXTERNALSYM XFORM}
  11567.   XFORM = tagXFORM;
  11568.  
  11569. { Bitmap Header Definition }
  11570.   PBitmap = ^TBitmap;
  11571.   {$EXTERNALSYM tagBITMAP}
  11572.   tagBITMAP = packed record
  11573.     bmType: Longint;
  11574.     bmWidth: Longint;
  11575.     bmHeight: Longint;
  11576.     bmWidthBytes: Longint;
  11577.     bmPlanes: Word;
  11578.     bmBitsPixel: Word;
  11579.     bmBits: Pointer;
  11580.   end;
  11581.   TBitmap = tagBITMAP;
  11582.   {$EXTERNALSYM BITMAP}
  11583.   BITMAP = tagBITMAP;
  11584.  
  11585.   PRGBTriple = ^TRGBTriple;
  11586.   {$EXTERNALSYM tagRGBTRIPLE}
  11587.   tagRGBTRIPLE = packed record
  11588.     rgbtBlue: Byte;
  11589.     rgbtGreen: Byte;
  11590.     rgbtRed: Byte;
  11591.   end;
  11592.   TRGBTriple = tagRGBTRIPLE;
  11593.   {$EXTERNALSYM RGBTRIPLE}
  11594.   RGBTRIPLE = tagRGBTRIPLE;
  11595.  
  11596.   PRGBQuad = ^TRGBQuad;
  11597.   {$EXTERNALSYM tagRGBQUAD}
  11598.   tagRGBQUAD = packed record
  11599.     rgbBlue: Byte;
  11600.     rgbGreen: Byte;
  11601.     rgbRed: Byte;
  11602.     rgbReserved: Byte;
  11603.   end;
  11604.   TRGBQuad = tagRGBQUAD;
  11605.   {$EXTERNALSYM RGBQUAD}
  11606.   RGBQUAD = tagRGBQUAD;
  11607.  
  11608.  
  11609.   { Image Color Matching color definitions }
  11610.   {$EXTERNALSYM LCSCSTYPE}
  11611.   LCSCSTYPE = Longint;
  11612. const
  11613.   {$EXTERNALSYM LCS_CALIBRATED_RGB}
  11614.   LCS_CALIBRATED_RGB = 0;
  11615.   {$EXTERNALSYM LCS_DEVICE_RGB}
  11616.   LCS_DEVICE_RGB = 1;
  11617.   {$EXTERNALSYM LCS_DEVICE_CMYK}
  11618.   LCS_DEVICE_CMYK = 2;
  11619.  
  11620. type
  11621.   {$EXTERNALSYM LCSGAMUTMATCH}
  11622.   LCSGAMUTMATCH = Longint;
  11623. const
  11624.   {$EXTERNALSYM LCS_GM_BUSINESS}
  11625.   LCS_GM_BUSINESS = 1;
  11626.   {$EXTERNALSYM LCS_GM_GRAPHICS}
  11627.   LCS_GM_GRAPHICS = 2;
  11628.   {$EXTERNALSYM LCS_GM_IMAGES}
  11629.   LCS_GM_IMAGES = 4;
  11630.  
  11631.  
  11632.   { ICM Defines for results from CheckColorInGamut() }
  11633.   {$EXTERNALSYM CM_OUT_OF_GAMUT}
  11634.   CM_OUT_OF_GAMUT = 255;
  11635.   {$EXTERNALSYM CM_IN_GAMUT}
  11636.   CM_IN_GAMUT = 0;
  11637.  
  11638.  
  11639. { functions to retrieve CMYK values from a COLORREF }
  11640.  
  11641. {$EXTERNALSYM GetCValue}
  11642. function GetCValue(cmyk: COLORREF): Byte;
  11643. {$EXTERNALSYM GetMValue}
  11644. function GetMValue(cmyk: COLORREF): Byte;
  11645. {$EXTERNALSYM GetYValue}
  11646. function GetYValue(cmyk: COLORREF): Byte;
  11647. {$EXTERNALSYM GetKValue}
  11648. function GetKValue(cmyk: COLORREF): Byte;
  11649. {$EXTERNALSYM CMYK}
  11650. function CMYK(c, m, y, k: Byte): COLORREF;
  11651.  
  11652. type
  11653.   {$EXTERNALSYM FXPT16DOT16}
  11654.   FXPT16DOT16 = Longint;
  11655.   {$EXTERNALSYM LPFXPT16DOT16}
  11656.   LPFXPT16DOT16 = ^Longint;
  11657.   {$EXTERNALSYM FXPT2DOT30}
  11658.   FXPT2DOT30 = Longint;
  11659.   {$EXTERNALSYM LPFXPT2DOT30}
  11660.   LPFXPT2DOT30 = ^Longint;
  11661.  
  11662.  
  11663.   { ICM Color Definitions }
  11664.   { The following two structures are used for defining RGB's in terms of
  11665.     CIEXYZ. The values are fixed point 16.16. }
  11666.  
  11667.   PCIEXYZ = ^TCIEXYZ;
  11668.   {$EXTERNALSYM tagCIEXYZ}
  11669.   tagCIEXYZ = packed record
  11670.     ciexyzX: FXPT2DOT30;
  11671.     ciexyzY: FXPT2DOT30;
  11672.     ciexyzZ: FXPT2DOT30;
  11673.   end;
  11674.   TCIEXYZ = tagCIEXYZ;
  11675.   {$EXTERNALSYM CIEXYZ}
  11676.   CIEXYZ = tagCIEXYZ;
  11677.  
  11678.   PCIEXYZTriple = ^TCIEXYZTriple;
  11679.   {$EXTERNALSYM tagICEXYZTRIPLE}
  11680.   tagICEXYZTRIPLE = packed record
  11681.     ciexyzRed: TCIEXYZ;
  11682.     ciexyzGreen: TCIEXYZ;
  11683.     ciexyzBlue: TCIEXYZ;
  11684.   end;
  11685.   TCIEXYZTriple = tagICEXYZTRIPLE;
  11686.   {$EXTERNALSYM CIEXYZTRIPLE}
  11687.   CIEXYZTRIPLE = tagICEXYZTRIPLE;
  11688.  
  11689.   { The next structures the logical color space. Unlike pens and brushes,
  11690.     but like palettes, there is only one way to create a LogColorSpace.
  11691.     A pointer to it must be passed, its elements can't be pushed as
  11692.     arguments. }
  11693.  
  11694. type
  11695.   PLogColorSpaceA = ^TLogColorSpaceA;
  11696.   PLogColorSpaceW = ^TLogColorSpaceW;
  11697.   PLogColorSpace = PLogColorSpaceA;
  11698.   {$EXTERNALSYM tagLOGCOLORSPACEA}
  11699.   tagLOGCOLORSPACEA = packed record
  11700.     lcsSignature: DWORD;
  11701.     lcsVersion: DWORD;
  11702.     lcsSize: DWORD;
  11703.     lcsCSType: LCSCSTYPE;
  11704.     lcsIntent: LCSGAMUTMATCH;
  11705.     lcsEndpoints: TCIEXYZTriple;
  11706.     lcsGammaRed: DWORD;
  11707.     lcsGammaGreen: DWORD;
  11708.     lcsGammaBlue: DWORD;
  11709.     lcsFilename: array[0..259] of AnsiChar;
  11710.   end;
  11711.   {$EXTERNALSYM tagLOGCOLORSPACEW}
  11712.   tagLOGCOLORSPACEW = packed record
  11713.     lcsSignature: DWORD;
  11714.     lcsVersion: DWORD;
  11715.     lcsSize: DWORD;
  11716.     lcsCSType: LCSCSTYPE;
  11717.     lcsIntent: LCSGAMUTMATCH;
  11718.     lcsEndpoints: TCIEXYZTriple;
  11719.     lcsGammaRed: DWORD;
  11720.     lcsGammaGreen: DWORD;
  11721.     lcsGammaBlue: DWORD;
  11722.     lcsFilename: array[0..259] of WideChar;
  11723.   end;
  11724.   {$EXTERNALSYM tagLOGCOLORSPACE}
  11725.   tagLOGCOLORSPACE = tagLOGCOLORSPACEA;
  11726.   TLogColorSpaceA = tagLOGCOLORSPACEA;
  11727.   TLogColorSpaceW = tagLOGCOLORSPACEW;
  11728.   TLogColorSpace = TLogColorSpaceA;
  11729.   {$EXTERNALSYM LOGCOLORSPACEA}
  11730.   LOGCOLORSPACEA = tagLOGCOLORSPACEA;
  11731.   {$EXTERNALSYM LOGCOLORSPACEW}
  11732.   LOGCOLORSPACEW = tagLOGCOLORSPACEW;
  11733.   {$EXTERNALSYM LOGCOLORSPACE}
  11734.   LOGCOLORSPACE = LOGCOLORSPACEA;
  11735.  
  11736.   { structures for defining DIBs - used to get to color table }
  11737.   PBitmapCoreHeader = ^TBitmapCoreHeader;
  11738.   {$EXTERNALSYM tagBITMAPCOREHEADER}
  11739.   tagBITMAPCOREHEADER = packed record
  11740.     bcSize: DWORD;
  11741.     bcWidth: Word;
  11742.     bcHeight: Word;
  11743.     bcPlanes: Word;
  11744.     bcBitCount: Word;
  11745.   end;
  11746.   TBitmapCoreHeader = tagBITMAPCOREHEADER;
  11747.   {$EXTERNALSYM BITMAPCOREHEADER}
  11748.   BITMAPCOREHEADER = tagBITMAPCOREHEADER;
  11749.  
  11750.   PBitmapInfoHeader = ^TBitmapInfoHeader;
  11751.   {$EXTERNALSYM tagBITMAPINFOHEADER}
  11752.   tagBITMAPINFOHEADER = packed record
  11753.     biSize: DWORD;
  11754.     biWidth: Longint;
  11755.     biHeight: Longint;
  11756.     biPlanes: Word;
  11757.     biBitCount: Word;
  11758.     biCompression: DWORD;
  11759.     biSizeImage: DWORD;
  11760.     biXPelsPerMeter: Longint;
  11761.     biYPelsPerMeter: Longint;
  11762.     biClrUsed: DWORD;
  11763.     biClrImportant: DWORD;
  11764.   end;
  11765.   TBitmapInfoHeader = tagBITMAPINFOHEADER;
  11766.   {$EXTERNALSYM BITMAPINFOHEADER}
  11767.   BITMAPINFOHEADER = tagBITMAPINFOHEADER;
  11768.  
  11769.   PBitmapV4Header = ^TBitmapV4Header;
  11770.   {$EXTERNALSYM BITMAPV4HEADER}
  11771.   BITMAPV4HEADER = packed record
  11772.     bV4Size: DWORD;
  11773.     bV4Width: Longint;
  11774.     bV4Height: Longint;
  11775.     bV4Planes: Word;
  11776.     bV4BitCount: Word;
  11777.     bV4V4Compression: DWORD;
  11778.     bV4SizeImage: DWORD;
  11779.     bV4XPelsPerMeter: Longint;
  11780.     bV4YPelsPerMeter: Longint;
  11781.     bV4ClrUsed: DWORD;
  11782.     bV4ClrImportant: DWORD;
  11783.     bV4RedMask: DWORD;
  11784.     bV4GreenMask: DWORD;
  11785.     bV4BlueMask: DWORD;
  11786.     bV4AlphaMask: DWORD;
  11787.     bV4CSType: DWORD;
  11788.     bV4Endpoints: TCIEXYZTriple;
  11789.     bV4GammaRed: DWORD;
  11790.     bV4GammaGreen: DWORD;
  11791.     bV4GammaBlue: DWORD;
  11792.   end;
  11793.   TBitmapV4Header = BITMAPV4HEADER;
  11794.  
  11795. const
  11796.   { constants for the biCompression field }
  11797.   {$EXTERNALSYM BI_RGB}
  11798.   BI_RGB = 0;
  11799.   {$EXTERNALSYM BI_RLE8}
  11800.   BI_RLE8 = 1;
  11801.   {$EXTERNALSYM BI_RLE4}
  11802.   BI_RLE4 = 2;
  11803.   {$EXTERNALSYM BI_BITFIELDS}
  11804.   BI_BITFIELDS = 3;
  11805.  
  11806. type
  11807.   PBitmapInfo = ^TBitmapInfo;
  11808.   {$EXTERNALSYM tagBITMAPINFO}
  11809.   tagBITMAPINFO = packed record
  11810.     bmiHeader: TBitmapInfoHeader;
  11811.     bmiColors: array[0..0] of TRGBQuad;
  11812.   end;
  11813.   TBitmapInfo = tagBITMAPINFO;
  11814.   {$EXTERNALSYM BITMAPINFO}
  11815.   BITMAPINFO = tagBITMAPINFO;
  11816.  
  11817.   PBitmapCoreInfo = ^TBitmapCoreInfo;
  11818.   {$EXTERNALSYM tagBITMAPCOREINFO}
  11819.   tagBITMAPCOREINFO = record
  11820.     bmciHeader: TBitmapCoreHeader;
  11821.     bmciColors: array[0..0] of TRGBTriple;
  11822.     Reserved: array[0..0] of Char;
  11823.   end;
  11824.   TBitmapCoreInfo = tagBITMAPCOREINFO;
  11825.   {$EXTERNALSYM BITMAPCOREINFO}
  11826.   BITMAPCOREINFO = tagBITMAPCOREINFO;
  11827.  
  11828.   PBitmapFileHeader = ^TBitmapFileHeader;
  11829.   {$EXTERNALSYM tagBITMAPFILEHEADER}
  11830.   tagBITMAPFILEHEADER = packed record
  11831.     bfType: Word;
  11832.     bfSize: DWORD;
  11833.     bfReserved1: Word;
  11834.     bfReserved2: Word;
  11835.     bfOffBits: DWORD;
  11836.   end;
  11837.   TBitmapFileHeader = tagBITMAPFILEHEADER;
  11838.   {$EXTERNALSYM BITMAPFILEHEADER}
  11839.   BITMAPFILEHEADER = tagBITMAPFILEHEADER;
  11840.  
  11841.   PFontSignature = ^TFontSignature;
  11842.   {$EXTERNALSYM tagFONTSIGNATURE}
  11843.   tagFONTSIGNATURE = packed record
  11844.     fsUsb: array[0..3] of DWORD;
  11845.     fsCsb: array[0..1] of DWORD;
  11846.   end;
  11847.   TFontSignature = tagFONTSIGNATURE;
  11848.   {$EXTERNALSYM FONTSIGNATURE}
  11849.   FONTSIGNATURE = tagFONTSIGNATURE;
  11850.  
  11851.   PCharsetInfo = ^TCharsetInfo;
  11852.   {$EXTERNALSYM tagCHARSETINFO}
  11853.   tagCHARSETINFO = packed record
  11854.     ciCharset: UINT;
  11855.     ciACP: UINT;
  11856.     fs: TFontSignature;
  11857.   end;
  11858.   TCharsetInfo = tagCHARSETINFO;
  11859.   {$EXTERNALSYM CHARSETINFO}
  11860.   CHARSETINFO = tagCHARSETINFO;
  11861.  
  11862. const
  11863.   {$EXTERNALSYM TCI_SRCCHARSET}
  11864.   TCI_SRCCHARSET = 1;
  11865.   {$EXTERNALSYM TCI_SRCCODEPAGE}
  11866.   TCI_SRCCODEPAGE = 2;
  11867.   {$EXTERNALSYM TCI_SRCFONTSIG}
  11868.   TCI_SRCFONTSIG = 3;
  11869.  
  11870. type
  11871.   PLocaleSignature = ^TLocaleSignature;
  11872.   {$EXTERNALSYM tagLOCALESIGNATURE}
  11873.   tagLOCALESIGNATURE = packed record
  11874.     lsUsb: array[0..3] of DWORD;
  11875.     lsCsbDefault: array[0..1] of DWORD;
  11876.     lsCsbSupported: array[0..1] of DWORD;
  11877.   end;
  11878.   TLocaleSignature = tagLOCALESIGNATURE;
  11879.   {$EXTERNALSYM LOCALESIGNATURE}
  11880.   LOCALESIGNATURE = tagLOCALESIGNATURE;
  11881.  
  11882.   { Clipboard Metafile Picture Structure }
  11883.   PHandleTable = ^THandleTable;
  11884.   {$EXTERNALSYM tagHANDLETABLE}
  11885.   tagHANDLETABLE = packed record
  11886.     objectHandle: array[0..0] of HGDIOBJ;
  11887.   end;
  11888.   THandleTable = tagHANDLETABLE;
  11889.   {$EXTERNALSYM HANDLETABLE}
  11890.   HANDLETABLE = tagHANDLETABLE;
  11891.  
  11892.   PMetaRecord = ^TMetaRecord;
  11893.   {$EXTERNALSYM tagMETARECORD}
  11894.   tagMETARECORD = packed record
  11895.     rdSize: DWORD;
  11896.     rdFunction: Word;
  11897.     rdParm: array[0..0] of Word;
  11898.   end;
  11899.   TMetaRecord = tagMETARECORD;
  11900.   {$EXTERNALSYM METARECORD}
  11901.   METARECORD = tagMETARECORD;
  11902.  
  11903.   PMetafilePict = ^TMetafilePict;
  11904.   {$EXTERNALSYM tagMETAFILEPICT}
  11905.   tagMETAFILEPICT = packed record
  11906.     mm: Longint;
  11907.     xExt: Longint;
  11908.     yExt: Longint;
  11909.     hMF: HMETAFILE;
  11910.   end;
  11911.   TMetafilePict = tagMETAFILEPICT;
  11912.   {$EXTERNALSYM METAFILEPICT}
  11913.   METAFILEPICT = tagMETAFILEPICT;
  11914.  
  11915.   PMetaHeader = ^TMetaHeader;
  11916.   {$EXTERNALSYM tagMETAHEADER}
  11917.   tagMETAHEADER = packed record
  11918.     mtType: Word;
  11919.     mtHeaderSize: Word;
  11920.     mtVersion: Word;
  11921.     mtSize: DWORD;
  11922.     mtNoObjects: Word;
  11923.     mtMaxRecord: DWORD;
  11924.     mtNoParameters: Word;
  11925.   end;
  11926.   TMetaHeader = tagMETAHEADER;
  11927.   {$EXTERNALSYM METAHEADER}
  11928.   METAHEADER = tagMETAHEADER;
  11929.  
  11930.   { Enhanced Metafile structures }
  11931.  
  11932.   PEnhMetaRecord = ^TEnhMetaRecord;
  11933.   {$EXTERNALSYM tagENHMETARECORD}
  11934.   tagENHMETARECORD = packed record
  11935.     iType: DWORD; { Record type EMR_XXX}
  11936.     nSize: DWORD; { Record size in bytes}
  11937.     dParm: array[0..0] of DWORD; { Parameters}
  11938.   end;
  11939.   TEnhMetaRecord = tagENHMETARECORD;
  11940.   {$EXTERNALSYM ENHMETARECORD}
  11941.   ENHMETARECORD = tagENHMETARECORD;
  11942.  
  11943.   PEnhMetaHeader = ^TEnhMetaHeader;
  11944.   {$EXTERNALSYM tagENHMETAHEADER}
  11945.   tagENHMETAHEADER = packed record
  11946.     iType: DWORD;          { Record type EMR_HEADER}
  11947.     nSize: DWORD;          { Record size in bytes.  This may be greater
  11948.                              than the sizeof(TEnhMetaHeader). }
  11949.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  11950.     rclFrame: TRect;      { Inclusive-inclusive Picture Frame of metafile in .01 mm units}
  11951.     dSignature: DWORD;     { Signature.  Must be ENHMETA_SIGNATURE.}
  11952.     nVersion: DWORD;       { Version number}
  11953.     nBytes: DWORD;         { Size of the metafile in bytes}
  11954.     nRecords: DWORD;       { Number of records in the metafile}
  11955.     nHandles: Word;        { Number of handles in the handle table
  11956.                              Handle index zero is reserved. }
  11957.     sReserved: Word;       { Reserved.  Must be zero.}
  11958.     nDescription: DWORD;   { Number of chars in the unicode description string
  11959.                              This is 0 if there is no description string }
  11960.     offDescription: DWORD; { Offset to the metafile description record. }
  11961.                            { This is 0 if there is no description string }
  11962.     nPalEntries: DWORD;    { Number of entries in the metafile palette.}
  11963.     szlDevice: TSize;      { Size of the reference device in pels}
  11964.     szlMillimeters: TSize; { Size of the reference device in millimeters}
  11965.     cbPixelFormat: DWORD;  { Size of TPixelFormatDescriptor information }
  11966.                            { This is 0 if no pixel format is set }
  11967.     offPixelFormat: DWORD; { Offset to TPixelFormatDescriptor }
  11968.                            { This is 0 if no pixel format is set }
  11969.     bOpenGL: DWORD;        { True if OpenGL commands are present in }
  11970.                            { the metafile, otherwise FALSE }
  11971.   end;
  11972.   TEnhMetaHeader = tagENHMETAHEADER;
  11973.   {$EXTERNALSYM ENHMETAHEADER}
  11974.   ENHMETAHEADER = tagENHMETAHEADER;
  11975.  
  11976. const
  11977.   { tmPitchAndFamily flags }
  11978.   {$EXTERNALSYM TMPF_FIXED_PITCH}
  11979.   TMPF_FIXED_PITCH = 1;
  11980.   {$EXTERNALSYM TMPF_VECTOR}
  11981.   TMPF_VECTOR = 2;
  11982.   {$EXTERNALSYM TMPF_DEVICE}
  11983.   TMPF_DEVICE = 8;
  11984.   {$EXTERNALSYM TMPF_TRUETYPE}
  11985.   TMPF_TRUETYPE = 4;
  11986.  
  11987. type
  11988.   PTextMetricA = ^TTextMetricA;
  11989.   PTextMetricW = ^TTextMetricW;
  11990.   PTextMetric = PTextMetricA;
  11991.   {$EXTERNALSYM tagTEXTMETRICA}
  11992.   tagTEXTMETRICA = record
  11993.     tmHeight: Longint;
  11994.     tmAscent: Longint;
  11995.     tmDescent: Longint;
  11996.     tmInternalLeading: Longint;
  11997.     tmExternalLeading: Longint;
  11998.     tmAveCharWidth: Longint;
  11999.     tmMaxCharWidth: Longint;
  12000.     tmWeight: Longint;
  12001.     tmOverhang: Longint;
  12002.     tmDigitizedAspectX: Longint;
  12003.     tmDigitizedAspectY: Longint;
  12004.     tmFirstChar: AnsiChar;
  12005.     tmLastChar: AnsiChar;
  12006.     tmDefaultChar: AnsiChar;
  12007.     tmBreakChar: AnsiChar;
  12008.     tmItalic: Byte;
  12009.     tmUnderlined: Byte;
  12010.     tmStruckOut: Byte;
  12011.     tmPitchAndFamily: Byte;
  12012.     tmCharSet: Byte;
  12013.   end;
  12014.   {$EXTERNALSYM tagTEXTMETRICW}
  12015.   tagTEXTMETRICW = record
  12016.     tmHeight: Longint;
  12017.     tmAscent: Longint;
  12018.     tmDescent: Longint;
  12019.     tmInternalLeading: Longint;
  12020.     tmExternalLeading: Longint;
  12021.     tmAveCharWidth: Longint;
  12022.     tmMaxCharWidth: Longint;
  12023.     tmWeight: Longint;
  12024.     tmOverhang: Longint;
  12025.     tmDigitizedAspectX: Longint;
  12026.     tmDigitizedAspectY: Longint;
  12027.     tmFirstChar: WideChar;
  12028.     tmLastChar: WideChar;
  12029.     tmDefaultChar: WideChar;
  12030.     tmBreakChar: WideChar;
  12031.     tmItalic: Byte;
  12032.     tmUnderlined: Byte;
  12033.     tmStruckOut: Byte;
  12034.     tmPitchAndFamily: Byte;
  12035.     tmCharSet: Byte;
  12036.   end;
  12037.   {$EXTERNALSYM tagTEXTMETRIC}
  12038.   tagTEXTMETRIC = tagTEXTMETRICA;
  12039.   TTextMetricA = tagTEXTMETRICA;
  12040.   TTextMetricW = tagTEXTMETRICW;
  12041.   TTextMetric = TTextMetricA;
  12042.   {$EXTERNALSYM TEXTMETRICA}
  12043.   TEXTMETRICA = tagTEXTMETRICA;
  12044.   {$EXTERNALSYM TEXTMETRICW}
  12045.   TEXTMETRICW = tagTEXTMETRICW;
  12046.   {$EXTERNALSYM TEXTMETRIC}
  12047.   TEXTMETRIC = TEXTMETRICA;
  12048.  
  12049. const
  12050.   { ntmFlags field flags }
  12051.   {$EXTERNALSYM NTM_REGULAR}
  12052.   NTM_REGULAR = $40;
  12053.   {$EXTERNALSYM NTM_BOLD}
  12054.   NTM_BOLD = $20;
  12055.   {$EXTERNALSYM NTM_ITALIC}
  12056.   NTM_ITALIC = 1;
  12057.  
  12058. type
  12059.   PNewTextMetricA = ^TNewTextMetricA;
  12060.   PNewTextMetricW = ^TNewTextMetricW;
  12061.   PNewTextMetric = PNewTextMetricA;
  12062.   {$EXTERNALSYM tagNEWTEXTMETRICA}
  12063.   tagNEWTEXTMETRICA = record
  12064.     tmHeight: Longint;
  12065.     tmAscent: Longint;
  12066.     tmDescent: Longint;
  12067.     tmInternalLeading: Longint;
  12068.     tmExternalLeading: Longint;
  12069.     tmAveCharWidth: Longint;
  12070.     tmMaxCharWidth: Longint;
  12071.     tmWeight: Longint;
  12072.     tmOverhang: Longint;
  12073.     tmDigitizedAspectX: Longint;
  12074.     tmDigitizedAspectY: Longint;
  12075.     tmFirstChar: AnsiChar;
  12076.     tmLastChar: AnsiChar;
  12077.     tmDefaultChar: AnsiChar;
  12078.     tmBreakChar: AnsiChar;
  12079.     tmItalic: Byte;
  12080.     tmUnderlined: Byte;
  12081.     tmStruckOut: Byte;
  12082.     tmPitchAndFamily: Byte;
  12083.     tmCharSet: Byte;
  12084.     ntmFlags: DWORD;
  12085.     ntmSizeEM: UINT;
  12086.     ntmCellHeight: UINT;
  12087.     ntmAvgWidth: UINT;
  12088.   end;
  12089.   {$EXTERNALSYM tagNEWTEXTMETRICW}
  12090.   tagNEWTEXTMETRICW = record
  12091.     tmHeight: Longint;
  12092.     tmAscent: Longint;
  12093.     tmDescent: Longint;
  12094.     tmInternalLeading: Longint;
  12095.     tmExternalLeading: Longint;
  12096.     tmAveCharWidth: Longint;
  12097.     tmMaxCharWidth: Longint;
  12098.     tmWeight: Longint;
  12099.     tmOverhang: Longint;
  12100.     tmDigitizedAspectX: Longint;
  12101.     tmDigitizedAspectY: Longint;
  12102.     tmFirstChar: WideChar;
  12103.     tmLastChar: WideChar;
  12104.     tmDefaultChar: WideChar;
  12105.     tmBreakChar: WideChar;
  12106.     tmItalic: Byte;
  12107.     tmUnderlined: Byte;
  12108.     tmStruckOut: Byte;
  12109.     tmPitchAndFamily: Byte;
  12110.     tmCharSet: Byte;
  12111.     ntmFlags: DWORD;
  12112.     ntmSizeEM: UINT;
  12113.     ntmCellHeight: UINT;
  12114.     ntmAvgWidth: UINT;
  12115.   end;
  12116.   {$EXTERNALSYM tagNEWTEXTMETRIC}
  12117.   tagNEWTEXTMETRIC = tagNEWTEXTMETRICA;
  12118.   TNewTextMetricA = tagNEWTEXTMETRICA;
  12119.   TNewTextMetricW = tagNEWTEXTMETRICW;
  12120.   TNewTextMetric = TNewTextMetricA;
  12121.   {$EXTERNALSYM NEWTEXTMETRICA}
  12122.   NEWTEXTMETRICA = tagNEWTEXTMETRICA;
  12123.   {$EXTERNALSYM NEWTEXTMETRICW}
  12124.   NEWTEXTMETRICW = tagNEWTEXTMETRICW;
  12125.   {$EXTERNALSYM NEWTEXTMETRIC}
  12126.   NEWTEXTMETRIC = NEWTEXTMETRICA;
  12127.  
  12128.   PNewTextMetricEx = ^TNewTextMetricEx;
  12129.   {$EXTERNALSYM tagNEWTEXTMETRICEXA}
  12130.   tagNEWTEXTMETRICEXA = packed record
  12131.     ntmTm: TNewTextMetric;
  12132.     ntmFontSig: TFontSignature;
  12133.   end;
  12134.   TNewTextMetricEx = tagNEWTEXTMETRICEXA;
  12135.   {$EXTERNALSYM NEWTEXTMETRICEX}
  12136.   NEWTEXTMETRICEX = tagNEWTEXTMETRICEXA;
  12137.  
  12138. { GDI Logical Objects: }
  12139.  
  12140.   { Pel Array }
  12141.   PPelArray = ^TPelArray;
  12142.   {$EXTERNALSYM tagPELARRAY}
  12143.   tagPELARRAY = record
  12144.     paXCount: Longint;
  12145.     paYCount: Longint;
  12146.     paXExt: Longint;
  12147.     paYExt: Longint;
  12148.     paRGBs: Byte;
  12149.   end;
  12150.   TPelArray = tagPELARRAY;
  12151.   {$EXTERNALSYM PELARRAY}
  12152.   PELARRAY = tagPELARRAY;
  12153.  
  12154.   { Logical Brush (or Pattern) }
  12155.   PLogBrush = ^TLogBrush;
  12156.   {$EXTERNALSYM tagLOGBRUSH}
  12157.   tagLOGBRUSH = packed record
  12158.     lbStyle: UINT;
  12159.     lbColor: COLORREF;
  12160.     lbHatch: Longint;
  12161.   end;
  12162.   TLogBrush = tagLOGBRUSH;
  12163.   {$EXTERNALSYM LOGBRUSH}
  12164.   LOGBRUSH = tagLOGBRUSH;
  12165.  
  12166.   PPattern = ^TPattern;
  12167.   TPattern = TLogBrush;
  12168.  
  12169.   { Logical Pen }
  12170.   PLogPen = ^TLogPen;
  12171.   {$EXTERNALSYM tagLOGPEN}
  12172.   tagLOGPEN = packed record
  12173.     lopnStyle: UINT;
  12174.     lopnWidth: TPoint;
  12175.     lopnColor: COLORREF;
  12176.   end;
  12177.   TLogPen = tagLOGPEN;
  12178.   {$EXTERNALSYM LOGPEN}
  12179.   LOGPEN = tagLOGPEN;
  12180.  
  12181.   PExtLogPen = ^TLogPen;
  12182.   {$EXTERNALSYM tagEXTLOGPEN}
  12183.   tagEXTLOGPEN = packed record
  12184.     elpPenStyle: DWORD;
  12185.     elpWidth: DWORD;
  12186.     elpBrushStyle: UINT;
  12187.     elpColor: COLORREF;
  12188.     elpHatch: Longint;
  12189.     elpNumEntries: DWORD;
  12190.     elpStyleEntry: array[0..0] of DWORD;
  12191.   end;
  12192.   TExtLogPen = tagEXTLOGPEN;
  12193.   {$EXTERNALSYM EXTLOGPEN}
  12194.   EXTLOGPEN = tagEXTLOGPEN;
  12195.  
  12196.   PPaletteEntry = ^TPaletteEntry;
  12197.   {$EXTERNALSYM tagPALETTEENTRY}
  12198.   tagPALETTEENTRY = packed record
  12199.     peRed: Byte;
  12200.     peGreen: Byte;
  12201.     peBlue: Byte;
  12202.     peFlags: Byte;
  12203.   end;
  12204.   TPaletteEntry = tagPALETTEENTRY;
  12205.   {$EXTERNALSYM PALETTEENTRY}
  12206.   PALETTEENTRY = tagPALETTEENTRY;
  12207.  
  12208.  
  12209.   { Logical Palette }
  12210.   PLogPalette = ^TLogPalette;
  12211.   {$EXTERNALSYM tagLOGPALETTE}
  12212.   tagLOGPALETTE = packed record
  12213.     palVersion: Word;
  12214.     palNumEntries: Word;
  12215.     palPalEntry: array[0..0] of TPaletteEntry;
  12216.   end;
  12217.   TLogPalette = tagLOGPALETTE;
  12218.   {$EXTERNALSYM LOGPALETTE}
  12219.   LOGPALETTE = tagLOGPALETTE;
  12220.  
  12221.   PMaxLogPalette = ^TMaxLogPalette; // not in Windows Headers
  12222.   TMaxLogPalette = packed record
  12223.     palVersion: Word;
  12224.     palNumEntries: Word;
  12225.     palPalEntry: array [Byte] of TPaletteEntry;
  12226.   end;
  12227.  
  12228. const
  12229.   { Logical Font }
  12230.   {$EXTERNALSYM LF_FACESIZE}
  12231.   LF_FACESIZE = 32;
  12232.  
  12233. type
  12234.   PLogFontA = ^TLogFontA;
  12235.   PLogFontW = ^TLogFontW;
  12236.   PLogFont = PLogFontA;
  12237.   {$EXTERNALSYM tagLOGFONTA}
  12238.   tagLOGFONTA = packed record
  12239.     lfHeight: Longint;
  12240.     lfWidth: Longint;
  12241.     lfEscapement: Longint;
  12242.     lfOrientation: Longint;
  12243.     lfWeight: Longint;
  12244.     lfItalic: Byte;
  12245.     lfUnderline: Byte;
  12246.     lfStrikeOut: Byte;
  12247.     lfCharSet: Byte;
  12248.     lfOutPrecision: Byte;
  12249.     lfClipPrecision: Byte;
  12250.     lfQuality: Byte;
  12251.     lfPitchAndFamily: Byte;
  12252.     lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
  12253.   end;
  12254.   {$EXTERNALSYM tagLOGFONTW}
  12255.   tagLOGFONTW = packed record
  12256.     lfHeight: Longint;
  12257.     lfWidth: Longint;
  12258.     lfEscapement: Longint;
  12259.     lfOrientation: Longint;
  12260.     lfWeight: Longint;
  12261.     lfItalic: Byte;
  12262.     lfUnderline: Byte;
  12263.     lfStrikeOut: Byte;
  12264.     lfCharSet: Byte;
  12265.     lfOutPrecision: Byte;
  12266.     lfClipPrecision: Byte;
  12267.     lfQuality: Byte;
  12268.     lfPitchAndFamily: Byte;
  12269.     lfFaceName: array[0..LF_FACESIZE - 1] of WideChar;
  12270.   end;
  12271.   {$EXTERNALSYM tagLOGFONT}
  12272.   tagLOGFONT = tagLOGFONTA;
  12273.   TLogFontA = tagLOGFONTA;
  12274.   TLogFontW = tagLOGFONTW;
  12275.   TLogFont = TLogFontA;
  12276.   {$EXTERNALSYM LOGFONTA}
  12277.   LOGFONTA = tagLOGFONTA;
  12278.   {$EXTERNALSYM LOGFONTW}
  12279.   LOGFONTW = tagLOGFONTW;
  12280.   {$EXTERNALSYM LOGFONT}
  12281.   LOGFONT = LOGFONTA;
  12282.  
  12283. const
  12284.   {$EXTERNALSYM LF_FULLFACESIZE}
  12285.   LF_FULLFACESIZE = 64;
  12286.  
  12287. type
  12288.   { Structure passed to FONTENUMPROC }
  12289.   PEnumLogFontA = ^TEnumLogFontA;
  12290.   PEnumLogFontW = ^TEnumLogFontW;
  12291.   PEnumLogFont = PEnumLogFontA;
  12292.   {$EXTERNALSYM tagENUMLOGFONTA}
  12293.   tagENUMLOGFONTA = packed record
  12294.     elfLogFont: TLogFontA;
  12295.     elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;
  12296.     elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;
  12297.   end;
  12298.   {$EXTERNALSYM tagENUMLOGFONTW}
  12299.   tagENUMLOGFONTW = packed record
  12300.     elfLogFont: TLogFontW;
  12301.     elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
  12302.     elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
  12303.   end;
  12304.   {$EXTERNALSYM tagENUMLOGFONT}
  12305.   tagENUMLOGFONT = tagENUMLOGFONTA;
  12306.   TEnumLogFontA = tagENUMLOGFONTA;
  12307.   TEnumLogFontW = tagENUMLOGFONTW;
  12308.   TEnumLogFont = TEnumLogFontA;
  12309.   {$EXTERNALSYM ENUMLOGFONTA}
  12310.   ENUMLOGFONTA = tagENUMLOGFONTA;
  12311.   {$EXTERNALSYM ENUMLOGFONTW}
  12312.   ENUMLOGFONTW = tagENUMLOGFONTW;
  12313.   {$EXTERNALSYM ENUMLOGFONT}
  12314.   ENUMLOGFONT = ENUMLOGFONTA;
  12315.  
  12316.   PEnumLogFontEx = ^TEnumLogFontEx;
  12317.   {$EXTERNALSYM tagENUMLOGFONTEXA}
  12318.   tagENUMLOGFONTEXA = packed record
  12319.     elfLogFont: TLogFont;
  12320.     elfFullName: array[0..LF_FULLFACESIZE - 1] of Char;
  12321.     elfStyle: array[0..LF_FACESIZE - 1] of Char;
  12322.     elfScript: array[0..LF_FACESIZE - 1] of Char;
  12323.   end;
  12324.   TEnumLogFontEx = tagENUMLOGFONTEXA;
  12325.   {$EXTERNALSYM ENUMLOGFONTEX}
  12326.   ENUMLOGFONTEX = tagENUMLOGFONTEXA;
  12327.  
  12328. const
  12329.   {$EXTERNALSYM OUT_DEFAULT_PRECIS}
  12330.   OUT_DEFAULT_PRECIS = 0;
  12331.   {$EXTERNALSYM OUT_STRING_PRECIS}
  12332.   OUT_STRING_PRECIS = 1;
  12333.   {$EXTERNALSYM OUT_CHARACTER_PRECIS}
  12334.   OUT_CHARACTER_PRECIS = 2;
  12335.   {$EXTERNALSYM OUT_STROKE_PRECIS}
  12336.   OUT_STROKE_PRECIS = 3;
  12337.   {$EXTERNALSYM OUT_TT_PRECIS}
  12338.   OUT_TT_PRECIS = 4;
  12339.   {$EXTERNALSYM OUT_DEVICE_PRECIS}
  12340.   OUT_DEVICE_PRECIS = 5;
  12341.   {$EXTERNALSYM OUT_RASTER_PRECIS}
  12342.   OUT_RASTER_PRECIS = 6;
  12343.   {$EXTERNALSYM OUT_TT_ONLY_PRECIS}
  12344.   OUT_TT_ONLY_PRECIS = 7;
  12345.   {$EXTERNALSYM OUT_OUTLINE_PRECIS}
  12346.   OUT_OUTLINE_PRECIS = 8;
  12347.   {$EXTERNALSYM OUT_SCREEN_OUTLINE_PRECIS}
  12348.   OUT_SCREEN_OUTLINE_PRECIS = 9;
  12349.  
  12350.   {$EXTERNALSYM CLIP_DEFAULT_PRECIS}
  12351.   CLIP_DEFAULT_PRECIS = 0;
  12352.   {$EXTERNALSYM CLIP_CHARACTER_PRECIS}
  12353.   CLIP_CHARACTER_PRECIS = 1;
  12354.   {$EXTERNALSYM CLIP_STROKE_PRECIS}
  12355.   CLIP_STROKE_PRECIS = 2;
  12356.   {$EXTERNALSYM CLIP_MASK}
  12357.   CLIP_MASK = 15;
  12358.   {$EXTERNALSYM CLIP_LH_ANGLES}
  12359.   CLIP_LH_ANGLES = (1 shl 4);
  12360.   {$EXTERNALSYM CLIP_TT_ALWAYS}
  12361.   CLIP_TT_ALWAYS = (2 shl 4);
  12362.   {$EXTERNALSYM CLIP_EMBEDDED}
  12363.   CLIP_EMBEDDED  = (8 shl 4);
  12364.  
  12365.   {$EXTERNALSYM DEFAULT_QUALITY}
  12366.   DEFAULT_QUALITY = 0;
  12367.   {$EXTERNALSYM DRAFT_QUALITY}
  12368.   DRAFT_QUALITY = 1;
  12369.   {$EXTERNALSYM PROOF_QUALITY}
  12370.   PROOF_QUALITY = 2;
  12371.   {$EXTERNALSYM NONANTIALIASED_QUALITY}
  12372.   NONANTIALIASED_QUALITY = 3;
  12373.   {$EXTERNALSYM ANTIALIASED_QUALITY}
  12374.   ANTIALIASED_QUALITY = 4;
  12375.  
  12376.   {$EXTERNALSYM DEFAULT_PITCH}
  12377.   DEFAULT_PITCH = 0;
  12378.   {$EXTERNALSYM FIXED_PITCH}
  12379.   FIXED_PITCH = 1;
  12380.   {$EXTERNALSYM VARIABLE_PITCH}
  12381.   VARIABLE_PITCH = 2;
  12382.   {$EXTERNALSYM MONO_FONT}
  12383.   MONO_FONT = 8;
  12384.  
  12385.   {$EXTERNALSYM ANSI_CHARSET}
  12386.   ANSI_CHARSET = 0;
  12387.   {$EXTERNALSYM DEFAULT_CHARSET}
  12388.   DEFAULT_CHARSET = 1;
  12389.   {$EXTERNALSYM SYMBOL_CHARSET}
  12390.   SYMBOL_CHARSET = 2;
  12391.   {$EXTERNALSYM SHIFTJIS_CHARSET}
  12392.   SHIFTJIS_CHARSET = $80;
  12393.   {$EXTERNALSYM HANGEUL_CHARSET}
  12394.   HANGEUL_CHARSET = 129;
  12395.   {$EXTERNALSYM GB2312_CHARSET}
  12396.   GB2312_CHARSET = 134;
  12397.   {$EXTERNALSYM CHINESEBIG5_CHARSET}
  12398.   CHINESEBIG5_CHARSET = 136;
  12399.   {$EXTERNALSYM OEM_CHARSET}
  12400.   OEM_CHARSET = 255;
  12401.   {$EXTERNALSYM JOHAB_CHARSET}
  12402.   JOHAB_CHARSET = 130;
  12403.   {$EXTERNALSYM HEBREW_CHARSET}
  12404.   HEBREW_CHARSET = 177;
  12405.   {$EXTERNALSYM ARABIC_CHARSET}
  12406.   ARABIC_CHARSET = 178;
  12407.   {$EXTERNALSYM GREEK_CHARSET}
  12408.   GREEK_CHARSET = 161;
  12409.   {$EXTERNALSYM TURKISH_CHARSET}
  12410.   TURKISH_CHARSET = 162;
  12411.   {$EXTERNALSYM VIETNAMESE_CHARSET}
  12412.   VIETNAMESE_CHARSET = 163;
  12413.   {$EXTERNALSYM THAI_CHARSET}
  12414.   THAI_CHARSET = 222;
  12415.   {$EXTERNALSYM EASTEUROPE_CHARSET}
  12416.   EASTEUROPE_CHARSET = 238;
  12417.   {$EXTERNALSYM RUSSIAN_CHARSET}
  12418.   RUSSIAN_CHARSET = 204;
  12419.  
  12420.   {$EXTERNALSYM MAC_CHARSET}
  12421.   MAC_CHARSET = 77;
  12422.   {$EXTERNALSYM BALTIC_CHARSET}
  12423.   BALTIC_CHARSET = 186;
  12424.  
  12425.   {$EXTERNALSYM FS_LATIN1}
  12426.   FS_LATIN1 = 1;
  12427.   {$EXTERNALSYM FS_LATIN2}
  12428.   FS_LATIN2 = 2;
  12429.   {$EXTERNALSYM FS_CYRILLIC}
  12430.   FS_CYRILLIC = 4;
  12431.   {$EXTERNALSYM FS_GREEK}
  12432.   FS_GREEK = 8;
  12433.   {$EXTERNALSYM FS_TURKISH}
  12434.   FS_TURKISH = $10;
  12435.   {$EXTERNALSYM FS_HEBREW}
  12436.   FS_HEBREW = $20;
  12437.   {$EXTERNALSYM FS_ARABIC}
  12438.   FS_ARABIC = $40;
  12439.   {$EXTERNALSYM FS_BALTIC}
  12440.   FS_BALTIC = $80;
  12441.   {$EXTERNALSYM FS_VIETNAMESE}
  12442.   FS_VIETNAMESE = $00000100;
  12443.   {$EXTERNALSYM FS_THAI}
  12444.   FS_THAI = $10000;
  12445.   {$EXTERNALSYM FS_JISJAPAN}
  12446.   FS_JISJAPAN = $20000;
  12447.   {$EXTERNALSYM FS_CHINESESIMP}
  12448.   FS_CHINESESIMP = $40000;
  12449.   {$EXTERNALSYM FS_WANSUNG}
  12450.   FS_WANSUNG = $80000;
  12451.   {$EXTERNALSYM FS_CHINESETRAD}
  12452.   FS_CHINESETRAD = $100000;
  12453.   {$EXTERNALSYM FS_JOHAB}
  12454.   FS_JOHAB = $200000;
  12455.   {$EXTERNALSYM FS_SYMBOL}
  12456.   FS_SYMBOL = $80000000;
  12457.  
  12458.   { Font Families }
  12459.   {$EXTERNALSYM FF_DONTCARE}
  12460.   FF_DONTCARE   = (0 shl 4);     { Don't care or don't know. }
  12461.   {$EXTERNALSYM FF_ROMAN}
  12462.   FF_ROMAN      = (1 shl 4);     { Variable stroke width, serifed. }
  12463.                                  { Times Roman, Century Schoolbook, etc. }
  12464.   {$EXTERNALSYM FF_SWISS}
  12465.   FF_SWISS      = (2 shl 4);     { Variable stroke width, sans-serifed. }
  12466.                                  { Helvetica, Swiss, etc. }
  12467.   {$EXTERNALSYM FF_MODERN}
  12468.   FF_MODERN     = (3 shl 4);     { Constant stroke width, serifed or sans-serifed. }
  12469.                                  { Pica, Elite, Courier, etc. }
  12470.   {$EXTERNALSYM FF_SCRIPT}
  12471.   FF_SCRIPT     = (4 shl 4);     { Cursive, etc. }
  12472.   {$EXTERNALSYM FF_DECORATIVE}
  12473.   FF_DECORATIVE = (5 shl 4);     { Old English, etc. }
  12474.  
  12475.   { Font Weights }
  12476.   {$EXTERNALSYM FW_DONTCARE}
  12477.   FW_DONTCARE = 0;
  12478.   {$EXTERNALSYM FW_THIN}
  12479.   FW_THIN = 100;
  12480.   {$EXTERNALSYM FW_EXTRALIGHT}
  12481.   FW_EXTRALIGHT = 200;
  12482.   {$EXTERNALSYM FW_LIGHT}
  12483.   FW_LIGHT = 300;
  12484.   {$EXTERNALSYM FW_NORMAL}
  12485.   FW_NORMAL = 400;
  12486.   {$EXTERNALSYM FW_MEDIUM}
  12487.   FW_MEDIUM = 500;
  12488.   {$EXTERNALSYM FW_SEMIBOLD}
  12489.   FW_SEMIBOLD = 600;
  12490.   {$EXTERNALSYM FW_BOLD}
  12491.   FW_BOLD = 700;
  12492.   {$EXTERNALSYM FW_EXTRABOLD}
  12493.   FW_EXTRABOLD = 800;
  12494.   {$EXTERNALSYM FW_HEAVY}
  12495.   FW_HEAVY = 900;
  12496.   {$EXTERNALSYM FW_ULTRALIGHT}
  12497.   FW_ULTRALIGHT = FW_EXTRALIGHT;
  12498.   {$EXTERNALSYM FW_REGULAR}
  12499.   FW_REGULAR = FW_NORMAL;
  12500.   {$EXTERNALSYM FW_DEMIBOLD}
  12501.   FW_DEMIBOLD = FW_SEMIBOLD;
  12502.   {$EXTERNALSYM FW_ULTRABOLD}
  12503.   FW_ULTRABOLD = FW_EXTRABOLD;
  12504.   {$EXTERNALSYM FW_BLACK}
  12505.   FW_BLACK = FW_HEAVY;
  12506.  
  12507.   {$EXTERNALSYM PANOSE_COUNT}
  12508.   PANOSE_COUNT = 10;
  12509.   {$EXTERNALSYM PAN_FAMILYTYPE_INDEX}
  12510.   PAN_FAMILYTYPE_INDEX = 0;
  12511.   {$EXTERNALSYM PAN_SERIFSTYLE_INDEX}
  12512.   PAN_SERIFSTYLE_INDEX = 1;
  12513.   {$EXTERNALSYM PAN_WEIGHT_INDEX}
  12514.   PAN_WEIGHT_INDEX = 2;
  12515.   {$EXTERNALSYM PAN_PROPORTION_INDEX}
  12516.   PAN_PROPORTION_INDEX = 3;
  12517.   {$EXTERNALSYM PAN_CONTRAST_INDEX}
  12518.   PAN_CONTRAST_INDEX = 4;
  12519.   {$EXTERNALSYM PAN_STROKEVARIATION_INDEX}
  12520.   PAN_STROKEVARIATION_INDEX = 5;
  12521.   {$EXTERNALSYM PAN_ARMSTYLE_INDEX}
  12522.   PAN_ARMSTYLE_INDEX = 6;
  12523.   {$EXTERNALSYM PAN_LETTERFORM_INDEX}
  12524.   PAN_LETTERFORM_INDEX = 7;
  12525.   {$EXTERNALSYM PAN_MIDLINE_INDEX}
  12526.   PAN_MIDLINE_INDEX = 8;
  12527.   {$EXTERNALSYM PAN_XHEIGHT_INDEX}
  12528.   PAN_XHEIGHT_INDEX = 9;
  12529.  
  12530.   {$EXTERNALSYM PAN_CULTURE_LATIN}
  12531.   PAN_CULTURE_LATIN = 0;
  12532.  
  12533. type
  12534.   PPanose = ^TPanose;
  12535.   {$EXTERNALSYM tagPANOSE}
  12536.   tagPANOSE = packed record
  12537.     bFamilyType: Byte;
  12538.     bSerifStyle: Byte;
  12539.     bWeight: Byte;
  12540.     bProportion: Byte;
  12541.     bContrast: Byte;
  12542.     bStrokeVariation: Byte;
  12543.     bArmStyle: Byte;
  12544.     bLetterform: Byte;
  12545.     bMidline: Byte;
  12546.     bXHeight: Byte;
  12547.   end;
  12548.   TPanose = tagPANOSE;
  12549.   {$EXTERNALSYM PANOSE}
  12550.   PANOSE = tagPANOSE;
  12551.  
  12552. const
  12553.   {$EXTERNALSYM PAN_ANY}
  12554.   PAN_ANY = 0;
  12555.   {$EXTERNALSYM PAN_NO_FIT}
  12556.   PAN_NO_FIT = 1;
  12557.  
  12558.   {$EXTERNALSYM PAN_FAMILY_TEXT_DISPLAY}
  12559.   PAN_FAMILY_TEXT_DISPLAY = 2;
  12560.   {$EXTERNALSYM PAN_FAMILY_SCRIPT}
  12561.   PAN_FAMILY_SCRIPT = 3;
  12562.   {$EXTERNALSYM PAN_FAMILY_DECORATIVE}
  12563.   PAN_FAMILY_DECORATIVE = 4;
  12564.   {$EXTERNALSYM PAN_FAMILY_PICTORIAL}
  12565.   PAN_FAMILY_PICTORIAL = 5;
  12566.  
  12567.   {$EXTERNALSYM PAN_SERIF_COVE}
  12568.   PAN_SERIF_COVE = 2;
  12569.   {$EXTERNALSYM PAN_SERIF_OBTUSE_COVE}
  12570.   PAN_SERIF_OBTUSE_COVE = 3;
  12571.   {$EXTERNALSYM PAN_SERIF_SQUARE_COVE}
  12572.   PAN_SERIF_SQUARE_COVE = 4;
  12573.   {$EXTERNALSYM PAN_SERIF_OBTUSE_SQUARE_COVE}
  12574.   PAN_SERIF_OBTUSE_SQUARE_COVE = 5;
  12575.   {$EXTERNALSYM PAN_SERIF_SQUARE}
  12576.   PAN_SERIF_SQUARE = 6;
  12577.   {$EXTERNALSYM PAN_SERIF_THIN}
  12578.   PAN_SERIF_THIN = 7;
  12579.   {$EXTERNALSYM PAN_SERIF_BONE}
  12580.   PAN_SERIF_BONE = 8;
  12581.   {$EXTERNALSYM PAN_SERIF_EXAGGERATED}
  12582.   PAN_SERIF_EXAGGERATED = 9;
  12583.   {$EXTERNALSYM PAN_SERIF_TRIANGLE}
  12584.   PAN_SERIF_TRIANGLE = 10;
  12585.   {$EXTERNALSYM PAN_SERIF_NORMAL_SANS}
  12586.   PAN_SERIF_NORMAL_SANS = 11;
  12587.   {$EXTERNALSYM PAN_SERIF_OBTUSE_SANS}
  12588.   PAN_SERIF_OBTUSE_SANS = 12;
  12589.   {$EXTERNALSYM PAN_SERIF_PERP_SANS}
  12590.   PAN_SERIF_PERP_SANS = 13;
  12591.   {$EXTERNALSYM PAN_SERIF_FLARED}
  12592.   PAN_SERIF_FLARED = 14;
  12593.   {$EXTERNALSYM PAN_SERIF_ROUNDED}
  12594.   PAN_SERIF_ROUNDED = 15;
  12595.  
  12596.   {$EXTERNALSYM PAN_WEIGHT_VERY_LIGHT}
  12597.   PAN_WEIGHT_VERY_LIGHT = 2;
  12598.   {$EXTERNALSYM PAN_WEIGHT_LIGHT}
  12599.   PAN_WEIGHT_LIGHT = 3;
  12600.   {$EXTERNALSYM PAN_WEIGHT_THIN}
  12601.   PAN_WEIGHT_THIN = 4;
  12602.   {$EXTERNALSYM PAN_WEIGHT_BOOK}
  12603.   PAN_WEIGHT_BOOK = 5;
  12604.   {$EXTERNALSYM PAN_WEIGHT_MEDIUM}
  12605.   PAN_WEIGHT_MEDIUM = 6;
  12606.   {$EXTERNALSYM PAN_WEIGHT_DEMI}
  12607.   PAN_WEIGHT_DEMI = 7;
  12608.   {$EXTERNALSYM PAN_WEIGHT_BOLD}
  12609.   PAN_WEIGHT_BOLD = 8;
  12610.   {$EXTERNALSYM PAN_WEIGHT_HEAVY}
  12611.   PAN_WEIGHT_HEAVY = 9;
  12612.   {$EXTERNALSYM PAN_WEIGHT_BLACK}
  12613.   PAN_WEIGHT_BLACK = 10;
  12614.   {$EXTERNALSYM PAN_WEIGHT_NORD}
  12615.   PAN_WEIGHT_NORD = 11;
  12616.  
  12617.   {$EXTERNALSYM PAN_PROP_OLD_STYLE}
  12618.   PAN_PROP_OLD_STYLE = 2;
  12619.   {$EXTERNALSYM PAN_PROP_MODERN}
  12620.   PAN_PROP_MODERN = 3;
  12621.   {$EXTERNALSYM PAN_PROP_EVEN_WIDTH}
  12622.   PAN_PROP_EVEN_WIDTH = 4;
  12623.   {$EXTERNALSYM PAN_PROP_EXPANDED}
  12624.   PAN_PROP_EXPANDED = 5;
  12625.   {$EXTERNALSYM PAN_PROP_CONDENSED}
  12626.   PAN_PROP_CONDENSED = 6;
  12627.   {$EXTERNALSYM PAN_PROP_VERY_EXPANDED}
  12628.   PAN_PROP_VERY_EXPANDED = 7;
  12629.   {$EXTERNALSYM PAN_PROP_VERY_CONDENSED}
  12630.   PAN_PROP_VERY_CONDENSED = 8;
  12631.   {$EXTERNALSYM PAN_PROP_MONOSPACED}
  12632.   PAN_PROP_MONOSPACED = 9;
  12633.  
  12634.   {$EXTERNALSYM PAN_CONTRAST_NONE}
  12635.   PAN_CONTRAST_NONE = 2;
  12636.   {$EXTERNALSYM PAN_CONTRAST_VERY_LOW}
  12637.   PAN_CONTRAST_VERY_LOW = 3;
  12638.   {$EXTERNALSYM PAN_CONTRAST_LOW}
  12639.   PAN_CONTRAST_LOW = 4;
  12640.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM_LOW}
  12641.   PAN_CONTRAST_MEDIUM_LOW = 5;
  12642.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM}
  12643.   PAN_CONTRAST_MEDIUM = 6;
  12644.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM_HIGH}
  12645.   PAN_CONTRAST_MEDIUM_HIGH = 7;
  12646.   {$EXTERNALSYM PAN_CONTRAST_HIGH}
  12647.   PAN_CONTRAST_HIGH = 8;
  12648.   {$EXTERNALSYM PAN_CONTRAST_VERY_HIGH}
  12649.   PAN_CONTRAST_VERY_HIGH = 9;
  12650.  
  12651.   {$EXTERNALSYM PAN_STROKE_GRADUAL_DIAG}
  12652.   PAN_STROKE_GRADUAL_DIAG = 2;
  12653.   {$EXTERNALSYM PAN_STROKE_GRADUAL_TRAN}
  12654.   PAN_STROKE_GRADUAL_TRAN = 3;
  12655.   {$EXTERNALSYM PAN_STROKE_GRADUAL_VERT}
  12656.   PAN_STROKE_GRADUAL_VERT = 4;
  12657.   {$EXTERNALSYM PAN_STROKE_GRADUAL_HORZ}
  12658.   PAN_STROKE_GRADUAL_HORZ = 5;
  12659.   {$EXTERNALSYM PAN_STROKE_RAPID_VERT}
  12660.   PAN_STROKE_RAPID_VERT = 6;
  12661.   {$EXTERNALSYM PAN_STROKE_RAPID_HORZ}
  12662.   PAN_STROKE_RAPID_HORZ = 7;
  12663.   {$EXTERNALSYM PAN_STROKE_INSTANT_VERT}
  12664.   PAN_STROKE_INSTANT_VERT = 8;
  12665.  
  12666.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_HORZ}
  12667.   PAN_STRAIGHT_ARMS_HORZ = 2;
  12668.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_WEDGE}
  12669.   PAN_STRAIGHT_ARMS_WEDGE = 3;
  12670.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_VERT}
  12671.   PAN_STRAIGHT_ARMS_VERT = 4;
  12672.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_SINGLE_SERIF}
  12673.   PAN_STRAIGHT_ARMS_SINGLE_SERIF = 5;
  12674.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_DOUBLE_SERIF}
  12675.   PAN_STRAIGHT_ARMS_DOUBLE_SERIF = 6;
  12676.   {$EXTERNALSYM PAN_BENT_ARMS_HORZ}
  12677.   PAN_BENT_ARMS_HORZ = 7;
  12678.   {$EXTERNALSYM PAN_BENT_ARMS_WEDGE}
  12679.   PAN_BENT_ARMS_WEDGE = 8;
  12680.   {$EXTERNALSYM PAN_BENT_ARMS_VERT}
  12681.   PAN_BENT_ARMS_VERT = 9;
  12682.   {$EXTERNALSYM PAN_BENT_ARMS_SINGLE_SERIF}
  12683.   PAN_BENT_ARMS_SINGLE_SERIF = 10;
  12684.   {$EXTERNALSYM PAN_BENT_ARMS_DOUBLE_SERIF}
  12685.   PAN_BENT_ARMS_DOUBLE_SERIF = 11;
  12686.  
  12687.   {$EXTERNALSYM PAN_LETT_NORMAL_CONTACT}
  12688.   PAN_LETT_NORMAL_CONTACT = 2;
  12689.   {$EXTERNALSYM PAN_LETT_NORMAL_WEIGHTED}
  12690.   PAN_LETT_NORMAL_WEIGHTED = 3;
  12691.   {$EXTERNALSYM PAN_LETT_NORMAL_BOXED}
  12692.   PAN_LETT_NORMAL_BOXED = 4;
  12693.   {$EXTERNALSYM PAN_LETT_NORMAL_FLATTENED}
  12694.   PAN_LETT_NORMAL_FLATTENED = 5;
  12695.   {$EXTERNALSYM PAN_LETT_NORMAL_ROUNDED}
  12696.   PAN_LETT_NORMAL_ROUNDED = 6;
  12697.   {$EXTERNALSYM PAN_LETT_NORMAL_OFF_CENTER}
  12698.   PAN_LETT_NORMAL_OFF_CENTER = 7;
  12699.   {$EXTERNALSYM PAN_LETT_NORMAL_SQUARE}
  12700.   PAN_LETT_NORMAL_SQUARE = 8;
  12701.   {$EXTERNALSYM PAN_LETT_OBLIQUE_CONTACT}
  12702.   PAN_LETT_OBLIQUE_CONTACT = 9;
  12703.   {$EXTERNALSYM PAN_LETT_OBLIQUE_WEIGHTED}
  12704.   PAN_LETT_OBLIQUE_WEIGHTED = 10;
  12705.   {$EXTERNALSYM PAN_LETT_OBLIQUE_BOXED}
  12706.   PAN_LETT_OBLIQUE_BOXED = 11;
  12707.   {$EXTERNALSYM PAN_LETT_OBLIQUE_FLATTENED}
  12708.   PAN_LETT_OBLIQUE_FLATTENED = 12;
  12709.   {$EXTERNALSYM PAN_LETT_OBLIQUE_ROUNDED}
  12710.   PAN_LETT_OBLIQUE_ROUNDED = 13;
  12711.   {$EXTERNALSYM PAN_LETT_OBLIQUE_OFF_CENTER}
  12712.   PAN_LETT_OBLIQUE_OFF_CENTER = 14;
  12713.   {$EXTERNALSYM PAN_LETT_OBLIQUE_SQUARE}
  12714.   PAN_LETT_OBLIQUE_SQUARE = 15;
  12715.  
  12716.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_TRIMMED}
  12717.   PAN_MIDLINE_STANDARD_TRIMMED = 2;
  12718.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_POINTED}
  12719.   PAN_MIDLINE_STANDARD_POINTED = 3;
  12720.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_SERIFED}
  12721.   PAN_MIDLINE_STANDARD_SERIFED = 4;
  12722.   {$EXTERNALSYM PAN_MIDLINE_HIGH_TRIMMED}
  12723.   PAN_MIDLINE_HIGH_TRIMMED = 5;
  12724.   {$EXTERNALSYM PAN_MIDLINE_HIGH_POINTED}
  12725.   PAN_MIDLINE_HIGH_POINTED = 6;
  12726.   {$EXTERNALSYM PAN_MIDLINE_HIGH_SERIFED}
  12727.   PAN_MIDLINE_HIGH_SERIFED = 7;
  12728.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_TRIMMED}
  12729.   PAN_MIDLINE_CONSTANT_TRIMMED = 8;
  12730.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_POINTED}
  12731.   PAN_MIDLINE_CONSTANT_POINTED = 9;
  12732.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_SERIFED}
  12733.   PAN_MIDLINE_CONSTANT_SERIFED = 10;
  12734.   {$EXTERNALSYM PAN_MIDLINE_LOW_TRIMMED}
  12735.   PAN_MIDLINE_LOW_TRIMMED = 11;
  12736.   {$EXTERNALSYM PAN_MIDLINE_LOW_POINTED}
  12737.   PAN_MIDLINE_LOW_POINTED = 12;
  12738.   {$EXTERNALSYM PAN_MIDLINE_LOW_SERIFED}
  12739.   PAN_MIDLINE_LOW_SERIFED = 13;
  12740.  
  12741.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_SMALL}
  12742.   PAN_XHEIGHT_CONSTANT_SMALL = 2;
  12743.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_STD}
  12744.   PAN_XHEIGHT_CONSTANT_STD = 3;
  12745.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_LARGE}
  12746.   PAN_XHEIGHT_CONSTANT_LARGE = 4;
  12747.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_SMALL}
  12748.   PAN_XHEIGHT_DUCKING_SMALL = 5;
  12749.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_STD}
  12750.   PAN_XHEIGHT_DUCKING_STD = 6;
  12751.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_LARGE}
  12752.   PAN_XHEIGHT_DUCKING_LARGE = 7;
  12753.  
  12754.   {$EXTERNALSYM ELF_VENDOR_SIZE}
  12755.   ELF_VENDOR_SIZE = 4;
  12756.  
  12757. { The extended logical font       }
  12758. { An extension of the ENUMLOGFONT }
  12759.  
  12760. type
  12761.   PExtLogFontA = ^TExtLogFontA;
  12762.   PExtLogFontW = ^TExtLogFontW;
  12763.   PExtLogFont = PExtLogFontA;
  12764.   {$EXTERNALSYM tagEXTLOGFONTA}
  12765.   tagEXTLOGFONTA = record
  12766.     elfLogFont: TLogFontA;
  12767.     elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;
  12768.     elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;
  12769.     elfVersion: DWORD;     { 0 for the first release of NT }
  12770.     elfStyleSize: DWORD;
  12771.     elfMatch: DWORD;
  12772.     elfReserved: DWORD;
  12773.     elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;
  12774.     elfCulture: DWORD;     { 0 for Latin }
  12775.     elfPanose: TPanose;
  12776.   end;
  12777.   {$EXTERNALSYM tagEXTLOGFONTW}
  12778.   tagEXTLOGFONTW = record
  12779.     elfLogFont: TLogFontW;
  12780.     elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
  12781.     elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
  12782.     elfVersion: DWORD;     { 0 for the first release of NT }
  12783.     elfStyleSize: DWORD;
  12784.     elfMatch: DWORD;
  12785.     elfReserved: DWORD;
  12786.     elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;
  12787.     elfCulture: DWORD;     { 0 for Latin }
  12788.     elfPanose: TPanose;
  12789.   end;
  12790.   {$EXTERNALSYM tagEXTLOGFONT}
  12791.   tagEXTLOGFONT = tagEXTLOGFONTA;
  12792.   TExtLogFontA = tagEXTLOGFONTA;
  12793.   TExtLogFontW = tagEXTLOGFONTW;
  12794.   TExtLogFont = TExtLogFontA;
  12795.   {$EXTERNALSYM EXTLOGFONTA}
  12796.   EXTLOGFONTA = tagEXTLOGFONTA;
  12797.   {$EXTERNALSYM EXTLOGFONTW}
  12798.   EXTLOGFONTW = tagEXTLOGFONTW;
  12799.   {$EXTERNALSYM EXTLOGFONT}
  12800.   EXTLOGFONT = EXTLOGFONTA;
  12801.  
  12802. const
  12803.   {$EXTERNALSYM ELF_VERSION}
  12804.   ELF_VERSION = 0;
  12805.   {$EXTERNALSYM ELF_CULTURE_LATIN}
  12806.   ELF_CULTURE_LATIN = 0;
  12807.  
  12808.  
  12809.   { EnumFonts Masks }
  12810.   {$EXTERNALSYM RASTER_FONTTYPE}
  12811.   RASTER_FONTTYPE = 1;
  12812.   {$EXTERNALSYM DEVICE_FONTTYPE}
  12813.   DEVICE_FONTTYPE = 2;
  12814.   {$EXTERNALSYM TRUETYPE_FONTTYPE}
  12815.   TRUETYPE_FONTTYPE = 4;
  12816.  
  12817. {$EXTERNALSYM RGB}
  12818. function RGB(r, g, b: Byte): COLORREF;
  12819. function PaletteRGB(r, g, b: Byte): COLORREF;
  12820. function PaletteIndex(i: Word): COLORREF;
  12821.  
  12822. const
  12823.   { palette entry flags }
  12824.   {$EXTERNALSYM PC_RESERVED}
  12825.   PC_RESERVED = 1;     { palette index used for animation }
  12826.   {$EXTERNALSYM PC_EXPLICIT}
  12827.   PC_EXPLICIT = 2;     { palette index is explicit to device }
  12828.   {$EXTERNALSYM PC_NOCOLLAPSE}
  12829.   PC_NOCOLLAPSE = 4;   { do not match color to system palette }
  12830.  
  12831. {$EXTERNALSYM GetRValue}
  12832. function GetRValue(rgb: DWORD): Byte;
  12833. {$EXTERNALSYM GetGValue}
  12834. function GetGValue(rgb: DWORD): Byte;
  12835. {$EXTERNALSYM GetBValue}
  12836. function GetBValue(rgb: DWORD): Byte;
  12837.  
  12838. const
  12839.   { Background Modes }
  12840.   {$EXTERNALSYM TRANSPARENT}
  12841.   TRANSPARENT = 1;
  12842.   {$EXTERNALSYM OPAQUE}
  12843.   OPAQUE = 2;
  12844.   {$EXTERNALSYM BKMODE_LAST}
  12845.   BKMODE_LAST = 2;
  12846.  
  12847.   { Graphics Modes }
  12848.   {$EXTERNALSYM GM_COMPATIBLE}
  12849.   GM_COMPATIBLE = 1;
  12850.   {$EXTERNALSYM GM_ADVANCED}
  12851.   GM_ADVANCED = 2;
  12852.   {$EXTERNALSYM GM_LAST}
  12853.   GM_LAST = 2;
  12854.  
  12855.   { PolyDraw and GetPath point types }
  12856.   {$EXTERNALSYM PT_CLOSEFIGURE}
  12857.   PT_CLOSEFIGURE = 1;
  12858.   {$EXTERNALSYM PT_LINETO}
  12859.   PT_LINETO = 2;
  12860.   {$EXTERNALSYM PT_BEZIERTO}
  12861.   PT_BEZIERTO = 4;
  12862.   {$EXTERNALSYM PT_MOVETO}
  12863.   PT_MOVETO = 6;
  12864.  
  12865.   { Mapping Modes }
  12866.   {$EXTERNALSYM MM_TEXT}
  12867.   MM_TEXT = 1;
  12868.   {$EXTERNALSYM MM_LOMETRIC}
  12869.   MM_LOMETRIC = 2;
  12870.   {$EXTERNALSYM MM_HIMETRIC}
  12871.   MM_HIMETRIC = 3;
  12872.   {$EXTERNALSYM MM_LOENGLISH}
  12873.   MM_LOENGLISH = 4;
  12874.   {$EXTERNALSYM MM_HIENGLISH}
  12875.   MM_HIENGLISH = 5;
  12876.   {$EXTERNALSYM MM_TWIPS}
  12877.   MM_TWIPS = 6;
  12878.   {$EXTERNALSYM MM_ISOTROPIC}
  12879.   MM_ISOTROPIC = 7;
  12880.   {$EXTERNALSYM MM_ANISOTROPIC}
  12881.   MM_ANISOTROPIC = 8;
  12882.  
  12883.   { Min and Max Mapping Mode values }
  12884.   {$EXTERNALSYM MM_MIN}
  12885.   MM_MIN = MM_TEXT;
  12886.   {$EXTERNALSYM MM_MAX}
  12887.   MM_MAX = MM_ANISOTROPIC;
  12888.   {$EXTERNALSYM MM_MAX_FIXEDSCALE}
  12889.   MM_MAX_FIXEDSCALE = MM_TWIPS;
  12890.  
  12891.   { Coordinate Modes }
  12892.   {$EXTERNALSYM ABSOLUTE}
  12893.   ABSOLUTE = 1;
  12894.   {$EXTERNALSYM RELATIVE}
  12895.   RELATIVE = 2;
  12896.  
  12897.   { Stock Logical Objects }
  12898.   {$EXTERNALSYM WHITE_BRUSH}
  12899.   WHITE_BRUSH = 0;
  12900.   {$EXTERNALSYM LTGRAY_BRUSH}
  12901.   LTGRAY_BRUSH = 1;
  12902.   {$EXTERNALSYM GRAY_BRUSH}
  12903.   GRAY_BRUSH = 2;
  12904.   {$EXTERNALSYM DKGRAY_BRUSH}
  12905.   DKGRAY_BRUSH = 3;
  12906.   {$EXTERNALSYM BLACK_BRUSH}
  12907.   BLACK_BRUSH = 4;
  12908.   {$EXTERNALSYM NULL_BRUSH}
  12909.   NULL_BRUSH = 5;
  12910.   {$EXTERNALSYM HOLLOW_BRUSH}
  12911.   HOLLOW_BRUSH = NULL_BRUSH;
  12912.   {$EXTERNALSYM WHITE_PEN}
  12913.   WHITE_PEN = 6;
  12914.   {$EXTERNALSYM BLACK_PEN}
  12915.   BLACK_PEN = 7;
  12916.   {$EXTERNALSYM NULL_PEN}
  12917.   NULL_PEN = 8;
  12918.   {$EXTERNALSYM OEM_FIXED_FONT}
  12919.   OEM_FIXED_FONT = 10;
  12920.   {$EXTERNALSYM ANSI_FIXED_FONT}
  12921.   ANSI_FIXED_FONT = 11;
  12922.   {$EXTERNALSYM ANSI_VAR_FONT}
  12923.   ANSI_VAR_FONT = 12;
  12924.   {$EXTERNALSYM SYSTEM_FONT}
  12925.   SYSTEM_FONT = 13;
  12926.   {$EXTERNALSYM DEVICE_DEFAULT_FONT}
  12927.   DEVICE_DEFAULT_FONT = 14;
  12928.   {$EXTERNALSYM DEFAULT_PALETTE}
  12929.   DEFAULT_PALETTE = 15;
  12930.   {$EXTERNALSYM SYSTEM_FIXED_FONT}
  12931.   SYSTEM_FIXED_FONT = $10;
  12932.   {$EXTERNALSYM DEFAULT_GUI_FONT}
  12933.   DEFAULT_GUI_FONT = 17;
  12934.   {$EXTERNALSYM STOCK_LAST}
  12935.   STOCK_LAST = 17;
  12936.  
  12937.   {$EXTERNALSYM CLR_INVALID}
  12938.   CLR_INVALID = $FFFFFFFF;
  12939.  
  12940.   { Brush Styles }
  12941.   {$EXTERNALSYM BS_SOLID}
  12942.   BS_SOLID                = 0;
  12943.   {$EXTERNALSYM BS_NULL}
  12944.   BS_NULL                 = 1;
  12945.   {$EXTERNALSYM BS_HOLLOW}
  12946.   BS_HOLLOW               = BS_NULL;
  12947.   {$EXTERNALSYM BS_HATCHED}
  12948.   BS_HATCHED              = 2;
  12949.   {$EXTERNALSYM BS_PATTERN}
  12950.   BS_PATTERN              = 3;
  12951.   {$EXTERNALSYM BS_INDEXED}
  12952.   BS_INDEXED              = 4;
  12953.   {$EXTERNALSYM BS_DIBPATTERN}
  12954.   BS_DIBPATTERN           = 5;
  12955.   {$EXTERNALSYM BS_DIBPATTERNPT}
  12956.   BS_DIBPATTERNPT         = 6;
  12957.   {$EXTERNALSYM BS_PATTERN8X8}
  12958.   BS_PATTERN8X8           = 7;
  12959.   {$EXTERNALSYM BS_DIBPATTERN8X8}
  12960.   BS_DIBPATTERN8X8        = 8;
  12961.   {$EXTERNALSYM BS_MONOPATTERN}
  12962.   BS_MONOPATTERN          = 9;
  12963.  
  12964.   { Hatch Styles }
  12965.   {$EXTERNALSYM HS_HORIZONTAL}
  12966.   HS_HORIZONTAL = 0;       { ----- }
  12967.   {$EXTERNALSYM HS_VERTICAL}
  12968.   HS_VERTICAL   = 1;       { ||||| }
  12969.   {$EXTERNALSYM HS_FDIAGONAL}
  12970.   HS_FDIAGONAL  = 2;       { ///// }
  12971.   {$EXTERNALSYM HS_BDIAGONAL}
  12972.   HS_BDIAGONAL  = 3;       { \\\\\ }
  12973.   {$EXTERNALSYM HS_CROSS}
  12974.   HS_CROSS      = 4;       { +++++ }
  12975.   {$EXTERNALSYM HS_DIAGCROSS}
  12976.   HS_DIAGCROSS  = 5;       { xxxxx }
  12977.  
  12978.  
  12979.   { Pen Styles }
  12980.   {$EXTERNALSYM PS_SOLID}
  12981.   PS_SOLID       = 0;
  12982.   {$EXTERNALSYM PS_DASH}
  12983.   PS_DASH        = 1;      { ------- }
  12984.   {$EXTERNALSYM PS_DOT}
  12985.   PS_DOT         = 2;      { ....... }
  12986.   {$EXTERNALSYM PS_DASHDOT}
  12987.   PS_DASHDOT     = 3;      { _._._._ }
  12988.   {$EXTERNALSYM PS_DASHDOTDOT}
  12989.   PS_DASHDOTDOT  = 4;      { _.._.._ }
  12990.   {$EXTERNALSYM PS_NULL}
  12991.   PS_NULL = 5;
  12992.   {$EXTERNALSYM PS_INSIDEFRAME}
  12993.   PS_INSIDEFRAME = 6;
  12994.   {$EXTERNALSYM PS_USERSTYLE}
  12995.   PS_USERSTYLE = 7;
  12996.   {$EXTERNALSYM PS_ALTERNATE}
  12997.   PS_ALTERNATE = 8;
  12998.   {$EXTERNALSYM PS_STYLE_MASK}
  12999.   PS_STYLE_MASK = 15;
  13000.  
  13001.   {$EXTERNALSYM PS_ENDCAP_ROUND}
  13002.   PS_ENDCAP_ROUND = 0;
  13003.   {$EXTERNALSYM PS_ENDCAP_SQUARE}
  13004.   PS_ENDCAP_SQUARE = $100;
  13005.   {$EXTERNALSYM PS_ENDCAP_FLAT}
  13006.   PS_ENDCAP_FLAT = $200;
  13007.   {$EXTERNALSYM PS_ENDCAP_MASK}
  13008.   PS_ENDCAP_MASK = 3840;
  13009.  
  13010.   {$EXTERNALSYM PS_JOIN_ROUND}
  13011.   PS_JOIN_ROUND = 0;
  13012.   {$EXTERNALSYM PS_JOIN_BEVEL}
  13013.   PS_JOIN_BEVEL = $1000;
  13014.   {$EXTERNALSYM PS_JOIN_MITER}
  13015.   PS_JOIN_MITER = $2000;
  13016.   {$EXTERNALSYM PS_JOIN_MASK}
  13017.   PS_JOIN_MASK = 61440;
  13018.  
  13019.   {$EXTERNALSYM PS_COSMETIC}
  13020.   PS_COSMETIC = 0;
  13021.   {$EXTERNALSYM PS_GEOMETRIC}
  13022.   PS_GEOMETRIC = $10000;
  13023.   {$EXTERNALSYM PS_TYPE_MASK}
  13024.   PS_TYPE_MASK = $F0000;
  13025.  
  13026.   {$EXTERNALSYM AD_COUNTERCLOCKWISE}
  13027.   AD_COUNTERCLOCKWISE = 1;
  13028.   {$EXTERNALSYM AD_CLOCKWISE}
  13029.   AD_CLOCKWISE = 2;
  13030.  
  13031.   { Device Parameters for GetDeviceCaps() }
  13032.   {$EXTERNALSYM DRIVERVERSION}
  13033.   DRIVERVERSION = 0;     { Device driver version                     }
  13034.   {$EXTERNALSYM TECHNOLOGY}
  13035.   TECHNOLOGY    = 2;     { Device classification                     }
  13036.   {$EXTERNALSYM HORZSIZE}
  13037.   HORZSIZE      = 4;     { Horizontal size in millimeters            }
  13038.   {$EXTERNALSYM VERTSIZE}
  13039.   VERTSIZE      = 6;     { Vertical size in millimeters              }
  13040.   {$EXTERNALSYM HORZRES}
  13041.   HORZRES       = 8;     { Horizontal width in pixels                }
  13042.   {$EXTERNALSYM VERTRES}
  13043.   VERTRES       = 10;    { Vertical height in pixels                 }
  13044.   {$EXTERNALSYM BITSPIXEL}
  13045.   BITSPIXEL     = 12;    { Number of bits per pixel                  }
  13046.   {$EXTERNALSYM PLANES}
  13047.   PLANES        = 14;    { Number of planes                          }
  13048.   {$EXTERNALSYM NUMBRUSHES}
  13049.   NUMBRUSHES    = $10;   { Number of brushes the device has          }
  13050.   {$EXTERNALSYM NUMPENS}
  13051.   NUMPENS       = 18;    { Number of pens the device has             }
  13052.   {$EXTERNALSYM NUMMARKERS}
  13053.   NUMMARKERS    = 20;    { Number of markers the device has          }
  13054.   {$EXTERNALSYM NUMFONTS}
  13055.   NUMFONTS      = 22;    { Number of fonts the device has            }
  13056.   {$EXTERNALSYM NUMCOLORS}
  13057.   NUMCOLORS     = 24;    { Number of colors the device supports      }
  13058.   {$EXTERNALSYM PDEVICESIZE}
  13059.   PDEVICESIZE   = 26;    { Size required for device descriptor       }
  13060.   {$EXTERNALSYM CURVECAPS}
  13061.   CURVECAPS     = 28;    { Curve capabilities                        }
  13062.   {$EXTERNALSYM LINECAPS}
  13063.   LINECAPS      = 30;    { Line capabilities                         }
  13064.   {$EXTERNALSYM POLYGONALCAPS}
  13065.   POLYGONALCAPS = $20;   { Polygonal capabilities                    }
  13066.   {$EXTERNALSYM TEXTCAPS}
  13067.   TEXTCAPS      = 34;    { Text capabilities                         }
  13068.   {$EXTERNALSYM CLIPCAPS}
  13069.   CLIPCAPS      = 36;    { Clipping capabilities                     }
  13070.   {$EXTERNALSYM RASTERCAPS}
  13071.   RASTERCAPS    = 38;    { Bitblt capabilities                       }
  13072.   {$EXTERNALSYM ASPECTX}
  13073.   ASPECTX       = 40;    { Length of the X leg                       }
  13074.   {$EXTERNALSYM ASPECTY}
  13075.   ASPECTY       = 42;    { Length of the Y leg                       }
  13076.   {$EXTERNALSYM ASPECTXY}
  13077.   ASPECTXY      = 44;    { Length of the hypotenuse                  }
  13078.  
  13079.   {$EXTERNALSYM LOGPIXELSX}
  13080.   LOGPIXELSX    = 88;    { Logical pixelsinch in X                  }
  13081.   {$EXTERNALSYM LOGPIXELSY}
  13082.   LOGPIXELSY    = 90;    { Logical pixelsinch in Y                  }
  13083.  
  13084.   {$EXTERNALSYM SIZEPALETTE}
  13085.   SIZEPALETTE   = 104;   { Number of entries in physical palette     }
  13086.   {$EXTERNALSYM NUMRESERVED}
  13087.   NUMRESERVED   = 106;   { Number of reserved entries in palette     }
  13088.   {$EXTERNALSYM COLORRES}
  13089.   COLORRES      = 108;   { Actual color resolution                   }
  13090.  
  13091.   { Printing related DeviceCaps. These replace the appropriate Escapes }
  13092.   {$EXTERNALSYM PHYSICALWIDTH}
  13093.   PHYSICALWIDTH   = 110;     { Physical Width in device units            }
  13094.   {$EXTERNALSYM PHYSICALHEIGHT}
  13095.   PHYSICALHEIGHT  = 111;     { Physical Height in device units           }
  13096.   {$EXTERNALSYM PHYSICALOFFSETX}
  13097.   PHYSICALOFFSETX = 112;     { Physical Printable Area x margin          }
  13098.   {$EXTERNALSYM PHYSICALOFFSETY}
  13099.   PHYSICALOFFSETY = 113;     { Physical Printable Area y margin          }
  13100.   {$EXTERNALSYM SCALINGFACTORX}
  13101.   SCALINGFACTORX  = 114;     { Scaling factor x                          }
  13102.   {$EXTERNALSYM SCALINGFACTORY}
  13103.   SCALINGFACTORY  = 115;     { Scaling factor y                          }
  13104.  
  13105.  
  13106.   { Display driver specific}
  13107.   {$EXTERNALSYM VREFRESH}
  13108.   VREFRESH       = 116;     { Current vertical refresh rate of the     }
  13109.                             { display device (for displays only) in Hz}
  13110.   {$EXTERNALSYM DESKTOPVERTRES}
  13111.   DESKTOPVERTRES = 117;     { Horizontal width of entire desktop in    }
  13112.                             { pixels                                  }
  13113.   {$EXTERNALSYM DESKTOPHORZRES}
  13114.   DESKTOPHORZRES = 118;     { Vertical height of entire desktop in     }
  13115.                             { pixels                                  }
  13116.   {$EXTERNALSYM BLTALIGNMENT}
  13117.   BLTALIGNMENT   = 119;     { Preferred blt alignment                  }
  13118.  
  13119.  
  13120. { Device Capability Masks: }
  13121.  
  13122. { Device Technologies }
  13123.  
  13124.   {$EXTERNALSYM DT_PLOTTER}
  13125.   DT_PLOTTER    = 0;     { Vector plotter                    }
  13126.   {$EXTERNALSYM DT_RASDISPLAY}
  13127.   DT_RASDISPLAY = 1;     { Raster display                    }
  13128.   {$EXTERNALSYM DT_RASPRINTER}
  13129.   DT_RASPRINTER = 2;     { Raster printer                    }
  13130.   {$EXTERNALSYM DT_RASCAMERA}
  13131.   DT_RASCAMERA  = 3;     { Raster camera                     }
  13132.   {$EXTERNALSYM DT_CHARSTREAM}
  13133.   DT_CHARSTREAM = 4;     { Character-stream, PLP             }
  13134.   {$EXTERNALSYM DT_METAFILE}
  13135.   DT_METAFILE   = 5;     { Metafile, VDM                     }
  13136.   {$EXTERNALSYM DT_DISPFILE}
  13137.   DT_DISPFILE   = 6;     { Display-file                      }
  13138.  
  13139. { Curve Capabilities }
  13140.  
  13141.   {$EXTERNALSYM CC_NONE}
  13142.   CC_NONE       = 0;     { Curves not supported              }
  13143.   {$EXTERNALSYM CC_CIRCLES}
  13144.   CC_CIRCLES    = 1;     { Can do circles                    }
  13145.   {$EXTERNALSYM CC_PIE}
  13146.   CC_PIE        = 2;     { Can do pie wedges                 }
  13147.   {$EXTERNALSYM CC_CHORD}
  13148.   CC_CHORD      = 4;     { Can do chord arcs                 }
  13149.   {$EXTERNALSYM CC_ELLIPSES}
  13150.   CC_ELLIPSES   = 8;     { Can do ellipese                   }
  13151.   {$EXTERNALSYM CC_WIDE}
  13152.   CC_WIDE       = $10;   { Can do wide lines                 }
  13153.   {$EXTERNALSYM CC_STYLED}
  13154.   CC_STYLED     = $20;   { Can do styled lines               }
  13155.   {$EXTERNALSYM CC_WIDESTYLED}
  13156.   CC_WIDESTYLED = $40;   { Can do wide styled lines          }
  13157.   {$EXTERNALSYM CC_INTERIORS}
  13158.   CC_INTERIORS  = $80;   { Can do interiors                  }
  13159.   {$EXTERNALSYM CC_ROUNDRECT}
  13160.   CC_ROUNDRECT  = $100;
  13161.  
  13162. { Line Capabilities }
  13163.  
  13164.   {$EXTERNALSYM LC_NONE}
  13165.   LC_NONE       = 0;     { Lines not supported               }
  13166.   {$EXTERNALSYM LC_POLYLINE}
  13167.   LC_POLYLINE   = 2;     { Can do polylines                  }
  13168.   {$EXTERNALSYM LC_MARKER}
  13169.   LC_MARKER     = 4;     { Can do markers                    }
  13170.   {$EXTERNALSYM LC_POLYMARKER}
  13171.   LC_POLYMARKER = 8;     { Can do polymarkers                }
  13172.   {$EXTERNALSYM LC_WIDE}
  13173.   LC_WIDE       = $10;   { Can do wide lines                 }
  13174.   {$EXTERNALSYM LC_STYLED}
  13175.   LC_STYLED     = $20;   { Can do styled lines               }
  13176.   {$EXTERNALSYM LC_WIDESTYLED}
  13177.   LC_WIDESTYLED = $40;   { Can do wide styled lines          }
  13178.   {$EXTERNALSYM LC_INTERIORS}
  13179.   LC_INTERIORS  = $80;   { Can do interiors                  }
  13180.  
  13181. { Polygonal Capabilities }
  13182.  
  13183.   {$EXTERNALSYM PC_NONE}
  13184.   PC_NONE        = 0;     { Polygonals not supported          }
  13185.   {$EXTERNALSYM PC_POLYGON}
  13186.   PC_POLYGON     = 1;     { Can do polygons                   }
  13187.   {$EXTERNALSYM PC_RECTANGLE}
  13188.   PC_RECTANGLE   = 2;     { Can do rectangles                 }
  13189.   {$EXTERNALSYM PC_WINDPOLYGON}
  13190.   PC_WINDPOLYGON = 4;     { Can do winding polygons           }
  13191.   {$EXTERNALSYM PC_TRAPEZOID}
  13192.   PC_TRAPEZOID   = 4;     { Can do trapezoids                 }
  13193.   {$EXTERNALSYM PC_SCANLINE}
  13194.   PC_SCANLINE    = 8;     { Can do scanlines                  }
  13195.   {$EXTERNALSYM PC_WIDE}
  13196.   PC_WIDE        = $10;   { Can do wide borders               }
  13197.   {$EXTERNALSYM PC_STYLED}
  13198.   PC_STYLED      = $20;   { Can do styled borders             }
  13199.   {$EXTERNALSYM PC_WIDESTYLED}
  13200.   PC_WIDESTYLED  = $40;   { Can do wide styled borders        }
  13201.   {$EXTERNALSYM PC_INTERIORS}
  13202.   PC_INTERIORS   = $80;   { Can do interiors                  }
  13203.   {$EXTERNALSYM PC_POLYPOLYGON}
  13204.   PC_POLYPOLYGON = $100;  { Can do polypolygons               }
  13205.   {$EXTERNALSYM PC_PATHS}
  13206.   PC_PATHS       = $200;  { Can do paths                      }
  13207.  
  13208. { Clipping Capabilities }
  13209.  
  13210.   {$EXTERNALSYM CP_NONE}
  13211.   CP_NONE      = 0;     { No clipping of output             }
  13212.   {$EXTERNALSYM CP_RECTANGLE}
  13213.   CP_RECTANGLE = 1;     { Output clipped to rects           }
  13214.   {$EXTERNALSYM CP_REGION}
  13215.   CP_REGION    = 2;     { obsolete                          }
  13216.  
  13217. { Text Capabilities }
  13218.  
  13219.   {$EXTERNALSYM TC_OP_CHARACTER}
  13220.   TC_OP_CHARACTER = 1;      { Can do OutputPrecision   CHARACTER       }
  13221.   {$EXTERNALSYM TC_OP_STROKE}
  13222.   TC_OP_STROKE    = 2;      { Can do OutputPrecision   STROKE          }
  13223.   {$EXTERNALSYM TC_CP_STROKE}
  13224.   TC_CP_STROKE    = 4;      { Can do ClipPrecision     STROKE          }
  13225.   {$EXTERNALSYM TC_CR_90}
  13226.   TC_CR_90        = 8;      { Can do CharRotAbility    90              }
  13227.   {$EXTERNALSYM TC_CR_ANY}
  13228.   TC_CR_ANY       = $10;    { Can do CharRotAbility    ANY             }
  13229.   {$EXTERNALSYM TC_SF_X_YINDEP}
  13230.   TC_SF_X_YINDEP  = $20;    { Can do ScaleFreedom      X_YINDEPENDENT  }
  13231.   {$EXTERNALSYM TC_SA_DOUBLE}
  13232.   TC_SA_DOUBLE    = $40;    { Can do ScaleAbility      DOUBLE          }
  13233.   {$EXTERNALSYM TC_SA_INTEGER}
  13234.   TC_SA_INTEGER   = $80;    { Can do ScaleAbility      INTEGER         }
  13235.   {$EXTERNALSYM TC_SA_CONTIN}
  13236.   TC_SA_CONTIN    = $100;   { Can do ScaleAbility      CONTINUOUS      }
  13237.   {$EXTERNALSYM TC_EA_DOUBLE}
  13238.   TC_EA_DOUBLE    = $200;   { Can do EmboldenAbility   DOUBLE          }
  13239.   {$EXTERNALSYM TC_IA_ABLE}
  13240.   TC_IA_ABLE      = $400;   { Can do ItalisizeAbility  ABLE            }
  13241.   {$EXTERNALSYM TC_UA_ABLE}
  13242.   TC_UA_ABLE      = $800;   { Can do UnderlineAbility  ABLE            }
  13243.   {$EXTERNALSYM TC_SO_ABLE}
  13244.   TC_SO_ABLE      = $1000;  { Can do StrikeOutAbility  ABLE            }
  13245.   {$EXTERNALSYM TC_RA_ABLE}
  13246.   TC_RA_ABLE      = $2000;  { Can do RasterFontAble    ABLE            }
  13247.   {$EXTERNALSYM TC_VA_ABLE}
  13248.   TC_VA_ABLE      = $4000;  { Can do VectorFontAble    ABLE            }
  13249.   {$EXTERNALSYM TC_RESERVED}
  13250.   TC_RESERVED     = $8000;
  13251.   {$EXTERNALSYM TC_SCROLLBLT}
  13252.   TC_SCROLLBLT    = $10000; { Don't do text scroll with blt            }
  13253.  
  13254. { Raster Capabilities }
  13255.  
  13256.   {$EXTERNALSYM RC_BITBLT}
  13257.   RC_BITBLT       = 1;     { Can do standard BLT.              }
  13258.   {$EXTERNALSYM RC_BANDING}
  13259.   RC_BANDING      = 2;     { Device requires banding support   }
  13260.   {$EXTERNALSYM RC_SCALING}
  13261.   RC_SCALING      = 4;     { Device requires scaling support   }
  13262.   {$EXTERNALSYM RC_BITMAP64}
  13263.   RC_BITMAP64     = 8;     { Device can support >64K bitmap    }
  13264.   {$EXTERNALSYM RC_GDI20_OUTPUT}
  13265.   RC_GDI20_OUTPUT = $10;   { has 2.0 output calls          }
  13266.   {$EXTERNALSYM RC_GDI20_STATE}
  13267.   RC_GDI20_STATE  = $20;
  13268.   {$EXTERNALSYM RC_SAVEBITMAP}
  13269.   RC_SAVEBITMAP   = $40;
  13270.   {$EXTERNALSYM RC_DI_BITMAP}
  13271.   RC_DI_BITMAP    = $80;   { supports DIB to memory        }
  13272.   {$EXTERNALSYM RC_PALETTE}
  13273.   RC_PALETTE      = $100;  { supports a palette            }
  13274.   {$EXTERNALSYM RC_DIBTODEV}
  13275.   RC_DIBTODEV     = $200;  { supports DIBitsToDevice       }
  13276.   {$EXTERNALSYM RC_BIGFONT}
  13277.   RC_BIGFONT      = $400;  { supports >64K fonts           }
  13278.   {$EXTERNALSYM RC_STRETCHBLT}
  13279.   RC_STRETCHBLT   = $800;  { supports StretchBlt           }
  13280.   {$EXTERNALSYM RC_FLOODFILL}
  13281.   RC_FLOODFILL    = $1000; { supports FloodFill            }
  13282.   {$EXTERNALSYM RC_STRETCHDIB}
  13283.   RC_STRETCHDIB   = $2000; { supports StretchDIBits        }
  13284.   {$EXTERNALSYM RC_OP_DX_OUTPUT}
  13285.   RC_OP_DX_OUTPUT = $4000;
  13286.   {$EXTERNALSYM RC_DEVBITS}
  13287.   RC_DEVBITS      = $8000;
  13288.  
  13289. { DIB color table identifiers }
  13290.  
  13291.   {$EXTERNALSYM DIB_RGB_COLORS}
  13292.   DIB_RGB_COLORS = 0;     { color table in RGBs  }
  13293.   {$EXTERNALSYM DIB_PAL_COLORS}
  13294.   DIB_PAL_COLORS = 1;     { color table in palette indices  }
  13295.  
  13296. { constants for GetSetSystemPaletteUse() }
  13297.  
  13298.   {$EXTERNALSYM SYSPAL_ERROR}
  13299.   SYSPAL_ERROR = 0;
  13300.   {$EXTERNALSYM SYSPAL_STATIC}
  13301.   SYSPAL_STATIC = 1;
  13302.   {$EXTERNALSYM SYSPAL_NOSTATIC}
  13303.   SYSPAL_NOSTATIC = 2;
  13304.  
  13305. { constants for CreateDIBitmap }
  13306.  
  13307.   {$EXTERNALSYM CBM_INIT}
  13308.   CBM_INIT = 4;     { initialize bitmap  }
  13309.  
  13310. { ExtFloodFill style flags }
  13311.  
  13312.   {$EXTERNALSYM FLOODFILLBORDER}
  13313.   FLOODFILLBORDER = 0;
  13314.   {$EXTERNALSYM FLOODFILLSURFACE}
  13315.   FLOODFILLSURFACE = 1;
  13316.  
  13317.   {$EXTERNALSYM CCHDEVICENAME}
  13318.   CCHDEVICENAME = 32;     { size of a device name string  }
  13319.   {$EXTERNALSYM CCHFORMNAME}
  13320.   CCHFORMNAME   = 32;     { size of a form name string  }
  13321.  
  13322. type
  13323.   PDeviceModeA = ^TDeviceModeA;
  13324.   PDeviceModeW = ^TDeviceModeW;
  13325.   PDeviceMode = PDeviceModeA;
  13326.   {$EXTERNALSYM _devicemodeA}
  13327.   _devicemodeA = packed record
  13328.     dmDeviceName: array[0..CCHDEVICENAME - 1] of AnsiChar;
  13329.     dmSpecVersion: Word;
  13330.     dmDriverVersion: Word;
  13331.     dmSize: Word;
  13332.     dmDriverExtra: Word;
  13333.     dmFields: DWORD;
  13334.     dmOrientation: SHORT;
  13335.     dmPaperSize: SHORT;
  13336.     dmPaperLength: SHORT;
  13337.     dmPaperWidth: SHORT;
  13338.     dmScale: SHORT;
  13339.     dmCopies: SHORT;
  13340.     dmDefaultSource: SHORT;
  13341.     dmPrintQuality: SHORT;
  13342.     dmColor: SHORT;
  13343.     dmDuplex: SHORT;
  13344.     dmYResolution: SHORT;
  13345.     dmTTOption: SHORT;
  13346.     dmCollate: SHORT;
  13347.     dmFormName: array[0..CCHFORMNAME - 1] of AnsiChar;
  13348.     dmLogPixels: Word;
  13349.     dmBitsPerPel: DWORD;
  13350.     dmPelsWidth: DWORD;
  13351.     dmPelsHeight: DWORD;
  13352.     dmDisplayFlags: DWORD;
  13353.     dmDisplayFrequency: DWORD;
  13354.     dmICMMethod: DWORD;
  13355.     dmICMIntent: DWORD;
  13356.     dmMediaType: DWORD;
  13357.     dmDitherType: DWORD;
  13358.     dmICCManufacturer: DWORD;
  13359.     dmICCModel: DWORD;
  13360.     dmPanningWidth: DWORD;
  13361.     dmPanningHeight: DWORD;
  13362.   end;
  13363.   {$EXTERNALSYM _devicemodeW}
  13364.   _devicemodeW = packed record
  13365.     dmDeviceName: array[0..CCHDEVICENAME - 1] of WideChar;
  13366.     dmSpecVersion: Word;
  13367.     dmDriverVersion: Word;
  13368.     dmSize: Word;
  13369.     dmDriverExtra: Word;
  13370.     dmFields: DWORD;
  13371.     dmOrientation: SHORT;
  13372.     dmPaperSize: SHORT;
  13373.     dmPaperLength: SHORT;
  13374.     dmPaperWidth: SHORT;
  13375.     dmScale: SHORT;
  13376.     dmCopies: SHORT;
  13377.     dmDefaultSource: SHORT;
  13378.     dmPrintQuality: SHORT;
  13379.     dmColor: SHORT;
  13380.     dmDuplex: SHORT;
  13381.     dmYResolution: SHORT;
  13382.     dmTTOption: SHORT;
  13383.     dmCollate: SHORT;
  13384.     dmFormName: array[0..CCHFORMNAME - 1] of WideChar;
  13385.     dmLogPixels: Word;
  13386.     dmBitsPerPel: DWORD;
  13387.     dmPelsWidth: DWORD;
  13388.     dmPelsHeight: DWORD;
  13389.     dmDisplayFlags: DWORD;
  13390.     dmDisplayFrequency: DWORD;
  13391.     dmICMMethod: DWORD;
  13392.     dmICMIntent: DWORD;
  13393.     dmMediaType: DWORD;
  13394.     dmDitherType: DWORD;
  13395.     dmICCManufacturer: DWORD;
  13396.     dmICCModel: DWORD;
  13397.     dmPanningWidth: DWORD;
  13398.     dmPanningHeight: DWORD;
  13399.   end;
  13400.   {$EXTERNALSYM _devicemode}
  13401.   _devicemode = _devicemodeA;
  13402.   TDeviceModeA = _devicemodeA;
  13403.   TDeviceModeW = _devicemodeW;
  13404.   TDeviceMode = TDeviceModeA;
  13405.   {$EXTERNALSYM DEVMODEA}
  13406.   DEVMODEA = _devicemodeA;
  13407.   {$EXTERNALSYM DEVMODEW}
  13408.   DEVMODEW = _devicemodeW;
  13409.   {$EXTERNALSYM DEVMODE}
  13410.   DEVMODE = DEVMODEA;
  13411.  
  13412.   PDevMode = PDeviceMode;  {compatibility with Delphi 1.0}
  13413.   TDevMode = TDeviceMode;  {compatibility with Delphi 1.0}
  13414.  
  13415. const
  13416.   {$EXTERNALSYM DM_SPECVERSION}
  13417.   DM_SPECVERSION = $401;  { current version of specification }
  13418.  
  13419. { field selection bits }
  13420.  
  13421.   {$EXTERNALSYM DM_ORIENTATION}
  13422.   DM_ORIENTATION = 1;
  13423.   {$EXTERNALSYM DM_PAPERSIZE}
  13424.   DM_PAPERSIZE = 2;
  13425.   {$EXTERNALSYM DM_PAPERLENGTH}
  13426.   DM_PAPERLENGTH = 4;
  13427.   {$EXTERNALSYM DM_PAPERWIDTH}
  13428.   DM_PAPERWIDTH = 8;
  13429.   {$EXTERNALSYM DM_SCALE}
  13430.   DM_SCALE = $10;
  13431.   {$EXTERNALSYM DM_COPIES}
  13432.   DM_COPIES = $100;
  13433.   {$EXTERNALSYM DM_DEFAULTSOURCE}
  13434.   DM_DEFAULTSOURCE = $200;
  13435.   {$EXTERNALSYM DM_PRINTQUALITY}
  13436.   DM_PRINTQUALITY = $400;
  13437.   {$EXTERNALSYM DM_COLOR}
  13438.   DM_COLOR = $800;
  13439.   {$EXTERNALSYM DM_DUPLEX}
  13440.   DM_DUPLEX = $1000;
  13441.   {$EXTERNALSYM DM_YRESOLUTION}
  13442.   DM_YRESOLUTION = $2000;
  13443.   {$EXTERNALSYM DM_TTOPTION}
  13444.   DM_TTOPTION = $4000;
  13445.   {$EXTERNALSYM DM_COLLATE}
  13446.   DM_COLLATE = $8000;
  13447.   {$EXTERNALSYM DM_FORMNAME}
  13448.   DM_FORMNAME = $10000;
  13449.   {$EXTERNALSYM DM_LOGPIXELS}
  13450.   DM_LOGPIXELS = $20000;
  13451.   {$EXTERNALSYM DM_BITSPERPEL}
  13452.   DM_BITSPERPEL = $40000;
  13453.   {$EXTERNALSYM DM_PELSWIDTH}
  13454.   DM_PELSWIDTH = $80000;
  13455.   {$EXTERNALSYM DM_PELSHEIGHT}
  13456.   DM_PELSHEIGHT = $100000;
  13457.   {$EXTERNALSYM DM_DISPLAYFLAGS}
  13458.   DM_DISPLAYFLAGS = $200000;
  13459.   {$EXTERNALSYM DM_DISPLAYFREQUENCY}
  13460.   DM_DISPLAYFREQUENCY = $400000;
  13461.   {$EXTERNALSYM DM_PANNINGWIDTH}
  13462.   DM_PANNINGWIDTH = $00800000;
  13463.   {$EXTERNALSYM DM_PANNINGHEIGHT}
  13464.   DM_PANNINGHEIGHT = $01000000;
  13465.   {$EXTERNALSYM DM_ICMMETHOD}
  13466.   DM_ICMMETHOD = $2000000;
  13467.   {$EXTERNALSYM DM_ICMINTENT}
  13468.   DM_ICMINTENT = $4000000;
  13469.   {$EXTERNALSYM DM_MEDIATYPE}
  13470.   DM_MEDIATYPE = $8000000;
  13471.   {$EXTERNALSYM DM_DITHERTYPE}
  13472.   DM_DITHERTYPE = $10000000;
  13473.   {$EXTERNALSYM DM_ICCMANUFACTURER}
  13474.   DM_ICCMANUFACTURER = $20000000;
  13475.   {$EXTERNALSYM DM_ICCMODEL}
  13476.   DM_ICCMODEL = $40000000;
  13477.  
  13478. { orientation selections }
  13479.  
  13480.   {$EXTERNALSYM DMORIENT_PORTRAIT}
  13481.   DMORIENT_PORTRAIT = 1;
  13482.   {$EXTERNALSYM DMORIENT_LANDSCAPE}
  13483.   DMORIENT_LANDSCAPE = 2;
  13484.  
  13485. { paper selections }
  13486.  
  13487.   {$EXTERNALSYM DMPAPER_LETTER}
  13488.   DMPAPER_LETTER      = 1;  { Letter 8 12 x 11 in               }
  13489.   {$EXTERNALSYM DMPAPER_FIRST}
  13490.   DMPAPER_FIRST       = DMPAPER_LETTER;
  13491.   {$EXTERNALSYM DMPAPER_LETTERSMALL}
  13492.   DMPAPER_LETTERSMALL = 2;  { Letter Small 8 12 x 11 in         }
  13493.   {$EXTERNALSYM DMPAPER_TABLOID}
  13494.   DMPAPER_TABLOID     = 3;  { Tabloid 11 x 17 in                }
  13495.   {$EXTERNALSYM DMPAPER_LEDGER}
  13496.   DMPAPER_LEDGER      = 4;  { Ledger 17 x 11 in                 }
  13497.   {$EXTERNALSYM DMPAPER_LEGAL}
  13498.   DMPAPER_LEGAL       = 5;  { Legal 8 12 x 14 in                }
  13499.   {$EXTERNALSYM DMPAPER_STATEMENT}
  13500.   DMPAPER_STATEMENT   = 6;  { Statement 5 12 x 8 12 in          }
  13501.   {$EXTERNALSYM DMPAPER_EXECUTIVE}
  13502.   DMPAPER_EXECUTIVE   = 7;  { Executive 7 14 x 10 12 in         }
  13503.   {$EXTERNALSYM DMPAPER_A3}
  13504.   DMPAPER_A3      = 8;      { A3 297 x 420 mm                     }
  13505.   {$EXTERNALSYM DMPAPER_A4}
  13506.   DMPAPER_A4      = 9;      { A4 210 x 297 mm                     }
  13507.   {$EXTERNALSYM DMPAPER_A4SMALL}
  13508.   DMPAPER_A4SMALL = 10;     { A4 Small 210 x 297 mm               }
  13509.   {$EXTERNALSYM DMPAPER_A5}
  13510.   DMPAPER_A5      = 11;     { A5 148 x 210 mm                     }
  13511.   {$EXTERNALSYM DMPAPER_B4}
  13512.   DMPAPER_B4      = 12;     { B4 (JIS) 250 x 354                  }
  13513.   {$EXTERNALSYM DMPAPER_B5}
  13514.   DMPAPER_B5      = 13;     { B5 (JIS) 182 x 257 mm               }
  13515.   {$EXTERNALSYM DMPAPER_FOLIO}
  13516.   DMPAPER_FOLIO   = 14;     { Folio 8 12 x 13 in                  }
  13517.   {$EXTERNALSYM DMPAPER_QUARTO}
  13518.   DMPAPER_QUARTO  = 15;     { Quarto 215 x 275 mm                 }
  13519.   {$EXTERNALSYM DMPAPER_10X14}
  13520.   DMPAPER_10X14   = 16;     { 10x14 in                            }
  13521.   {$EXTERNALSYM DMPAPER_11X17}
  13522.   DMPAPER_11X17   = 17;     { 11x17 in                            }
  13523.   {$EXTERNALSYM DMPAPER_NOTE}
  13524.   DMPAPER_NOTE    = 18;     { Note 8 12 x 11 in                   }
  13525.   {$EXTERNALSYM DMPAPER_ENV_9}
  13526.   DMPAPER_ENV_9   = 19;     { Envelope #9 3 78 x 8 78             }
  13527.   {$EXTERNALSYM DMPAPER_ENV_10}
  13528.   DMPAPER_ENV_10  = 20;     { Envelope #10 4 18 x 9 12            }
  13529.   {$EXTERNALSYM DMPAPER_ENV_11}
  13530.   DMPAPER_ENV_11  = 21;     { Envelope #11 4 12 x 10 38           }
  13531.   {$EXTERNALSYM DMPAPER_ENV_12}
  13532.   DMPAPER_ENV_12  = 22;     { Envelope #12 4 \276 x 11            }
  13533.   {$EXTERNALSYM DMPAPER_ENV_14}
  13534.   DMPAPER_ENV_14  = 23;     { Envelope #14 5 x 11 12              }
  13535.   {$EXTERNALSYM DMPAPER_CSHEET}
  13536.   DMPAPER_CSHEET  = 24;     { C size sheet                        }
  13537.   {$EXTERNALSYM DMPAPER_DSHEET}
  13538.   DMPAPER_DSHEET  = 25;     { D size sheet                        }
  13539.   {$EXTERNALSYM DMPAPER_ESHEET}
  13540.   DMPAPER_ESHEET  = 26;     { E size sheet                        }
  13541.   {$EXTERNALSYM DMPAPER_ENV_DL}
  13542.   DMPAPER_ENV_DL  = 27;     { Envelope DL 110 x 220mm             }
  13543.   {$EXTERNALSYM DMPAPER_ENV_C5}
  13544.   DMPAPER_ENV_C5  = 28;     { Envelope C5 162 x 229 mm            }
  13545.   {$EXTERNALSYM DMPAPER_ENV_C3}
  13546.   DMPAPER_ENV_C3  = 29;     { Envelope C3  324 x 458 mm           }
  13547.   {$EXTERNALSYM DMPAPER_ENV_C4}
  13548.   DMPAPER_ENV_C4  = 30;     { Envelope C4  229 x 324 mm           }
  13549.   {$EXTERNALSYM DMPAPER_ENV_C6}
  13550.   DMPAPER_ENV_C6  = 31;     { Envelope C6  114 x 162 mm           }
  13551.   {$EXTERNALSYM DMPAPER_ENV_C65}
  13552.   DMPAPER_ENV_C65  = 32;    { Envelope C65 114 x 229 mm           }
  13553.   {$EXTERNALSYM DMPAPER_ENV_B4}
  13554.   DMPAPER_ENV_B4   = 33;    { Envelope B4  250 x 353 mm           }
  13555.   {$EXTERNALSYM DMPAPER_ENV_B5}
  13556.   DMPAPER_ENV_B5   = 34;    { Envelope B5  176 x 250 mm           }
  13557.   {$EXTERNALSYM DMPAPER_ENV_B6}
  13558.   DMPAPER_ENV_B6   = 35;    { Envelope B6  176 x 125 mm           }
  13559.   {$EXTERNALSYM DMPAPER_ENV_ITALY}
  13560.   DMPAPER_ENV_ITALY          = 36;  { Envelope 110 x 230 mm               }
  13561.   {$EXTERNALSYM DMPAPER_ENV_MONARCH}
  13562.   DMPAPER_ENV_MONARCH        = 37;  { Envelope Monarch 3.875 x 7.5 in     }
  13563.   {$EXTERNALSYM DMPAPER_ENV_PERSONAL}
  13564.   DMPAPER_ENV_PERSONAL       = 38;  { 6 34 Envelope 3 58 x 6 12 in        }
  13565.   {$EXTERNALSYM DMPAPER_FANFOLD_US}
  13566.   DMPAPER_FANFOLD_US         = 39;  { US Std Fanfold 14 78 x 11 in        }
  13567.   {$EXTERNALSYM DMPAPER_FANFOLD_STD_GERMAN}
  13568.   DMPAPER_FANFOLD_STD_GERMAN = 40;  { German Std Fanfold 8 12 x 12 in    }
  13569.   {$EXTERNALSYM DMPAPER_FANFOLD_LGL_GERMAN}
  13570.   DMPAPER_FANFOLD_LGL_GERMAN = 41;  { German Legal Fanfold 8 12 x 13 in  }
  13571.   {$EXTERNALSYM DMPAPER_ISO_B4}
  13572.   DMPAPER_ISO_B4             = 42;  { B4 (ISO) 250 x 353 mm               }
  13573.   {$EXTERNALSYM DMPAPER_JAPANESE_POSTCARD}
  13574.   DMPAPER_JAPANESE_POSTCARD  = 43;  { Japanese Postcard 100 x 148 mm      }
  13575.   {$EXTERNALSYM DMPAPER_9X11}
  13576.   DMPAPER_9X11               = 44;  { 9 x 11 in                           }
  13577.   {$EXTERNALSYM DMPAPER_10X11}
  13578.   DMPAPER_10X11              = 45;  { 10 x 11 in                          }
  13579.   {$EXTERNALSYM DMPAPER_15X11}
  13580.   DMPAPER_15X11              = 46;  { 15 x 11 in                          }
  13581.   {$EXTERNALSYM DMPAPER_ENV_INVITE}
  13582.   DMPAPER_ENV_INVITE         = 47;  { Envelope Invite 220 x 220 mm        }
  13583.   {$EXTERNALSYM DMPAPER_RESERVED_48}
  13584.   DMPAPER_RESERVED_48        = 48;  { RESERVED--DO NOT USE                }
  13585.   {$EXTERNALSYM DMPAPER_RESERVED_49}
  13586.   DMPAPER_RESERVED_49        = 49;  { RESERVED--DO NOT USE                }
  13587.   {$EXTERNALSYM DMPAPER_LETTER_EXTRA}
  13588.   DMPAPER_LETTER_EXTRA       = 50;  { Letter Extra 9 \275 x 12 in         }
  13589.   {$EXTERNALSYM DMPAPER_LEGAL_EXTRA}
  13590.   DMPAPER_LEGAL_EXTRA        = 51;  { Legal Extra 9 \275 x 15 in          }
  13591.   {$EXTERNALSYM DMPAPER_TABLOID_EXTRA}
  13592.   DMPAPER_TABLOID_EXTRA      = 52;  { Tabloid Extra 11.69 x 18 in         }
  13593.   {$EXTERNALSYM DMPAPER_A4_EXTRA}
  13594.   DMPAPER_A4_EXTRA           = 53;  { A4 Extra 9.27 x 12.69 in            }
  13595.   {$EXTERNALSYM DMPAPER_LETTER_TRANSVERSE}
  13596.   DMPAPER_LETTER_TRANSVERSE  = 54;  { Letter Transverse 8 \275 x 11 in    }
  13597.   {$EXTERNALSYM DMPAPER_A4_TRANSVERSE}
  13598.   DMPAPER_A4_TRANSVERSE      = 55;  { A4 Transverse 210 x 297 mm          }
  13599.   {$EXTERNALSYM DMPAPER_LETTER_EXTRA_TRANSVERSE}
  13600.   DMPAPER_LETTER_EXTRA_TRANSVERSE = 56;     { Letter Extra Transverse 9\275 x 12 in  }
  13601.   {$EXTERNALSYM DMPAPER_A_PLUS}
  13602.   DMPAPER_A_PLUS        = 57;     { SuperASuperAA4 227 x 356 mm       }
  13603.   {$EXTERNALSYM DMPAPER_B_PLUS}
  13604.   DMPAPER_B_PLUS        = 58;     { SuperBSuperBA3 305 x 487 mm       }
  13605.   {$EXTERNALSYM DMPAPER_LETTER_PLUS}
  13606.   DMPAPER_LETTER_PLUS   = 59;     { Letter Plus 8.5 x 12.69 in          }
  13607.   {$EXTERNALSYM DMPAPER_A4_PLUS}
  13608.   DMPAPER_A4_PLUS       = 60;     { A4 Plus 210 x 330 mm                }
  13609.   {$EXTERNALSYM DMPAPER_A5_TRANSVERSE}
  13610.   DMPAPER_A5_TRANSVERSE = 61;     { A5 Transverse 148 x 210 mm          }
  13611.   {$EXTERNALSYM DMPAPER_B5_TRANSVERSE}
  13612.   DMPAPER_B5_TRANSVERSE = 62;     { B5 (JIS) Transverse 182 x 257 mm    }
  13613.   {$EXTERNALSYM DMPAPER_A3_EXTRA}
  13614.   DMPAPER_A3_EXTRA      = 63;     { A3 Extra 322 x 445 mm               }
  13615.   {$EXTERNALSYM DMPAPER_A5_EXTRA}
  13616.   DMPAPER_A5_EXTRA      = $40;    { A5 Extra 174 x 235 mm               }
  13617.   {$EXTERNALSYM DMPAPER_B5_EXTRA}
  13618.   DMPAPER_B5_EXTRA      = 65;     { B5 (ISO) Extra 201 x 276 mm         }
  13619.   {$EXTERNALSYM DMPAPER_A2}
  13620.   DMPAPER_A2            = 66;     { A2 420 x 594 mm                     }
  13621.   {$EXTERNALSYM DMPAPER_A3_TRANSVERSE}
  13622.   DMPAPER_A3_TRANSVERSE = 67;     { A3 Transverse 297 x 420 mm          }
  13623.   {$EXTERNALSYM DMPAPER_A3_EXTRA_TRANSVERSE}
  13624.   DMPAPER_A3_EXTRA_TRANSVERSE = 68;     { A3 Extra Transverse 322 x 445 mm    }
  13625. {
  13626.  ** the following sizes are reserved for the Far East version of Win95.
  13627.  ** Rotated papers rotate the physical page but not the logical page.
  13628. }
  13629.   {$EXTERNALSYM DMPAPER_DBL_JAPANESE_POSTCARD}
  13630.   DMPAPER_DBL_JAPANESE_POSTCARD = 69; { Japanese Double Postcard 200 x 148 mm }
  13631.  
  13632.   {$EXTERNALSYM DMPAPER_A6}
  13633.   DMPAPER_A6                  = 70;  { A6 105 x 148 mm                 }
  13634.  
  13635.   {$EXTERNALSYM DMPAPER_JENV_KAKU2          }
  13636.   DMPAPER_JENV_KAKU2          = 71;  { Japanese Envelope Kaku #2       }
  13637.   {$EXTERNALSYM DMPAPER_JENV_KAKU3          }
  13638.   DMPAPER_JENV_KAKU3          = 72;  { Japanese Envelope Kaku #3       }
  13639.   {$EXTERNALSYM DMPAPER_JENV_CHOU3          }
  13640.   DMPAPER_JENV_CHOU3          = 73;  { Japanese Envelope Chou #3       }
  13641.   {$EXTERNALSYM DMPAPER_JENV_CHOU4          }
  13642.   DMPAPER_JENV_CHOU4          = 74;  { Japanese Envelope Chou #4       }
  13643.   {$EXTERNALSYM DMPAPER_LETTER_ROTATED      }
  13644.   DMPAPER_LETTER_ROTATED      = 75;  { Letter Rotated 11 x 8 1/2 11 in }
  13645.   {$EXTERNALSYM DMPAPER_A3_ROTATED          }
  13646.   DMPAPER_A3_ROTATED          = 76;  { A3 Rotated 420 x 297 mm         }
  13647.   {$EXTERNALSYM DMPAPER_A4_ROTATED          }
  13648.   DMPAPER_A4_ROTATED          = 77;  { A4 Rotated 297 x 210 mm         }
  13649.   {$EXTERNALSYM DMPAPER_A5_ROTATED          }
  13650.   DMPAPER_A5_ROTATED          = 78;  { A5 Rotated 210 x 148 mm         }
  13651.   {$EXTERNALSYM DMPAPER_B4_JIS_ROTATED      }
  13652.   DMPAPER_B4_JIS_ROTATED      = 79;  { B4 (JIS) Rotated 364 x 257 mm   }
  13653.   {$EXTERNALSYM DMPAPER_B5_JIS_ROTATED      }
  13654.   DMPAPER_B5_JIS_ROTATED      = 80;  { B5 (JIS) Rotated 257 x 182 mm   }
  13655.   {$EXTERNALSYM DMPAPER_JAPANESE_POSTCARD_ROTATED }
  13656.   DMPAPER_JAPANESE_POSTCARD_ROTATED = 81; { Japanese Postcard Rotated 148 x 100 mm }
  13657.   {$EXTERNALSYM DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED }
  13658.   DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED = 82; { Double Japanese Postcard Rotated 148 x 200 mm }
  13659.   {$EXTERNALSYM DMPAPER_A6_ROTATED          }
  13660.   DMPAPER_A6_ROTATED          = 83;  { A6 Rotated 148 x 105 mm         }
  13661.   {$EXTERNALSYM DMPAPER_JENV_KAKU2_ROTATED  }
  13662.   DMPAPER_JENV_KAKU2_ROTATED  = 84;  { Japanese Envelope Kaku #2 Rotated}
  13663.   {$EXTERNALSYM DMPAPER_JENV_KAKU3_ROTATED  }
  13664.   DMPAPER_JENV_KAKU3_ROTATED  = 85;  { Japanese Envelope Kaku #3 Rotated}
  13665.   {$EXTERNALSYM DMPAPER_JENV_CHOU3_ROTATED  }
  13666.   DMPAPER_JENV_CHOU3_ROTATED  = 86;  { Japanese Envelope Chou #3 Rotated}
  13667.   {$EXTERNALSYM DMPAPER_JENV_CHOU4_ROTATED  }
  13668.   DMPAPER_JENV_CHOU4_ROTATED  = 87;  { Japanese Envelope Chou #4 Rotated}
  13669.   {$EXTERNALSYM DMPAPER_B6_JIS              }
  13670.   DMPAPER_B6_JIS              = 88;  { B6 (JIS) 128 x 182 mm           }
  13671.   {$EXTERNALSYM DMPAPER_B6_JIS_ROTATED      }
  13672.   DMPAPER_B6_JIS_ROTATED      = 89;  { B6 (JIS) Rotated 182 x 128 mm   }
  13673.   {$EXTERNALSYM DMPAPER_12X11               }
  13674.   DMPAPER_12X11               = 90;  { 12 x 11 in                      }
  13675.   {$EXTERNALSYM DMPAPER_JENV_YOU4           }
  13676.   DMPAPER_JENV_YOU4           = 91;  { Japanese Envelope You #4        }
  13677.   {$EXTERNALSYM DMPAPER_JENV_YOU4_ROTATED   }
  13678.   DMPAPER_JENV_YOU4_ROTATED   = 92;  { Japanese Envelope You #4 Rotated}
  13679.   {$EXTERNALSYM DMPAPER_P16K                }
  13680.   DMPAPER_P16K                = 93;  { PRC 16K 146 x 215 mm            }
  13681.   {$EXTERNALSYM DMPAPER_P32K                }
  13682.   DMPAPER_P32K                = 94;  { PRC 32K 97 x 151 mm             }
  13683.   {$EXTERNALSYM DMPAPER_P32KBIG             }
  13684.   DMPAPER_P32KBIG             = 95;  { PRC 32K(Big) 97 x 151 mm        }
  13685.   {$EXTERNALSYM DMPAPER_PENV_1              }
  13686.   DMPAPER_PENV_1              = 96;  { PRC Envelope #1 102 x 165 mm    }
  13687.   {$EXTERNALSYM DMPAPER_PENV_2              }
  13688.   DMPAPER_PENV_2              = 97;  { PRC Envelope #2 102 x 176 mm    }
  13689.   {$EXTERNALSYM DMPAPER_PENV_3              }
  13690.   DMPAPER_PENV_3              = 98;  { PRC Envelope #3 125 x 176 mm    }
  13691.   {$EXTERNALSYM DMPAPER_PENV_4              }
  13692.   DMPAPER_PENV_4              = 99;  { PRC Envelope #4 110 x 208 mm    }
  13693.   {$EXTERNALSYM DMPAPER_PENV_5              }
  13694.   DMPAPER_PENV_5              = 100; { PRC Envelope #5 110 x 220 mm    }
  13695.   {$EXTERNALSYM DMPAPER_PENV_6              }
  13696.   DMPAPER_PENV_6              = 101; { PRC Envelope #6 120 x 230 mm    }
  13697.   {$EXTERNALSYM DMPAPER_PENV_7              }
  13698.   DMPAPER_PENV_7              = 102; { PRC Envelope #7 160 x 230 mm    }
  13699.   {$EXTERNALSYM DMPAPER_PENV_8              }
  13700.   DMPAPER_PENV_8              = 103; { PRC Envelope #8 120 x 309 mm    }
  13701.   {$EXTERNALSYM DMPAPER_PENV_9              }
  13702.   DMPAPER_PENV_9              = 104; { PRC Envelope #9 229 x 324 mm    }
  13703.   {$EXTERNALSYM DMPAPER_PENV_10             }
  13704.   DMPAPER_PENV_10             = 105; { PRC Envelope #10 324 x 458 mm   }
  13705.   {$EXTERNALSYM DMPAPER_P16K_ROTATED        }
  13706.   DMPAPER_P16K_ROTATED        = 106; { PRC 16K Rotated                 }
  13707.   {$EXTERNALSYM DMPAPER_P32K_ROTATED        }
  13708.   DMPAPER_P32K_ROTATED        = 107; { PRC 32K Rotated                 }
  13709.   {$EXTERNALSYM DMPAPER_P32KBIG_ROTATED     }
  13710.   DMPAPER_P32KBIG_ROTATED     = 108; { PRC 32K(Big) Rotated            }
  13711.   {$EXTERNALSYM DMPAPER_PENV_1_ROTATED      }
  13712.   DMPAPER_PENV_1_ROTATED      = 109; { PRC Envelope #1 Rotated 165 x 102 mm}
  13713.   {$EXTERNALSYM DMPAPER_PENV_2_ROTATED      }
  13714.   DMPAPER_PENV_2_ROTATED      = 110; { PRC Envelope #2 Rotated 176 x 102 mm}
  13715.   {$EXTERNALSYM DMPAPER_PENV_3_ROTATED      }
  13716.   DMPAPER_PENV_3_ROTATED      = 111; { PRC Envelope #3 Rotated 176 x 125 mm}
  13717.   {$EXTERNALSYM DMPAPER_PENV_4_ROTATED      }
  13718.   DMPAPER_PENV_4_ROTATED      = 112; { PRC Envelope #4 Rotated 208 x 110 mm}
  13719.   {$EXTERNALSYM DMPAPER_PENV_5_ROTATED      }
  13720.   DMPAPER_PENV_5_ROTATED      = 113; { PRC Envelope #5 Rotated 220 x 110 mm}
  13721.   {$EXTERNALSYM DMPAPER_PENV_6_ROTATED      }
  13722.   DMPAPER_PENV_6_ROTATED      = 114; { PRC Envelope #6 Rotated 230 x 120 mm}
  13723.   {$EXTERNALSYM DMPAPER_PENV_7_ROTATED      }
  13724.   DMPAPER_PENV_7_ROTATED      = 115; { PRC Envelope #7 Rotated 230 x 160 mm}
  13725.   {$EXTERNALSYM DMPAPER_PENV_8_ROTATED      }
  13726.   DMPAPER_PENV_8_ROTATED      = 116; { PRC Envelope #8 Rotated 309 x 120 mm}
  13727.   {$EXTERNALSYM DMPAPER_PENV_9_ROTATED      }
  13728.   DMPAPER_PENV_9_ROTATED      = 117; { PRC Envelope #9 Rotated 324 x 229 mm}
  13729.   {$EXTERNALSYM DMPAPER_PENV_10_ROTATED     }
  13730.   DMPAPER_PENV_10_ROTATED     = 118; { PRC Envelope #10 Rotated 458 x 324 mm }
  13731.   {$EXTERNALSYM DMPAPER_LAST}
  13732.   DMPAPER_LAST                = DMPAPER_PENV_10_ROTATED;
  13733.   {$EXTERNALSYM DMPAPER_USER}
  13734.   DMPAPER_USER                = $100;
  13735.  
  13736. { bin selections }
  13737.  
  13738.   {$EXTERNALSYM DMBIN_UPPER}
  13739.   DMBIN_UPPER = 1;
  13740.   {$EXTERNALSYM DMBIN_FIRST}
  13741.   DMBIN_FIRST = DMBIN_UPPER;
  13742.   {$EXTERNALSYM DMBIN_ONLYONE}
  13743.   DMBIN_ONLYONE = 1;
  13744.   {$EXTERNALSYM DMBIN_LOWER}
  13745.   DMBIN_LOWER = 2;
  13746.   {$EXTERNALSYM DMBIN_MIDDLE}
  13747.   DMBIN_MIDDLE = 3;
  13748.   {$EXTERNALSYM DMBIN_MANUAL}
  13749.   DMBIN_MANUAL = 4;
  13750.   {$EXTERNALSYM DMBIN_ENVELOPE}
  13751.   DMBIN_ENVELOPE = 5;
  13752.   {$EXTERNALSYM DMBIN_ENVMANUAL}
  13753.   DMBIN_ENVMANUAL = 6;
  13754.   {$EXTERNALSYM DMBIN_AUTO}
  13755.   DMBIN_AUTO = 7;
  13756.   {$EXTERNALSYM DMBIN_TRACTOR}
  13757.   DMBIN_TRACTOR = 8;
  13758.   {$EXTERNALSYM DMBIN_SMALLFMT}
  13759.   DMBIN_SMALLFMT = 9;
  13760.   {$EXTERNALSYM DMBIN_LARGEFMT}
  13761.   DMBIN_LARGEFMT = 10;
  13762.   {$EXTERNALSYM DMBIN_LARGECAPACITY}
  13763.   DMBIN_LARGECAPACITY = 11;
  13764.   {$EXTERNALSYM DMBIN_CASSETTE}
  13765.   DMBIN_CASSETTE = 14;
  13766.   {$EXTERNALSYM DMBIN_FORMSOURCE}
  13767.   DMBIN_FORMSOURCE = 15;
  13768.   {$EXTERNALSYM DMBIN_LAST}
  13769.   DMBIN_LAST = DMBIN_FORMSOURCE;
  13770.   {$EXTERNALSYM DMBIN_USER}
  13771.   DMBIN_USER = $100;   { device specific bins start here }
  13772.  
  13773.   { print qualities }
  13774.   {$EXTERNALSYM DMRES_DRAFT}
  13775.   DMRES_DRAFT = -1;
  13776.   {$EXTERNALSYM DMRES_LOW}
  13777.   DMRES_LOW = -2;
  13778.   {$EXTERNALSYM DMRES_MEDIUM}
  13779.   DMRES_MEDIUM = -3;
  13780.   {$EXTERNALSYM DMRES_HIGH}
  13781.   DMRES_HIGH = -4;
  13782.  
  13783.   { color enabledisable for color printers }
  13784.   {$EXTERNALSYM DMCOLOR_MONOCHROME}
  13785.   DMCOLOR_MONOCHROME = 1;
  13786.   {$EXTERNALSYM DMCOLOR_COLOR}
  13787.   DMCOLOR_COLOR = 2;
  13788.  
  13789.   { duplex enable }
  13790.   {$EXTERNALSYM DMDUP_SIMPLEX}
  13791.   DMDUP_SIMPLEX = 1;
  13792.   {$EXTERNALSYM DMDUP_VERTICAL}
  13793.   DMDUP_VERTICAL = 2;
  13794.   {$EXTERNALSYM DMDUP_HORIZONTAL}
  13795.   DMDUP_HORIZONTAL = 3;
  13796.  
  13797.   { TrueType options }
  13798.   {$EXTERNALSYM DMTT_BITMAP}
  13799.   DMTT_BITMAP           = 1;     { print TT fonts as graphics  }
  13800.   {$EXTERNALSYM DMTT_DOWNLOAD}
  13801.   DMTT_DOWNLOAD         = 2;     { download TT fonts as soft fonts  }
  13802.   {$EXTERNALSYM DMTT_SUBDEV}
  13803.   DMTT_SUBDEV           = 3;     { substitute device fonts for TT fonts  }
  13804.   {$EXTERNALSYM DMTT_DOWNLOAD_OUTLINE}
  13805.   DMTT_DOWNLOAD_OUTLINE = 4;     { download TT fonts as outline soft fonts  }
  13806.  
  13807.   { Collation selections }
  13808.   {$EXTERNALSYM DMCOLLATE_FALSE}
  13809.   DMCOLLATE_FALSE = 0;
  13810.   {$EXTERNALSYM DMCOLLATE_TRUE}
  13811.   DMCOLLATE_TRUE = 1;
  13812.  
  13813.   { DEVMODE dmDisplayFlags flags }
  13814.   {$EXTERNALSYM DM_GRAYSCALE}
  13815.   DM_GRAYSCALE = $00000001;  { removed in 4.0 SDK }
  13816.   {$EXTERNALSYM DM_INTERLACED}
  13817.   DM_INTERLACED = $00000002; { removed in 4.0 SDK }
  13818.   {$EXTERNALSYM DM_TEXTMODE}
  13819.   DM_TEXTMODE = $00000004;   { removed in 4.0 SDK }
  13820.   {$EXTERNALSYM DMDISPLAYFLAGS_TEXTMODE}
  13821.   DMDISPLAYFLAGS_TEXTMODE     = $00000004;
  13822.  
  13823.   { ICM methods }
  13824.   {$EXTERNALSYM DMICMMETHOD_NONE}
  13825.   DMICMMETHOD_NONE   = 1;     { ICM disabled  }
  13826.   {$EXTERNALSYM DMICMMETHOD_SYSTEM}
  13827.   DMICMMETHOD_SYSTEM = 2;     { ICM handled by system  }
  13828.   {$EXTERNALSYM DMICMMETHOD_DRIVER}
  13829.   DMICMMETHOD_DRIVER = 3;     { ICM handled by driver  }
  13830.   {$EXTERNALSYM DMICMMETHOD_DEVICE}
  13831.   DMICMMETHOD_DEVICE = 4;     { ICM handled by device  }
  13832.  
  13833.   {$EXTERNALSYM DMICMMETHOD_USER}
  13834.   DMICMMETHOD_USER = $100;    { Device-specific methods start here  }
  13835.  
  13836.   { ICM Intents }
  13837.   {$EXTERNALSYM DMICM_SATURATE}
  13838.   DMICM_SATURATE    = 1;     { Maximize color saturation  }
  13839.   {$EXTERNALSYM DMICM_CONTRAST}
  13840.   DMICM_CONTRAST    = 2;     { Maximize color contrast  }
  13841.   {$EXTERNALSYM DMICM_COLORMETRIC}
  13842.   DMICM_COLORMETRIC = 3;     { Use specific color metric  }
  13843.  
  13844.   {$EXTERNALSYM DMICM_USER}
  13845.   DMICM_USER = $100;     { Device-specific intents start here  }
  13846.  
  13847.  
  13848.   { Media types }
  13849.   {$EXTERNALSYM DMMEDIA_STANDARD}
  13850.   DMMEDIA_STANDARD     = 1;     { Standard paper  }
  13851.   {$EXTERNALSYM DMMEDIA_TRANSPARENCY}
  13852.   DMMEDIA_TRANSPARENCY = 2;     { Transparency  }
  13853.   {$EXTERNALSYM DMMEDIA_GLOSSY}
  13854.   DMMEDIA_GLOSSY       = 3;     { Glossy paper  }
  13855.  
  13856.   {$EXTERNALSYM DMMEDIA_USER}
  13857.   DMMEDIA_USER = $100;     { Device-specific media start here  }
  13858.  
  13859.  
  13860.   { Dither types }
  13861.   {$EXTERNALSYM DMDITHER_NONE}
  13862.   DMDITHER_NONE      = 1;     { No dithering  }
  13863.   {$EXTERNALSYM DMDITHER_COARSE}
  13864.   DMDITHER_COARSE    = 2;     { Dither with a coarse brush  }
  13865.   {$EXTERNALSYM DMDITHER_FINE}
  13866.   DMDITHER_FINE      = 3;     { Dither with a fine brush  }
  13867.   {$EXTERNALSYM DMDITHER_LINEART}
  13868.   DMDITHER_LINEART   = 4;     { LineArt dithering  }
  13869.   {$EXTERNALSYM DMDITHER_GRAYSCALE}
  13870.   DMDITHER_GRAYSCALE = 5;     { Device does grayscaling  }
  13871.  
  13872.   {$EXTERNALSYM DMDITHER_USER}
  13873.   DMDITHER_USER = 256;        { Device-specific dithers start here  }
  13874.  
  13875.  
  13876. { GetRegionData / ExtCreateRegion }
  13877.  
  13878.   {$EXTERNALSYM RDH_RECTANGLES}
  13879.   RDH_RECTANGLES = 1;
  13880.  
  13881. type
  13882.   PRgnDataHeader = ^TRgnDataHeader;
  13883.   {$EXTERNALSYM _RGNDATAHEADER}
  13884.   _RGNDATAHEADER = packed record
  13885.     dwSize: DWORD;
  13886.     iType: DWORD;
  13887.     nCount: DWORD;
  13888.     nRgnSize: DWORD;
  13889.     rcBound: TRect;
  13890.   end;
  13891.   TRgnDataHeader = _RGNDATAHEADER;
  13892.   {$EXTERNALSYM RGNDATAHEADER}
  13893.   RGNDATAHEADER = _RGNDATAHEADER;
  13894.  
  13895.   PRgnData = ^TRgnData;
  13896.   {$EXTERNALSYM _RGNDATA}
  13897.   _RGNDATA = record
  13898.     rdh: TRgnDataHeader;
  13899.     Buffer: array[0..0] of CHAR;
  13900.     Reserved: array[0..2] of CHAR;
  13901.   end;
  13902.   TRgnData = _RGNDATA;
  13903.   {$EXTERNALSYM RGNDATA}
  13904.   RGNDATA = _RGNDATA;
  13905.  
  13906.   {$EXTERNALSYM PABC}
  13907.   PABC = ^TABC;
  13908.   {$EXTERNALSYM _ABC}
  13909.   _ABC = packed record
  13910.     abcA: Integer;
  13911.     abcB: UINT;
  13912.     abcC: Integer;
  13913.   end;
  13914.   TABC = _ABC;
  13915.   {$EXTERNALSYM ABC}
  13916.   ABC = _ABC;
  13917.  
  13918.   PABCFloat = ^TABCFloat;
  13919.   {$EXTERNALSYM _ABCFLOAT}
  13920.   _ABCFLOAT = packed record
  13921.     abcfA: Single;
  13922.     abcfB: Single;
  13923.     abcfC: Single;
  13924.   end;
  13925.   TABCFloat = _ABCFLOAT;
  13926.   {$EXTERNALSYM ABCFLOAT}
  13927.   ABCFLOAT = _ABCFLOAT;
  13928.  
  13929.   POutlineTextmetricA = ^TOutlineTextmetricA;
  13930.   POutlineTextmetricW = ^TOutlineTextmetricW;
  13931.   POutlineTextmetric = POutlineTextmetricA;
  13932.   {$EXTERNALSYM _OUTLINETEXTMETRICA}
  13933.   _OUTLINETEXTMETRICA = record
  13934.     otmSize: UINT;
  13935.     otmTextMetrics: TTextMetricA;
  13936.     otmFiller: Byte;
  13937.     otmPanoseNumber: TPanose;
  13938.     otmfsSelection: UINT;
  13939.     otmfsType: UINT;
  13940.     otmsCharSlopeRise: Integer;
  13941.     otmsCharSlopeRun: Integer;
  13942.     otmItalicAngle: Integer;
  13943.     otmEMSquare: UINT;
  13944.     otmAscent: Integer;
  13945.     otmDescent: Integer;
  13946.     otmLineGap: UINT;
  13947.     otmsCapEmHeight: UINT;
  13948.     otmsXHeight: UINT;
  13949.     otmrcFontBox: TRect;
  13950.     otmMacAscent: Integer;
  13951.     otmMacDescent: Integer;
  13952.     otmMacLineGap: UINT;
  13953.     otmusMinimumPPEM: UINT;
  13954.     otmptSubscriptSize: TPoint;
  13955.     otmptSubscriptOffset: TPoint;
  13956.     otmptSuperscriptSize: TPoint;
  13957.     otmptSuperscriptOffset: TPoint;
  13958.     otmsStrikeoutSize: UINT;
  13959.     otmsStrikeoutPosition: Integer;
  13960.     otmsUnderscoreSize: Integer;
  13961.     otmsUnderscorePosition: Integer;
  13962.     otmpFamilyName: PAnsiChar;
  13963.     otmpFaceName: PAnsiChar;
  13964.     otmpStyleName: PAnsiChar;
  13965.     otmpFullName: PAnsiChar;
  13966.   end;
  13967.   {$EXTERNALSYM _OUTLINETEXTMETRICW}
  13968.   _OUTLINETEXTMETRICW = record
  13969.     otmSize: UINT;
  13970.     otmTextMetrics: TTextMetricW;
  13971.     otmFiller: Byte;
  13972.     otmPanoseNumber: TPanose;
  13973.     otmfsSelection: UINT;
  13974.     otmfsType: UINT;
  13975.     otmsCharSlopeRise: Integer;
  13976.     otmsCharSlopeRun: Integer;
  13977.     otmItalicAngle: Integer;
  13978.     otmEMSquare: UINT;
  13979.     otmAscent: Integer;
  13980.     otmDescent: Integer;
  13981.     otmLineGap: UINT;
  13982.     otmsCapEmHeight: UINT;
  13983.     otmsXHeight: UINT;
  13984.     otmrcFontBox: TRect;
  13985.     otmMacAscent: Integer;
  13986.     otmMacDescent: Integer;
  13987.     otmMacLineGap: UINT;
  13988.     otmusMinimumPPEM: UINT;
  13989.     otmptSubscriptSize: TPoint;
  13990.     otmptSubscriptOffset: TPoint;
  13991.     otmptSuperscriptSize: TPoint;
  13992.     otmptSuperscriptOffset: TPoint;
  13993.     otmsStrikeoutSize: UINT;
  13994.     otmsStrikeoutPosition: Integer;
  13995.     otmsUnderscoreSize: Integer;
  13996.     otmsUnderscorePosition: Integer;
  13997.     otmpFamilyName: PWideChar;
  13998.     otmpFaceName: PWideChar;
  13999.     otmpStyleName: PWideChar;
  14000.     otmpFullName: PWideChar;
  14001.   end;
  14002.   {$EXTERNALSYM _OUTLINETEXTMETRIC}
  14003.   _OUTLINETEXTMETRIC = _OUTLINETEXTMETRICA;
  14004.   TOutlineTextmetricA = _OUTLINETEXTMETRICA;
  14005.   TOutlineTextmetricW = _OUTLINETEXTMETRICW;
  14006.   TOutlineTextmetric = TOutlineTextmetricA;
  14007.   {$EXTERNALSYM OUTLINETEXTMETRICA}
  14008.   OUTLINETEXTMETRICA = _OUTLINETEXTMETRICA;
  14009.   {$EXTERNALSYM OUTLINETEXTMETRICW}
  14010.   OUTLINETEXTMETRICW = _OUTLINETEXTMETRICW;
  14011.   {$EXTERNALSYM OUTLINETEXTMETRIC}
  14012.   OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  14013.  
  14014. type
  14015.   PPolyTextA = ^TPolyTextA;
  14016.   PPolyTextW = ^TPolyTextW;
  14017.   PPolyText = PPolyTextA;
  14018.   {$EXTERNALSYM tagPOLYTEXTA}
  14019.   tagPOLYTEXTA = packed record
  14020.     x: Integer;
  14021.     y: Integer;
  14022.     n: UINT;
  14023.     PAnsiChar: PAnsiChar;
  14024.     uiFlags: UINT;
  14025.     rcl: TRect;
  14026.     pdx: PINT;
  14027.   end;
  14028.   {$EXTERNALSYM tagPOLYTEXTW}
  14029.   tagPOLYTEXTW = packed record
  14030.     x: Integer;
  14031.     y: Integer;
  14032.     n: UINT;
  14033.     PAnsiChar: PWideChar;
  14034.     uiFlags: UINT;
  14035.     rcl: TRect;
  14036.     pdx: PINT;
  14037.   end;
  14038.   {$EXTERNALSYM tagPOLYTEXT}
  14039.   tagPOLYTEXT = tagPOLYTEXTA;
  14040.   TPolyTextA = tagPOLYTEXTA;
  14041.   TPolyTextW = tagPOLYTEXTW;
  14042.   TPolyText = TPolyTextA;
  14043.   {$EXTERNALSYM POLYTEXTA}
  14044.   POLYTEXTA = tagPOLYTEXTA;
  14045.   {$EXTERNALSYM POLYTEXTW}
  14046.   POLYTEXTW = tagPOLYTEXTW;
  14047.   {$EXTERNALSYM POLYTEXT}
  14048.   POLYTEXT = POLYTEXTA;
  14049.  
  14050.   {$EXTERNALSYM _FIXED}
  14051.   _FIXED = packed record
  14052.     fract: Word;
  14053.     value: SHORT;
  14054.   end;
  14055.   TFixed = _FIXED;
  14056.   {$EXTERNALSYM FIXED}
  14057.   FIXED = _FIXED;
  14058.  
  14059.   PMat2 = ^TMat2;
  14060.   {$EXTERNALSYM _MAT2}
  14061.   _MAT2 = packed record
  14062.     eM11: TFixed;
  14063.     eM12: TFixed;
  14064.     eM21: TFixed;
  14065.     eM22: TFixed;
  14066.   end;
  14067.   TMat2 = _MAT2;
  14068.   {$EXTERNALSYM MAT2}
  14069.   MAT2 = _MAT2;
  14070.  
  14071.   PGlyphMetrics = ^TGlyphMetrics;
  14072.   {$EXTERNALSYM _GLYPHMETRICS}
  14073.   _GLYPHMETRICS = packed record
  14074.     gmBlackBoxX: UINT;
  14075.     gmBlackBoxY: UINT;
  14076.     gmptGlyphOrigin: TPoint;
  14077.     gmCellIncX: SHORT;
  14078.     gmCellIncY: SHORT;
  14079.   end;
  14080.   TGlyphMetrics = _GLYPHMETRICS;
  14081.   {$EXTERNALSYM GLYPHMETRICS}
  14082.   GLYPHMETRICS = _GLYPHMETRICS;
  14083.  
  14084. const
  14085.   { GetGlyphOutline constants }
  14086.   {$EXTERNALSYM GGO_METRICS}
  14087.   GGO_METRICS = 0;
  14088.   {$EXTERNALSYM GGO_BITMAP}
  14089.   GGO_BITMAP = 1;
  14090.   {$EXTERNALSYM GGO_NATIVE}
  14091.   GGO_NATIVE = 2;
  14092.  
  14093.   {$EXTERNALSYM GGO_GRAY2_BITMAP}
  14094.   GGO_GRAY2_BITMAP = 4;
  14095.   {$EXTERNALSYM GGO_GRAY4_BITMAP}
  14096.   GGO_GRAY4_BITMAP = 5;
  14097.   {$EXTERNALSYM GGO_GRAY8_BITMAP}
  14098.   GGO_GRAY8_BITMAP = 6;
  14099.   {$EXTERNALSYM GGO_GLYPH_INDEX}
  14100.   GGO_GLYPH_INDEX = $80;
  14101.  
  14102.   {$EXTERNALSYM TT_POLYGON_TYPE}
  14103.   TT_POLYGON_TYPE = 24;
  14104.   {$EXTERNALSYM TT_PRIM_LINE}
  14105.   TT_PRIM_LINE = 1;
  14106.   {$EXTERNALSYM TT_PRIM_QSPLINE}
  14107.   TT_PRIM_QSPLINE = 2;
  14108.  
  14109. type
  14110.   PPointfx = ^TPointfx;
  14111.   {$EXTERNALSYM tagPOINTFX}
  14112.   tagPOINTFX = packed record
  14113.     x: TFixed;
  14114.     y: TFixed;
  14115.   end;
  14116.   TPointfx = tagPOINTFX;
  14117.   {$EXTERNALSYM POINTFX}
  14118.   POINTFX = tagPOINTFX;
  14119.  
  14120.   PTTPolyCurve = ^TTTPolyCurve;
  14121.   {$EXTERNALSYM tagTTPOLYCURVE}
  14122.   tagTTPOLYCURVE = packed record
  14123.     wType: Word;
  14124.     cpfx: Word;
  14125.     apfx: array[0..0] of TPointFX;
  14126.   end;
  14127.   TTTPolyCurve = tagTTPOLYCURVE;
  14128.   {$EXTERNALSYM TTPOLYCURVE}
  14129.   TTPOLYCURVE = tagTTPOLYCURVE;
  14130.  
  14131.   PTTPolygonHeader = ^TTTPolygonHeader;
  14132.   {$EXTERNALSYM tagTTPOLYGONHEADER}
  14133.   tagTTPOLYGONHEADER = packed record
  14134.     cb: DWORD;
  14135.     dwType: DWORD;
  14136.     pfxStart: TPointFX;
  14137.   end;
  14138.   TTTPolygonHeader = tagTTPOLYGONHEADER;
  14139.   {$EXTERNALSYM TTPOLYGONHEADER}
  14140.   TTPOLYGONHEADER = tagTTPOLYGONHEADER;
  14141.  
  14142. const
  14143.   {$EXTERNALSYM GCP_DBCS}
  14144.   GCP_DBCS = 1;
  14145.   {$EXTERNALSYM GCP_REORDER}
  14146.   GCP_REORDER = 2;
  14147.   {$EXTERNALSYM GCP_USEKERNING}
  14148.   GCP_USEKERNING = 8;
  14149.   {$EXTERNALSYM GCP_GLYPHSHAPE}
  14150.   GCP_GLYPHSHAPE = $10;
  14151.   {$EXTERNALSYM GCP_LIGATE}
  14152.   GCP_LIGATE = 32;
  14153.   GCP_GLYPHINDEXING = $0080; // commented out in Windows Headers
  14154.  
  14155.   {$EXTERNALSYM GCP_DIACRITIC}
  14156.   GCP_DIACRITIC = $100;
  14157.   {$EXTERNALSYM GCP_KASHIDA}
  14158.   GCP_KASHIDA = $400;
  14159.   {$EXTERNALSYM GCP_ERROR}
  14160.   GCP_ERROR = $8000;
  14161.   {$EXTERNALSYM FLI_MASK}
  14162.   FLI_MASK = 4155;
  14163.  
  14164.   {$EXTERNALSYM GCP_JUSTIFY}
  14165.   GCP_JUSTIFY = $10000;
  14166.   GCP_NODIACRITICS = $00020000; // commented out in Windows Headers
  14167.  
  14168.   {$EXTERNALSYM FLI_GLYPHS}
  14169.   FLI_GLYPHS = $40000;
  14170.   {$EXTERNALSYM GCP_CLASSIN}
  14171.   GCP_CLASSIN = $80000;
  14172.   {$EXTERNALSYM GCP_MAXEXTENT}
  14173.   GCP_MAXEXTENT = $100000;
  14174.   {$EXTERNALSYM GCP_JUSTIFYIN}
  14175.   GCP_JUSTIFYIN = $200000;
  14176.   {$EXTERNALSYM GCP_DISPLAYZWG}
  14177.   GCP_DISPLAYZWG = $400000;
  14178.   {$EXTERNALSYM GCP_SYMSWAPOFF}
  14179.   GCP_SYMSWAPOFF = $800000;
  14180.   {$EXTERNALSYM GCP_NUMERICOVERRIDE}
  14181.   GCP_NUMERICOVERRIDE = $1000000;
  14182.   {$EXTERNALSYM GCP_NEUTRALOVERRIDE}
  14183.   GCP_NEUTRALOVERRIDE = $2000000;
  14184.   {$EXTERNALSYM GCP_NUMERICSLATIN}
  14185.   GCP_NUMERICSLATIN = $4000000;
  14186.   {$EXTERNALSYM GCP_NUMERICSLOCAL}
  14187.   GCP_NUMERICSLOCAL = $8000000;
  14188.  
  14189.   {$EXTERNALSYM GCPCLASS_LATIN}
  14190.   GCPCLASS_LATIN = 1;
  14191.   {$EXTERNALSYM GCPCLASS_HEBREW}
  14192.   GCPCLASS_HEBREW = 2;
  14193.   {$EXTERNALSYM GCPCLASS_ARABIC}
  14194.   GCPCLASS_ARABIC = 2;
  14195.   {$EXTERNALSYM GCPCLASS_NEUTRAL}
  14196.   GCPCLASS_NEUTRAL = 3;
  14197.   {$EXTERNALSYM GCPCLASS_LOCALNUMBER}
  14198.   GCPCLASS_LOCALNUMBER = 4;
  14199.   {$EXTERNALSYM GCPCLASS_LATINNUMBER}
  14200.   GCPCLASS_LATINNUMBER = 5;
  14201.   {$EXTERNALSYM GCPCLASS_LATINNUMERICTERMINATOR}
  14202.   GCPCLASS_LATINNUMERICTERMINATOR = 6;
  14203.   {$EXTERNALSYM GCPCLASS_LATINNUMERICSEPARATOR}
  14204.   GCPCLASS_LATINNUMERICSEPARATOR = 7;
  14205.   {$EXTERNALSYM GCPCLASS_NUMERICSEPARATOR}
  14206.   GCPCLASS_NUMERICSEPARATOR = 8;
  14207.   {$EXTERNALSYM GCPCLASS_PREBOUNDRTL}
  14208.   GCPCLASS_PREBOUNDRTL = $80;
  14209.   {$EXTERNALSYM GCPCLASS_PREBOUNDLTR}
  14210.   GCPCLASS_PREBOUNDLTR = $40;
  14211.   {$EXTERNALSYM GCPCLASS_POSTBOUNDLTR}
  14212.   GCPCLASS_POSTBOUNDLTR        = $20;
  14213.   {$EXTERNALSYM GCPCLASS_POSTBOUNDRTL}
  14214.   GCPCLASS_POSTBOUNDRTL        = $10;
  14215.  
  14216.   {$EXTERNALSYM GCPGLYPH_LINKBEFORE}
  14217.   GCPGLYPH_LINKBEFORE          = $8000;
  14218.   {$EXTERNALSYM GCPGLYPH_LINKAFTER}
  14219.   GCPGLYPH_LINKAFTER           = $4000;
  14220.  
  14221.  
  14222. type
  14223.   PGCPResultsA = ^TGCPResultsA;
  14224.   PGCPResultsW = ^TGCPResultsW;
  14225.   PGCPResults = PGCPResultsA;
  14226.   {$EXTERNALSYM tagGCP_RESULTSA}
  14227.   tagGCP_RESULTSA = packed record
  14228.     lStructSize: DWORD;
  14229.     lpOutString: PAnsiChar;
  14230.     lpOrder: PUINT;
  14231.     lpDx: PINT;
  14232.     lpCaretPos: PINT;
  14233.     lpClass: PAnsiChar;
  14234.     lpGlyphs: PUINT;
  14235.     nGlyphs: UINT;
  14236.     nMaxFit: Integer;
  14237.   end;
  14238.   {$EXTERNALSYM tagGCP_RESULTSW}
  14239.   tagGCP_RESULTSW = packed record
  14240.     lStructSize: DWORD;
  14241.     lpOutString: PWideChar;
  14242.     lpOrder: PUINT;
  14243.     lpDx: PINT;
  14244.     lpCaretPos: PINT;
  14245.     lpClass: PWideChar;
  14246.     lpGlyphs: PUINT;
  14247.     nGlyphs: UINT;
  14248.     nMaxFit: Integer;
  14249.   end;
  14250.   {$EXTERNALSYM tagGCP_RESULTS}
  14251.   tagGCP_RESULTS = tagGCP_RESULTSA;
  14252.   TGCPResultsA = tagGCP_RESULTSA;
  14253.   TGCPResultsW = tagGCP_RESULTSW;
  14254.   TGCPResults = TGCPResultsA;
  14255.   {$EXTERNALSYM GCP_RESULTSA}
  14256.   GCP_RESULTSA = tagGCP_RESULTSA;
  14257.   {$EXTERNALSYM GCP_RESULTSW}
  14258.   GCP_RESULTSW = tagGCP_RESULTSW;
  14259.   {$EXTERNALSYM GCP_RESULTS}
  14260.   GCP_RESULTS = GCP_RESULTSA;
  14261.  
  14262.   PRasterizerStatus = ^TRasterizerStatus;
  14263.   {$EXTERNALSYM _RASTERIZER_STATUS}
  14264.   _RASTERIZER_STATUS = packed record
  14265.     nSize: SHORT;
  14266.     wFlags: SHORT;
  14267.     nLanguageID: SHORT;
  14268.   end;
  14269.   TRasterizerStatus = _RASTERIZER_STATUS;
  14270.   {$EXTERNALSYM RASTERIZER_STATUS}
  14271.   RASTERIZER_STATUS = _RASTERIZER_STATUS;
  14272.  
  14273. const
  14274.   { bits defined in wFlags of RASTERIZER_STATUS }
  14275.   {$EXTERNALSYM TT_AVAILABLE}
  14276.   TT_AVAILABLE = 1;
  14277.   {$EXTERNALSYM TT_ENABLED}
  14278.   TT_ENABLED = 2;
  14279.  
  14280. type
  14281.   { Pixel format descriptor }
  14282.   PPixelFormatDescriptor = ^TPixelFormatDescriptor;
  14283.   {$EXTERNALSYM tagPIXELFORMATDESCRIPTOR}
  14284.   tagPIXELFORMATDESCRIPTOR = packed record
  14285.     nSize: Word;
  14286.     nVersion: Word;
  14287.     dwFlags: DWORD;
  14288.     iPixelType: Byte;
  14289.     cColorBits: Byte;
  14290.     cRedBits: Byte;
  14291.     cRedShift: Byte;
  14292.     cGreenBits: Byte;
  14293.     cGreenShift: Byte;
  14294.     cBlueBits: Byte;
  14295.     cBlueShift: Byte;
  14296.     cAlphaBits: Byte;
  14297.     cAlphaShift: Byte;
  14298.     cAccumBits: Byte;
  14299.     cAccumRedBits: Byte;
  14300.     cAccumGreenBits: Byte;
  14301.     cAccumBlueBits: Byte;
  14302.     cAccumAlphaBits: Byte;
  14303.     cDepthBits: Byte;
  14304.     cStencilBits: Byte;
  14305.     cAuxBuffers: Byte;
  14306.     iLayerType: Byte;
  14307.     bReserved: Byte;
  14308.     dwLayerMask: DWORD;
  14309.     dwVisibleMask: DWORD;
  14310.     dwDamageMask: DWORD;
  14311.   end;
  14312.   TPixelFormatDescriptor = tagPIXELFORMATDESCRIPTOR;
  14313.   {$EXTERNALSYM PIXELFORMATDESCRIPTOR}
  14314.   PIXELFORMATDESCRIPTOR = tagPIXELFORMATDESCRIPTOR;
  14315.  
  14316. const
  14317.   { pixel types }
  14318.   {$EXTERNALSYM PFD_TYPE_RGBA}
  14319.   PFD_TYPE_RGBA = 0;
  14320.   {$EXTERNALSYM PFD_TYPE_COLORINDEX}
  14321.   PFD_TYPE_COLORINDEX = 1;
  14322.  
  14323.   { layer types }
  14324.   {$EXTERNALSYM PFD_MAIN_PLANE}
  14325.   PFD_MAIN_PLANE = 0;
  14326.   {$EXTERNALSYM PFD_OVERLAY_PLANE}
  14327.   PFD_OVERLAY_PLANE = 1;
  14328.   {$EXTERNALSYM PFD_UNDERLAY_PLANE}
  14329.   PFD_UNDERLAY_PLANE = -1;
  14330.  
  14331.   { TPixelFormatDescriptor flags }
  14332.   {$EXTERNALSYM PFD_DOUBLEBUFFER}
  14333.   PFD_DOUBLEBUFFER                = $00000001;
  14334.   {$EXTERNALSYM PFD_STEREO}
  14335.   PFD_STEREO                      = $00000002;
  14336.   {$EXTERNALSYM PFD_DRAW_TO_WINDOW}
  14337.   PFD_DRAW_TO_WINDOW              = $00000004;
  14338.   {$EXTERNALSYM PFD_DRAW_TO_BITMAP}
  14339.   PFD_DRAW_TO_BITMAP              = $00000008;
  14340.   {$EXTERNALSYM PFD_SUPPORT_GDI}
  14341.   PFD_SUPPORT_GDI                 = $00000010;
  14342.   {$EXTERNALSYM PFD_SUPPORT_OPENGL}
  14343.   PFD_SUPPORT_OPENGL              = $00000020;
  14344.   {$EXTERNALSYM PFD_GENERIC_FORMAT}
  14345.   PFD_GENERIC_FORMAT              = $00000040;
  14346.   {$EXTERNALSYM PFD_NEED_PALETTE}
  14347.   PFD_NEED_PALETTE                = $00000080;
  14348.   {$EXTERNALSYM PFD_NEED_SYSTEM_PALETTE}
  14349.   PFD_NEED_SYSTEM_PALETTE         = $00000100;
  14350.   {$EXTERNALSYM PFD_SWAP_EXCHANGE}
  14351.   PFD_SWAP_EXCHANGE               = $00000200;
  14352.   {$EXTERNALSYM PFD_SWAP_COPY}
  14353.   PFD_SWAP_COPY                   = $00000400;
  14354.   {$EXTERNALSYM PFD_SWAP_LAYER_BUFFERS}
  14355.   PFD_SWAP_LAYER_BUFFERS          = $00000800;
  14356.   {$EXTERNALSYM PFD_GENERIC_ACCELERATED}
  14357.   PFD_GENERIC_ACCELERATED         = $00001000;
  14358.  
  14359.   { TPixelFormatDescriptor flags for use in ChoosePixelFormat only }
  14360.   {$EXTERNALSYM PFD_DEPTH_DONTCARE}
  14361.   PFD_DEPTH_DONTCARE              = $20000000;
  14362.   {$EXTERNALSYM PFD_DOUBLEBUFFER_DONTCARE}
  14363.   PFD_DOUBLEBUFFER_DONTCARE       = $40000000;
  14364.   {$EXTERNALSYM PFD_STEREO_DONTCARE}
  14365.   PFD_STEREO_DONTCARE             = $80000000;
  14366.  
  14367. type
  14368. {$IFDEF STRICT}
  14369.   TFNOldFontEnumProcA = function (const logfont: TLogFontA;
  14370.     const textmetric: TTextMetricA; dword: DWORD; lparam: LPARAM): Integer stdcall;
  14371.   TFNOldFontEnumProcW = function (const logfont: TLogFontW;
  14372.     const textmetric: TTextMetricW; dword: DWORD; lparam: LPARAM): Integer stdcall;
  14373.   TFNOldFontEnumProc = TFNOldFontEnumProcA;
  14374.   TFNGObjEnumProc = function (lpvoid: Pointer; lparam: LPARAM): Integer stdcall;
  14375.   TFNLineDDAProc = procedure (p1, p2: Integer; lparam: LPARAM) stdcall;
  14376.   TFNFontEnumProcA = TFNOldFontEnumProcA;
  14377.   TFNFontEnumProcW = TFNOldFontEnumProcW;
  14378.   TFNFontEnumProc = TFNFontEnumProcA;
  14379. {$ELSE}
  14380.   TFNOldFontEnumProcA = TFarProc;
  14381.   TFNOldFontEnumProcW = TFarProc;
  14382.   TFNOldFontEnumProc = TFNOldFontEnumProcA;
  14383.   TFNGObjEnumProc = TFarProc;
  14384.   TFNLineDDAProc = TFarProc;
  14385.   TFNFontEnumProcA = TFarProc;
  14386.   TFNFontEnumProcW = TFarProc;
  14387.   TFNFontEnumProc = TFNFontEnumProcA;
  14388. {$ENDIF}
  14389.  
  14390.  
  14391.  
  14392. {$EXTERNALSYM AddFontResourceA}
  14393. function AddFontResourceA(p1: PAnsiChar): Integer; stdcall;
  14394. {$EXTERNALSYM AddFontResourceW}
  14395. function AddFontResourceW(p1: PWideChar): Integer; stdcall;
  14396. {$EXTERNALSYM AddFontResource}
  14397. function AddFontResource(p1: PChar): Integer; stdcall;
  14398. {$EXTERNALSYM AnimatePalette}
  14399. function AnimatePalette(p1: HPALETTE; p2, p3: UINT; p4: PPaletteEntry): BOOL; stdcall;
  14400. {$EXTERNALSYM Arc}
  14401. function Arc(hDC: HDC; left, top, right, bottom, startX, startY, endX, endY: Integer): BOOL; stdcall;
  14402. {$EXTERNALSYM BitBlt}
  14403. function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
  14404.   XSrc, YSrc: Integer; Rop: DWORD): BOOL; stdcall;
  14405. {$EXTERNALSYM CancelDC}
  14406. function CancelDC(DC: HDC): BOOL; stdcall;
  14407. {$EXTERNALSYM Chord}
  14408. function Chord(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
  14409. {$EXTERNALSYM ChoosePixelFormat}
  14410. function ChoosePixelFormat(DC: HDC; p2: PPixelFormatDescriptor): Integer; stdcall;
  14411. {$EXTERNALSYM CloseMetaFile}
  14412. function CloseMetaFile(DC: HDC): HMETAFILE; stdcall;
  14413. {$EXTERNALSYM CombineRgn}
  14414. function CombineRgn(p1, p2, p3: HRGN; p4: Integer): Integer; stdcall;
  14415. {$EXTERNALSYM CopyMetaFileA}
  14416. function CopyMetaFileA(p1: HMETAFILE; p2: PAnsiChar): HMETAFILE; stdcall;
  14417. {$EXTERNALSYM CopyMetaFileW}
  14418. function CopyMetaFileW(p1: HMETAFILE; p2: PWideChar): HMETAFILE; stdcall;
  14419. {$EXTERNALSYM CopyMetaFile}
  14420. function CopyMetaFile(p1: HMETAFILE; p2: PChar): HMETAFILE; stdcall;
  14421. {$EXTERNALSYM CreateBitmap}
  14422. function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint;
  14423.   Bits: Pointer): HBITMAP; stdcall;
  14424. {$EXTERNALSYM CreateBitmapIndirect}
  14425. function CreateBitmapIndirect(const p1: TBitmap): HBITMAP; stdcall;
  14426. {$EXTERNALSYM CreateBrushIndirect}
  14427. function CreateBrushIndirect(const p1: TLogBrush): HBRUSH; stdcall;
  14428. {$EXTERNALSYM CreateCompatibleBitmap}
  14429. function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; stdcall;
  14430. {$EXTERNALSYM CreateDiscardableBitmap}
  14431. function CreateDiscardableBitmap(DC: HDC; p2, p3: Integer): HBITMAP; stdcall;
  14432. {$EXTERNALSYM CreateCompatibleDC}
  14433. function CreateCompatibleDC(DC: HDC): HDC; stdcall;
  14434. {$EXTERNALSYM CreateDCA}
  14435. function CreateDCA(lpszDriver, lpszDevice, lpszOutput: PAnsiChar;
  14436.   lpdvmInit: PDeviceModeA): HDC; stdcall;
  14437. {$EXTERNALSYM CreateDCW}
  14438. function CreateDCW(lpszDriver, lpszDevice, lpszOutput: PWideChar;
  14439.   lpdvmInit: PDeviceModeW): HDC; stdcall;
  14440. {$EXTERNALSYM CreateDC}
  14441. function CreateDC(lpszDriver, lpszDevice, lpszOutput: PChar;
  14442.   lpdvmInit: PDeviceMode): HDC; stdcall;
  14443. {$EXTERNALSYM CreateDIBitmap}
  14444. function CreateDIBitmap(DC: HDC; var InfoHeader: TBitmapInfoHeader;
  14445.   dwUsage: DWORD; InitBits: PChar; var InitInfo: TBitmapInfo;
  14446.   wUsage: UINT): HBITMAP; stdcall;
  14447. {$EXTERNALSYM CreateDIBPatternBrush}
  14448. function CreateDIBPatternBrush(p1: HGLOBAL; p2: UINT): HBRUSH; stdcall;
  14449. {$EXTERNALSYM CreateDIBPatternBrushPt}
  14450. function CreateDIBPatternBrushPt(const p1: Pointer; p2: UINT): HBRUSH; stdcall;
  14451. {$EXTERNALSYM CreateEllipticRgn}
  14452. function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; stdcall;
  14453. {$EXTERNALSYM CreateEllipticRgnIndirect}
  14454. function CreateEllipticRgnIndirect(const p1: TRect): HRGN; stdcall;
  14455. {$EXTERNALSYM CreateFontIndirectA}
  14456. function CreateFontIndirectA(const p1: TLogFontA): HFONT; stdcall;
  14457. {$EXTERNALSYM CreateFontIndirectW}
  14458. function CreateFontIndirectW(const p1: TLogFontW): HFONT; stdcall;
  14459. {$EXTERNALSYM CreateFontIndirect}
  14460. function CreateFontIndirect(const p1: TLogFont): HFONT; stdcall;
  14461. {$EXTERNALSYM CreateFontA}
  14462. function CreateFontA(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14463.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14464.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PAnsiChar): HFONT; stdcall;
  14465. {$EXTERNALSYM CreateFontW}
  14466. function CreateFontW(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14467.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14468.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PWideChar): HFONT; stdcall;
  14469. {$EXTERNALSYM CreateFont}
  14470. function CreateFont(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14471.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14472.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PChar): HFONT; stdcall;
  14473. {$EXTERNALSYM CreateHatchBrush}
  14474. function CreateHatchBrush(p1: Integer; p2: COLORREF): HBRUSH; stdcall;
  14475. {$EXTERNALSYM CreateICA}
  14476. function CreateICA(lpszDriver, lpszDevice, lpszOutput: PAnsiChar; lpdvmInit: PDeviceModeA): HDC; stdcall;
  14477. {$EXTERNALSYM CreateICW}
  14478. function CreateICW(lpszDriver, lpszDevice, lpszOutput: PWideChar; lpdvmInit: PDeviceModeW): HDC; stdcall;
  14479. {$EXTERNALSYM CreateIC}
  14480. function CreateIC(lpszDriver, lpszDevice, lpszOutput: PChar; lpdvmInit: PDeviceMode): HDC; stdcall;
  14481. {$EXTERNALSYM CreateMetaFileA}
  14482. function CreateMetaFileA(p1: PAnsiChar): HDC; stdcall;
  14483. {$EXTERNALSYM CreateMetaFileW}
  14484. function CreateMetaFileW(p1: PWideChar): HDC; stdcall;
  14485. {$EXTERNALSYM CreateMetaFile}
  14486. function CreateMetaFile(p1: PChar): HDC; stdcall;
  14487. {$EXTERNALSYM CreatePalette}
  14488. function CreatePalette(const LogPalette: TLogPalette): HPalette; stdcall;
  14489. {$EXTERNALSYM CreatePen}
  14490. function CreatePen(Style, Width: Integer; Color: COLORREF): HPEN; stdcall;
  14491. {$EXTERNALSYM CreatePenIndirect}
  14492. function CreatePenIndirect(const LogPen: TLogPen): HPEN; stdcall;
  14493. {$EXTERNALSYM CreatePolyPolygonRgn}
  14494. function CreatePolyPolygonRgn(const pPtStructs; const pIntArray; p3, p4: Integer): HRGN; stdcall;
  14495. {$EXTERNALSYM CreatePatternBrush}
  14496. function CreatePatternBrush(Bitmap: HBITMAP): HBRUSH; stdcall;
  14497. {$EXTERNALSYM CreateRectRgn}
  14498. function CreateRectRgn(p1, p2, p3, p4: Integer): HRGN; stdcall;
  14499. {$EXTERNALSYM CreateRectRgnIndirect}
  14500. function CreateRectRgnIndirect(const p1: TRect): HRGN; stdcall;
  14501. {$EXTERNALSYM CreateRoundRectRgn}
  14502. function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): HRGN; stdcall;
  14503. {$EXTERNALSYM CreateScalableFontResourceA}
  14504. function CreateScalableFontResourceA(p1: DWORD; p2, p3, p4: PAnsiChar): BOOL; stdcall;
  14505. {$EXTERNALSYM CreateScalableFontResourceW}
  14506. function CreateScalableFontResourceW(p1: DWORD; p2, p3, p4: PWideChar): BOOL; stdcall;
  14507. {$EXTERNALSYM CreateScalableFontResource}
  14508. function CreateScalableFontResource(p1: DWORD; p2, p3, p4: PChar): BOOL; stdcall;
  14509. {$EXTERNALSYM CreateSolidBrush}
  14510. function CreateSolidBrush(p1: COLORREF): HBRUSH; stdcall;
  14511. {$EXTERNALSYM DeleteDC}
  14512. function DeleteDC(DC: HDC): BOOL; stdcall;
  14513. {$EXTERNALSYM DeleteMetaFile}
  14514. function DeleteMetaFile(p1: HMETAFILE): BOOL; stdcall;
  14515. {$EXTERNALSYM DeleteObject}
  14516. function DeleteObject(p1: HGDIOBJ): BOOL; stdcall;
  14517. {$EXTERNALSYM DescribePixelFormat}
  14518. function DescribePixelFormat(DC: HDC; p2: Integer; p3: UINT; var p4: TPixelFormatDescriptor): BOOL; stdcall;
  14519.  
  14520. { define types of pointers to ExtDeviceMode() and DeviceCapabilities()
  14521.   functions for Win 3.1 compatibility }
  14522.  
  14523. type
  14524. {$IFDEF STRICT}
  14525.   TFNDevMode = function(Wnd: HWND; Driver: HMODULE;
  14526.     var DevModeOutput: TDeviceMode; DeciveName, Port: LPSTR;
  14527.     var DevModeInput: TDeviceMode; Profile: LPSTR; Mode: UINT): UINT stdcall;
  14528. {$ELSE}
  14529.   TFNDevMode = TFarProc;
  14530. {$ENDIF}
  14531.  
  14532. {$IFDEF STRICT}
  14533.   TFNDevCaps = function(DeviceName, Port: LPSTR;
  14534.     Index: UINT; Output: LPSTR; var DevMode: TDeviceMode): DWORD stdcall;
  14535. {$ELSE}
  14536.   TFNDevCaps = TFarProc;
  14537. {$ENDIF}
  14538.  
  14539. const
  14540.   { mode selections for the device mode function }
  14541.   {$EXTERNALSYM DM_UPDATE}
  14542.   DM_UPDATE = 1;
  14543.   {$EXTERNALSYM DM_COPY}
  14544.   DM_COPY = 2;
  14545.   {$EXTERNALSYM DM_PROMPT}
  14546.   DM_PROMPT = 4;
  14547.   {$EXTERNALSYM DM_MODIFY}
  14548.   DM_MODIFY = 8;
  14549.  
  14550.   {$EXTERNALSYM DM_IN_BUFFER}
  14551.   DM_IN_BUFFER = DM_MODIFY;
  14552.   {$EXTERNALSYM DM_IN_PROMPT}
  14553.   DM_IN_PROMPT = DM_PROMPT;
  14554.   {$EXTERNALSYM DM_OUT_BUFFER}
  14555.   DM_OUT_BUFFER = DM_COPY;
  14556.   {$EXTERNALSYM DM_OUT_DEFAULT}
  14557.   DM_OUT_DEFAULT = DM_UPDATE;
  14558.  
  14559.   { device capabilities indices }
  14560.   {$EXTERNALSYM DC_FIELDS}
  14561.   DC_FIELDS = 1;
  14562.   {$EXTERNALSYM DC_PAPERS}
  14563.   DC_PAPERS = 2;
  14564.   {$EXTERNALSYM DC_PAPERSIZE}
  14565.   DC_PAPERSIZE = 3;
  14566.   {$EXTERNALSYM DC_MINEXTENT}
  14567.   DC_MINEXTENT = 4;
  14568.   {$EXTERNALSYM DC_MAXEXTENT}
  14569.   DC_MAXEXTENT = 5;
  14570.   {$EXTERNALSYM DC_BINS}
  14571.   DC_BINS = 6;
  14572.   {$EXTERNALSYM DC_DUPLEX}
  14573.   DC_DUPLEX = 7;
  14574.   {$EXTERNALSYM DC_SIZE}
  14575.   DC_SIZE = 8;
  14576.   {$EXTERNALSYM DC_EXTRA}
  14577.   DC_EXTRA = 9;
  14578.   {$EXTERNALSYM DC_VERSION}
  14579.   DC_VERSION = 10;
  14580.   {$EXTERNALSYM DC_DRIVER}
  14581.   DC_DRIVER = 11;
  14582.   {$EXTERNALSYM DC_BINNAMES}
  14583.   DC_BINNAMES = 12;
  14584.   {$EXTERNALSYM DC_ENUMRESOLUTIONS}
  14585.   DC_ENUMRESOLUTIONS = 13;
  14586.   {$EXTERNALSYM DC_FILEDEPENDENCIES}
  14587.   DC_FILEDEPENDENCIES = 14;
  14588.   {$EXTERNALSYM DC_TRUETYPE}
  14589.   DC_TRUETYPE = 15;
  14590.   {$EXTERNALSYM DC_PAPERNAMES}
  14591.   DC_PAPERNAMES = 16;
  14592.   {$EXTERNALSYM DC_ORIENTATION}
  14593.   DC_ORIENTATION = 17;
  14594.   {$EXTERNALSYM DC_COPIES}
  14595.   DC_COPIES = 18;
  14596.   {$EXTERNALSYM DC_BINADJUST}
  14597.   DC_BINADJUST = 19;
  14598.   {$EXTERNALSYM DC_EMF_COMPLIANT}
  14599.   DC_EMF_COMPLIANT = 20;
  14600.   {$EXTERNALSYM DC_DATATYPE_PRODUCED}
  14601.   DC_DATATYPE_PRODUCED = 21;
  14602.   {$EXTERNALSYM DC_COLLATE}
  14603.   DC_COLLATE = 22;
  14604.  
  14605.  
  14606.   { bit fields of the return value (DWORD) for DC_TRUETYPE }
  14607.   {$EXTERNALSYM DCTT_BITMAP}
  14608.   DCTT_BITMAP = 1;
  14609.   {$EXTERNALSYM DCTT_DOWNLOAD}
  14610.   DCTT_DOWNLOAD = 2;
  14611.   {$EXTERNALSYM DCTT_SUBDEV}
  14612.   DCTT_SUBDEV = 4;
  14613.   {$EXTERNALSYM DCTT_DOWNLOAD_OUTLINE}
  14614.   DCTT_DOWNLOAD_OUTLINE = 8;
  14615.  
  14616.  
  14617.   { return values for DC_BINADJUST }
  14618.   {$EXTERNALSYM DCBA_FACEUPNONE}
  14619.   DCBA_FACEUPNONE = 0;
  14620.   {$EXTERNALSYM DCBA_FACEUPCENTER}
  14621.   DCBA_FACEUPCENTER = 1;
  14622.   {$EXTERNALSYM DCBA_FACEUPLEFT}
  14623.   DCBA_FACEUPLEFT = 2;
  14624.   {$EXTERNALSYM DCBA_FACEUPRIGHT}
  14625.   DCBA_FACEUPRIGHT = 3;
  14626.   {$EXTERNALSYM DCBA_FACEDOWNNONE}
  14627.   DCBA_FACEDOWNNONE = $100;
  14628.   {$EXTERNALSYM DCBA_FACEDOWNCENTER}
  14629.   DCBA_FACEDOWNCENTER = 257;
  14630.   {$EXTERNALSYM DCBA_FACEDOWNLEFT}
  14631.   DCBA_FACEDOWNLEFT = 258;
  14632.   {$EXTERNALSYM DCBA_FACEDOWNRIGHT}
  14633.   DCBA_FACEDOWNRIGHT = 259;
  14634.  
  14635.  
  14636. {$EXTERNALSYM DeviceCapabilitiesA}
  14637. function DeviceCapabilitiesA(pDriverName, pDeviceName, pPort: PAnsiChar;
  14638.   iIndex: Integer; pOutput: PAnsiChar; DevMode: PDeviceModeA): Integer; stdcall;
  14639. {$EXTERNALSYM DeviceCapabilitiesW}
  14640. function DeviceCapabilitiesW(pDriverName, pDeviceName, pPort: PWideChar;
  14641.   iIndex: Integer; pOutput: PWideChar; DevMode: PDeviceModeW): Integer; stdcall;
  14642. {$EXTERNALSYM DeviceCapabilities}
  14643. function DeviceCapabilities(pDriverName, pDeviceName, pPort: PChar;
  14644.   iIndex: Integer; pOutput: PChar; DevMode: PDeviceMode): Integer; stdcall;
  14645.  
  14646. {$EXTERNALSYM DrawEscape}
  14647. function DrawEscape(DC: HDC; p2, p3: Integer; p4: LPCSTR): BOOL; stdcall;
  14648. {$EXTERNALSYM Ellipse}
  14649. function Ellipse(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  14650. {$EXTERNALSYM EnumFontFamiliesExA}
  14651. function EnumFontFamiliesExA(DC: HDC; var p2: TLogFontA;
  14652.   p3: TFNFontEnumProcA; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  14653. {$EXTERNALSYM EnumFontFamiliesExW}
  14654. function EnumFontFamiliesExW(DC: HDC; var p2: TLogFontW;
  14655.   p3: TFNFontEnumProcW; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  14656. {$EXTERNALSYM EnumFontFamiliesEx}
  14657. function EnumFontFamiliesEx(DC: HDC; var p2: TLogFont;
  14658.   p3: TFNFontEnumProc; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  14659. {$EXTERNALSYM EnumFontFamiliesA}
  14660. function EnumFontFamiliesA(DC: HDC; p2: PAnsiChar; p3: TFNFontEnumProcA; p4: LPARAM): BOOL; stdcall;
  14661. {$EXTERNALSYM EnumFontFamiliesW}
  14662. function EnumFontFamiliesW(DC: HDC; p2: PWideChar; p3: TFNFontEnumProcW; p4: LPARAM): BOOL; stdcall;
  14663. {$EXTERNALSYM EnumFontFamilies}
  14664. function EnumFontFamilies(DC: HDC; p2: PChar; p3: TFNFontEnumProc; p4: LPARAM): BOOL; stdcall;
  14665. {$EXTERNALSYM EnumFontsA}
  14666. function EnumFontsA(DC: HDC; lpszFace: PAnsiChar; fntenmprc: TFNFontEnumProcA;
  14667.   lpszData: PChar): Integer; stdcall;
  14668. {$EXTERNALSYM EnumFontsW}
  14669. function EnumFontsW(DC: HDC; lpszFace: PWideChar; fntenmprc: TFNFontEnumProcW;
  14670.   lpszData: PChar): Integer; stdcall;
  14671. {$EXTERNALSYM EnumFonts}
  14672. function EnumFonts(DC: HDC; lpszFace: PChar; fntenmprc: TFNFontEnumProc;
  14673.   lpszData: PChar): Integer; stdcall;
  14674. {$EXTERNALSYM EnumObjects}
  14675. function EnumObjects(DC: HDC; p2: Integer; p3: TFNGObjEnumProc; p4: LPARAM): Integer; stdcall;
  14676. {$EXTERNALSYM EqualRgn}
  14677. function EqualRgn(p1, p2: HRGN): BOOL; stdcall;
  14678. {$EXTERNALSYM Escape}
  14679. function Escape(DC: HDC; p2, p3: Integer; p4: LPCSTR; p5: Pointer): Integer; stdcall;
  14680. {$EXTERNALSYM ExtEscape}
  14681. function ExtEscape(DC: HDC; p2, p3: Integer;
  14682.   const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;
  14683. {$EXTERNALSYM ExcludeClipRect}
  14684. function ExcludeClipRect(DC: HDC; p2, p3, p4, p5: Integer): Integer; stdcall;
  14685. {$EXTERNALSYM ExtCreateRegion}
  14686. function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; stdcall;
  14687. {$EXTERNALSYM ExtFloodFill}
  14688. function ExtFloodFill(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
  14689. {$EXTERNALSYM FillRgn}
  14690. function FillRgn(DC: HDC; p2: HRGN; p3: HBRUSH): BOOL; stdcall;
  14691. {$EXTERNALSYM FloodFill}
  14692. function FloodFill(DC: HDC; nXStart, nYStart: Integer; crFill: COLORREF): BOOL; stdcall;
  14693. {$EXTERNALSYM FrameRgn}
  14694. function FrameRgn(DC: HDC; p2: HRGN; p3: HBRUSH; p4, p5: Integer): BOOL; stdcall;
  14695. {$EXTERNALSYM GetROP2}
  14696. function GetROP2(DC: HDC): Integer; stdcall;
  14697. {$EXTERNALSYM GetAspectRatioFilterEx}
  14698. function GetAspectRatioFilterEx(DC: HDC; var p2: TSize): BOOL; stdcall;
  14699. {$EXTERNALSYM GetBkColor}
  14700. function GetBkColor(hDC: HDC): COLORREF; stdcall;
  14701. {$EXTERNALSYM GetBkMode}
  14702. function GetBkMode(hDC: HDC): Integer; stdcall;
  14703. {$EXTERNALSYM GetBitmapBits}
  14704. function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
  14705.   Bits: Pointer): Longint; stdcall;
  14706. {$EXTERNALSYM GetBitmapDimensionEx}
  14707. function GetBitmapDimensionEx(p1: HBITMAP; var p2: TSize): BOOL; stdcall;
  14708. {$EXTERNALSYM GetBoundsRect}
  14709. function GetBoundsRect(DC: HDC; var p2: TRect; p3: UINT): UINT; stdcall;
  14710. {$EXTERNALSYM GetBrushOrgEx}
  14711. function GetBrushOrgEx(DC: HDC; var p2: TPoint): BOOL; stdcall;
  14712. {$EXTERNALSYM GetCharWidthA}
  14713. function GetCharWidthA(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14714. {$EXTERNALSYM GetCharWidthW}
  14715. function GetCharWidthW(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14716. {$EXTERNALSYM GetCharWidth}
  14717. function GetCharWidth(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14718. {$EXTERNALSYM GetCharWidth32A}
  14719. function GetCharWidth32A(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14720. {$EXTERNALSYM GetCharWidth32W}
  14721. function GetCharWidth32W(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14722. {$EXTERNALSYM GetCharWidth32}
  14723. function GetCharWidth32(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14724. {$EXTERNALSYM GetCharWidthFloatA}
  14725. function GetCharWidthFloatA(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14726. {$EXTERNALSYM GetCharWidthFloatW}
  14727. function GetCharWidthFloatW(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14728. {$EXTERNALSYM GetCharWidthFloat}
  14729. function GetCharWidthFloat(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  14730. {$EXTERNALSYM GetCharABCWidthsA}
  14731. function GetCharABCWidthsA(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  14732. {$EXTERNALSYM GetCharABCWidthsW}
  14733. function GetCharABCWidthsW(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  14734. {$EXTERNALSYM GetCharABCWidths}
  14735. function GetCharABCWidths(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  14736. {$EXTERNALSYM GetCharABCWidthsFloatA}
  14737. function GetCharABCWidthsFloatA(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  14738. {$EXTERNALSYM GetCharABCWidthsFloatW}
  14739. function GetCharABCWidthsFloatW(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  14740. {$EXTERNALSYM GetCharABCWidthsFloat}
  14741. function GetCharABCWidthsFloat(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  14742. {$EXTERNALSYM GetClipBox}
  14743. function GetClipBox(DC: HDC; var Rect: TRect): Integer; stdcall;
  14744. {$EXTERNALSYM GetClipRgn}
  14745. function GetClipRgn(DC: HDC; rgn: HRGN): Integer; stdcall;
  14746. {$EXTERNALSYM GetMetaRgn}
  14747. function GetMetaRgn(DC: HDC; rgn: HRGN): Integer; stdcall;
  14748. {$EXTERNALSYM GetCurrentObject}
  14749. function GetCurrentObject(DC: HDC; p2: UINT): HGDIOBJ; stdcall;
  14750. {$EXTERNALSYM GetCurrentPositionEx}
  14751. function GetCurrentPositionEx(DC: HDC; Point: PPoint): BOOL; stdcall;
  14752. {$EXTERNALSYM GetDeviceCaps}
  14753. function GetDeviceCaps(DC: HDC; Index: Integer): Integer; stdcall;
  14754. {$EXTERNALSYM GetDIBits}
  14755. function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT;
  14756.   Bits: Pointer; var BitInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  14757. {$EXTERNALSYM GetFontData}
  14758. function GetFontData(DC: HDC; p2, p3: DWORD; p4: Pointer; p5: DWORD): DWORD; stdcall;
  14759. {$EXTERNALSYM GetGlyphOutlineA}
  14760. function GetGlyphOutlineA(DC: HDC; p2, p3: UINT;
  14761.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  14762. {$EXTERNALSYM GetGlyphOutlineW}
  14763. function GetGlyphOutlineW(DC: HDC; p2, p3: UINT;
  14764.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  14765. {$EXTERNALSYM GetGlyphOutline}
  14766. function GetGlyphOutline(DC: HDC; p2, p3: UINT;
  14767.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  14768. {$EXTERNALSYM GetGraphicsMode}
  14769. function GetGraphicsMode(DC: HDC): Integer; stdcall;
  14770. {$EXTERNALSYM GetMapMode}
  14771. function GetMapMode(DC: HDC): Integer; stdcall;
  14772. {$EXTERNALSYM GetMetaFileBitsEx}
  14773. function GetMetaFileBitsEx(p1: HMETAFILE; p2: UINT; p3: Pointer): UINT; stdcall;
  14774. {$EXTERNALSYM GetMetaFileA}
  14775. function GetMetaFileA(p1: PAnsiChar): HMETAFILE; stdcall;
  14776. {$EXTERNALSYM GetMetaFileW}
  14777. function GetMetaFileW(p1: PWideChar): HMETAFILE; stdcall;
  14778. {$EXTERNALSYM GetMetaFile}
  14779. function GetMetaFile(p1: PChar): HMETAFILE; stdcall;
  14780. {$EXTERNALSYM GetNearestColor}
  14781. function GetNearestColor(DC: HDC; p2: COLORREF): COLORREF; stdcall;
  14782. {$EXTERNALSYM GetNearestPaletteIndex}
  14783. function GetNearestPaletteIndex(p1: HPALETTE; p2: COLORREF): UINT; stdcall;
  14784. {$EXTERNALSYM GetObjectType}
  14785. function GetObjectType(h: HGDIOBJ): DWORD; stdcall;
  14786. {$EXTERNALSYM GetOutlineTextMetricsA}
  14787. function GetOutlineTextMetricsA(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  14788. {$EXTERNALSYM GetOutlineTextMetricsW}
  14789. function GetOutlineTextMetricsW(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  14790. {$EXTERNALSYM GetOutlineTextMetrics}
  14791. function GetOutlineTextMetrics(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  14792. {$EXTERNALSYM GetPaletteEntries}
  14793. function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
  14794.   var PaletteEntries): UINT; stdcall;
  14795. {$EXTERNALSYM GetPixel}
  14796. function GetPixel(DC: HDC; X, Y: Integer): COLORREF; stdcall;
  14797. {$EXTERNALSYM GetPixelFormat}
  14798. function GetPixelFormat(DC: HDC): Integer; stdcall;
  14799. {$EXTERNALSYM GetPolyFillMode}
  14800. function GetPolyFillMode(DC: HDC): Integer; stdcall;
  14801. {$EXTERNALSYM GetRasterizerCaps}
  14802. function GetRasterizerCaps(var p1: TRasterizerStatus; p2: UINT): BOOL; stdcall;
  14803. {$EXTERNALSYM GetRegionData}
  14804. function GetRegionData(RGN: HRGN; p2: DWORD; p3: PRgnData): DWORD; stdcall;
  14805. {$EXTERNALSYM GetRgnBox}
  14806. function GetRgnBox(RGN: HRGN; var p2: TRect): Integer; stdcall;
  14807. {$EXTERNALSYM GetStockObject}
  14808. function GetStockObject(Index: Integer): HGDIOBJ; stdcall;
  14809. {$EXTERNALSYM GetStretchBltMode}
  14810. function GetStretchBltMode(DC: HDC): Integer; stdcall;
  14811. {$EXTERNALSYM GetSystemPaletteEntries}
  14812. function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT;
  14813.   var PaletteEntries): UINT; stdcall;
  14814. {$EXTERNALSYM GetSystemPaletteUse}
  14815. function GetSystemPaletteUse(DC: HDC): UINT; stdcall;
  14816. {$EXTERNALSYM GetTextCharacterExtra}
  14817. function GetTextCharacterExtra(DC: HDC): Integer; stdcall;
  14818. {$EXTERNALSYM GetTextAlign}
  14819. function GetTextAlign(DC: HDC): UINT; stdcall;
  14820. {$EXTERNALSYM GetTextColor}
  14821. function GetTextColor(DC: HDC): COLORREF; stdcall;
  14822. {$EXTERNALSYM GetTextExtentPointA}
  14823. function GetTextExtentPointA(DC: HDC; Str: PAnsiChar; Count: Integer;
  14824.   var Size: TSize): BOOL; stdcall;
  14825. {$EXTERNALSYM GetTextExtentPointW}
  14826. function GetTextExtentPointW(DC: HDC; Str: PWideChar; Count: Integer;
  14827.   var Size: TSize): BOOL; stdcall;
  14828. {$EXTERNALSYM GetTextExtentPoint}
  14829. function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer;
  14830.   var Size: TSize): BOOL; stdcall;
  14831. {$EXTERNALSYM GetTextExtentPoint32A}
  14832. function GetTextExtentPoint32A(DC: HDC; Str: PAnsiChar; Count: Integer;
  14833.   var Size: TSize): BOOL; stdcall;
  14834. {$EXTERNALSYM GetTextExtentPoint32W}
  14835. function GetTextExtentPoint32W(DC: HDC; Str: PWideChar; Count: Integer;
  14836.   var Size: TSize): BOOL; stdcall;
  14837. {$EXTERNALSYM GetTextExtentPoint32}
  14838. function GetTextExtentPoint32(DC: HDC; Str: PChar; Count: Integer;
  14839.   var Size: TSize): BOOL; stdcall;
  14840. {$EXTERNALSYM GetTextExtentExPointA}
  14841. function GetTextExtentExPointA(DC: HDC; p2: PAnsiChar;
  14842.   p3, p4: Integer; var p5, p6: Integer; var p7: TSize): BOOL; stdcall;
  14843. {$EXTERNALSYM GetTextExtentExPointW}
  14844. function GetTextExtentExPointW(DC: HDC; p2: PWideChar;
  14845.   p3, p4: Integer; var p5, p6: Integer; var p7: TSize): BOOL; stdcall;
  14846. {$EXTERNALSYM GetTextExtentExPoint}
  14847. function GetTextExtentExPoint(DC: HDC; p2: PChar;
  14848.   p3, p4: Integer; var p5, p6: Integer; var p7: TSize): BOOL; stdcall;
  14849. {$EXTERNALSYM GetTextCharset}
  14850. function GetTextCharset(hdc: HDC): Integer; stdcall;
  14851. {$EXTERNALSYM GetTextCharsetInfo}
  14852. function GetTextCharsetInfo(hdc: HDC; lpSig: PFontSignature; dwFlags: DWORD): BOOL; stdcall;
  14853. {$EXTERNALSYM TranslateCharsetInfo}
  14854. function TranslateCharsetInfo(var lpSrc: DWORD; var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; stdcall;
  14855. {$EXTERNALSYM GetFontLanguageInfo}
  14856. function GetFontLanguageInfo(DC: HDC): DWORD; stdcall;
  14857. {$EXTERNALSYM GetCharacterPlacementA}
  14858. function GetCharacterPlacementA(DC: HDC; p2: PAnsiChar; p3, p4: BOOL;
  14859.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  14860. {$EXTERNALSYM GetCharacterPlacementW}
  14861. function GetCharacterPlacementW(DC: HDC; p2: PWideChar; p3, p4: BOOL;
  14862.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  14863. {$EXTERNALSYM GetCharacterPlacement}
  14864. function GetCharacterPlacement(DC: HDC; p2: PChar; p3, p4: BOOL;
  14865.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  14866. {$EXTERNALSYM GetViewportExtEx}
  14867. function GetViewportExtEx(DC: HDC; var Size: TSize): BOOL; stdcall;
  14868. {$EXTERNALSYM GetViewportOrgEx}
  14869. function GetViewportOrgEx(DC: HDC; var Point: TPoint): BOOL; stdcall;
  14870. {$EXTERNALSYM GetWindowExtEx}
  14871. function GetWindowExtEx(DC: HDC; var Size: TSize): BOOL; stdcall;
  14872. {$EXTERNALSYM GetWindowOrgEx}
  14873. function GetWindowOrgEx(DC: HDC; var Point: TPoint): BOOL; stdcall;
  14874. {$EXTERNALSYM IntersectClipRect}
  14875. function IntersectClipRect(DC: HDC; X1, Y1, X2, Y2: Integer): Integer; stdcall;
  14876. {$EXTERNALSYM InvertRgn}
  14877. function InvertRgn(DC: HDC; p2: HRGN): BOOL; stdcall;
  14878. {$EXTERNALSYM LineDDA}
  14879. function LineDDA(p1, p2, p3, p4: Integer; p5: TFNLineDDAProc; p6: LPARAM): BOOL; stdcall;
  14880. {$EXTERNALSYM LineTo}
  14881. function LineTo(DC: HDC; X, Y: Integer): BOOL; stdcall;
  14882. {$EXTERNALSYM MaskBlt}
  14883. function MaskBlt(DC: HDC; p2, p3, p4, p5: Integer; p6: HDC;
  14884.   p7, p8: Integer; p9: HBITMAP; p10, p11: Integer; p12: DWORD): BOOL; stdcall;
  14885. {$EXTERNALSYM PlgBlt}
  14886. function PlgBlt(DC: HDC; const PointsArray; p3: HDC;
  14887.   p4, p5, p6, p7: Integer; p8: HBITMAP; p9, p10: Integer): BOOL; stdcall;
  14888. {$EXTERNALSYM OffsetClipRgn}
  14889. function OffsetClipRgn(DC: HDC; p2, p3: Integer): Integer; stdcall;
  14890. {$EXTERNALSYM OffsetRgn}
  14891. function OffsetRgn(RGN: HRGN; p2, p3: Integer): Integer; stdcall;
  14892. {$EXTERNALSYM PatBlt}
  14893. function PatBlt(DC: HDC; X, Y, Width, Height: Integer; Rop: DWORD): BOOL; stdcall;
  14894. {$EXTERNALSYM Pie}
  14895. function Pie(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
  14896. {$EXTERNALSYM PlayMetaFile}
  14897. function PlayMetaFile(DC: HDC; MF: HMETAFILE): BOOL; stdcall;
  14898. {$EXTERNALSYM PaintRgn}
  14899. function PaintRgn(DC: HDC; RGN: HRGN): BOOL; stdcall;
  14900. {$EXTERNALSYM PolyPolygon}
  14901. function PolyPolygon(DC: HDC; var Points; var nPoints; p4: Integer): BOOL; stdcall;
  14902. {$EXTERNALSYM PtInRegion}
  14903. function PtInRegion(RGN: HRGN; p2, p3: Integer): BOOL; stdcall;
  14904. {$EXTERNALSYM PtVisible}
  14905. function PtVisible(DC: HDC; p2, p3: Integer): BOOL; stdcall;
  14906. {$EXTERNALSYM RectInRegion}
  14907. function RectInRegion(RGN: HRGN; const p2: TRect): BOOL; stdcall;
  14908. {$EXTERNALSYM RectVisible}
  14909. function RectVisible(DC: HDC; const Rect: TRect): BOOL; stdcall;
  14910. {$EXTERNALSYM Rectangle}
  14911. function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  14912. {$EXTERNALSYM RestoreDC}
  14913. function RestoreDC(DC: HDC; SavedDC: Integer): BOOL; stdcall;
  14914. {$EXTERNALSYM ResetDCA}
  14915. function ResetDCA(DC: HDC; const p2: TDeviceModeA): HDC; stdcall;
  14916. {$EXTERNALSYM ResetDCW}
  14917. function ResetDCW(DC: HDC; const p2: TDeviceModeW): HDC; stdcall;
  14918. {$EXTERNALSYM ResetDC}
  14919. function ResetDC(DC: HDC; const p2: TDeviceMode): HDC; stdcall;
  14920. {$EXTERNALSYM RealizePalette}
  14921. function RealizePalette(DC: HDC): UINT; stdcall;
  14922. {$EXTERNALSYM RemoveFontResourceA}
  14923. function RemoveFontResourceA(p1: PAnsiChar): BOOL; stdcall;
  14924. {$EXTERNALSYM RemoveFontResourceW}
  14925. function RemoveFontResourceW(p1: PWideChar): BOOL; stdcall;
  14926. {$EXTERNALSYM RemoveFontResource}
  14927. function RemoveFontResource(p1: PChar): BOOL; stdcall;
  14928. {$EXTERNALSYM RoundRect}
  14929. function RoundRect(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): BOOL; stdcall;
  14930. {$EXTERNALSYM ResizePalette}
  14931. function ResizePalette(p1: HPALETTE; p2: UINT): BOOL; stdcall;
  14932. {$EXTERNALSYM SaveDC}
  14933. function SaveDC(DC: HDC): Integer; stdcall;
  14934. {$EXTERNALSYM SelectClipRgn}
  14935. function SelectClipRgn(DC: HDC; p2: HRGN): Integer; stdcall;
  14936. {$EXTERNALSYM ExtSelectClipRgn}
  14937. function ExtSelectClipRgn(DC: HDC; p2: HRGN; p3: Integer): Integer; stdcall;
  14938. {$EXTERNALSYM SetMetaRgn}
  14939. function SetMetaRgn(DC: HDC): Integer; stdcall;
  14940. {$EXTERNALSYM SelectObject}
  14941. function SelectObject(DC: HDC; p2: HGDIOBJ): HGDIOBJ; stdcall;
  14942. {$EXTERNALSYM SelectPalette}
  14943. function SelectPalette(DC: HDC; Palette: HPALETTE;
  14944.   ForceBackground: Bool): HPALETTE; stdcall;
  14945. {$EXTERNALSYM SetBkColor}
  14946. function SetBkColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  14947. {$EXTERNALSYM SetBkMode}
  14948. function SetBkMode(DC: HDC; BkMode: Integer): Integer; stdcall;
  14949. {$EXTERNALSYM SetBitmapBits}
  14950. function SetBitmapBits(p1: HBITMAP; p2: DWORD; bits: Pointer): Longint; stdcall;
  14951. {$EXTERNALSYM SetBoundsRect}
  14952. function SetBoundsRect(DC: HDC; p2: PRect; p3: UINT): UINT; stdcall;
  14953. {$EXTERNALSYM SetDIBits}
  14954. function SetDIBits(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT;
  14955.   Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  14956. {$EXTERNALSYM SetDIBitsToDevice}
  14957. function SetDIBitsToDevice(DC: HDC; DestX, DestY: Integer; Width, Height: DWORD;
  14958.   SrcX, SrcY: Integer; nStartScan, NumScans: UINT; Bits: Pointer;
  14959.   var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  14960. {$EXTERNALSYM SetMapperFlags}
  14961. function SetMapperFlags(DC: HDC; Flag: DWORD): DWORD; stdcall;
  14962. {$EXTERNALSYM SetGraphicsMode}
  14963. function SetGraphicsMode(hdc: HDC; iMode: Integer): Integer; stdcall;
  14964. {$EXTERNALSYM SetMapMode}
  14965. function SetMapMode(DC: HDC; p2: Integer): Integer; stdcall;
  14966. {$EXTERNALSYM SetMetaFileBitsEx}
  14967. function SetMetaFileBitsEx(p1: UINT; const p2: PChar): HMETAFILE; stdcall;
  14968. {$EXTERNALSYM SetPaletteEntries}
  14969. function SetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
  14970.   var PaletteEntries): UINT; stdcall;
  14971. {$EXTERNALSYM SetPixel}
  14972. function SetPixel(DC: HDC; X, Y: Integer; Color: COLORREF): COLORREF; stdcall;
  14973. {$EXTERNALSYM SetPixelV}
  14974. function SetPixelV(DC: HDC; X, Y: Integer; Color: COLORREF): BOOL; stdcall;
  14975. {$EXTERNALSYM SetPixelFormat}
  14976. function SetPixelFormat(DC: HDC; p2: Integer; p3: PPixelFormatDescriptor): BOOL; stdcall;
  14977. {$EXTERNALSYM SetPolyFillMode}
  14978. function SetPolyFillMode(DC: HDC; PolyFillMode: Integer): Integer; stdcall;
  14979. {$EXTERNALSYM StretchBlt}
  14980. function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
  14981.   XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: DWORD): BOOL; stdcall;
  14982. {$EXTERNALSYM SetRectRgn}
  14983. function SetRectRgn(Rgn: HRgn; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  14984. {$EXTERNALSYM StretchDIBits}
  14985. function StretchDIBits(DC: HDC; DestX, DestY, DestWidth, DestHegiht, SrcX,
  14986.   SrcY, SrcWidth, SrcHeight: Integer; Bits: Pointer; var BitsInfo: TBitmapInfo;
  14987.   Usage: UINT; Rop: DWORD): Integer; stdcall;
  14988. {$EXTERNALSYM SetROP2}
  14989. function SetROP2(DC: HDC; p2: Integer): Integer; stdcall;
  14990. {$EXTERNALSYM SetStretchBltMode}
  14991. function SetStretchBltMode(DC: HDC; p2: Integer): Integer; stdcall;
  14992. {$EXTERNALSYM SetSystemPaletteUse}
  14993. function SetSystemPaletteUse(DC: HDC; p2: UINT): UINT; stdcall;
  14994. {$EXTERNALSYM SetTextCharacterExtra}
  14995. function SetTextCharacterExtra(DC: HDC; CharExtra: Integer): Integer; stdcall;
  14996. {$EXTERNALSYM SetTextColor}
  14997. function SetTextColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  14998. {$EXTERNALSYM SetTextAlign}
  14999. function SetTextAlign(DC: HDC; Flags: UINT): UINT; stdcall;
  15000. {$EXTERNALSYM SetTextJustification}
  15001. function SetTextJustification(DC: HDC; BreakExtra, BreakCount: Integer): Integer; stdcall;
  15002. {$EXTERNALSYM UpdateColors}
  15003. function UpdateColors(DC: HDC): BOOL; stdcall;
  15004. {$EXTERNALSYM PlayMetaFileRecord}
  15005. function PlayMetaFileRecord(DC: HDC; const p2: THandleTable; const p3: TMetaRecord; p4: UINT): BOOL; stdcall;
  15006.  
  15007. type
  15008. {$IFDEF STRICT}
  15009.   TFNMFEnumProc = function (DC: HDC; var p2: THandleTable; p3: TMetaRecord;
  15010.     p4: Integer; p5: LPARAM): Integer stdcall;
  15011.   TFNEnhMFEnumProc = function (DC: HDC; var p2: THandleTable; p3: TEnhMetaRecord;
  15012.     p4: Integer; p5: LPARAM): Integer stdcall;
  15013. {$ELSE}
  15014.   TFNMFEnumProc = TFarProc;
  15015.   TFNEnhMFEnumProc = TFarProc;
  15016. {$ENDIF}
  15017.  
  15018. {$EXTERNALSYM EnumMetaFile}
  15019. function EnumMetaFile(DC: HDC; p2: HMETAFILE; p3: TFNMFEnumProc; p4: LPARAM): BOOL; stdcall;
  15020.  
  15021. { Enhanced Metafile Function Declarations }
  15022.  
  15023. {$EXTERNALSYM CloseEnhMetaFile}
  15024. function CloseEnhMetaFile(DC: HDC): HENHMETAFILE; stdcall;
  15025. {$EXTERNALSYM CopyEnhMetaFileA}
  15026. function CopyEnhMetaFileA(p1: HENHMETAFILE; p2: PAnsiChar): HENHMETAFILE; stdcall;
  15027. {$EXTERNALSYM CopyEnhMetaFileW}
  15028. function CopyEnhMetaFileW(p1: HENHMETAFILE; p2: PWideChar): HENHMETAFILE; stdcall;
  15029. {$EXTERNALSYM CopyEnhMetaFile}
  15030. function CopyEnhMetaFile(p1: HENHMETAFILE; p2: PChar): HENHMETAFILE; stdcall;
  15031. {$EXTERNALSYM CreateEnhMetaFileA}
  15032. function CreateEnhMetaFileA(DC: HDC; p2: PAnsiChar; p3: PRect; p4: PAnsiChar): HDC; stdcall;
  15033. {$EXTERNALSYM CreateEnhMetaFileW}
  15034. function CreateEnhMetaFileW(DC: HDC; p2: PWideChar; p3: PRect; p4: PWideChar): HDC; stdcall;
  15035. {$EXTERNALSYM CreateEnhMetaFile}
  15036. function CreateEnhMetaFile(DC: HDC; p2: PChar; p3: PRect; p4: PChar): HDC; stdcall;
  15037. {$EXTERNALSYM DeleteEnhMetaFile}
  15038. function DeleteEnhMetaFile(p1: HENHMETAFILE): BOOL; stdcall;
  15039. {$EXTERNALSYM EnumEnhMetaFile}
  15040. function EnumEnhMetaFile(DC: HDC; p2: HENHMETAFILE; p3: TFNEnhMFEnumProc; p4: Pointer; const p5: TRect): BOOL; stdcall;
  15041. {$EXTERNALSYM GetEnhMetaFileA}
  15042. function GetEnhMetaFileA(p1: PAnsiChar): HENHMETAFILE; stdcall;
  15043. {$EXTERNALSYM GetEnhMetaFileW}
  15044. function GetEnhMetaFileW(p1: PWideChar): HENHMETAFILE; stdcall;
  15045. {$EXTERNALSYM GetEnhMetaFile}
  15046. function GetEnhMetaFile(p1: PChar): HENHMETAFILE; stdcall;
  15047. {$EXTERNALSYM GetEnhMetaFileBits}
  15048. function GetEnhMetaFileBits(p1: HENHMETAFILE; p2: UINT; p3: PByte): UINT; stdcall;
  15049. {$EXTERNALSYM GetEnhMetaFileDescriptionA}
  15050. function GetEnhMetaFileDescriptionA(p1: HENHMETAFILE; p2: UINT; p3: PAnsiChar): UINT; stdcall;
  15051. {$EXTERNALSYM GetEnhMetaFileDescriptionW}
  15052. function GetEnhMetaFileDescriptionW(p1: HENHMETAFILE; p2: UINT; p3: PWideChar): UINT; stdcall;
  15053. {$EXTERNALSYM GetEnhMetaFileDescription}
  15054. function GetEnhMetaFileDescription(p1: HENHMETAFILE; p2: UINT; p3: PChar): UINT; stdcall;
  15055. {$EXTERNALSYM GetEnhMetaFileHeader}
  15056. function GetEnhMetaFileHeader(p1: HENHMETAFILE; p2: UINT; p3: PEnhMetaHeader): UINT; stdcall;
  15057. {$EXTERNALSYM GetEnhMetaFilePaletteEntries}
  15058. function GetEnhMetaFilePaletteEntries(p1: HENHMETAFILE; p2: UINT; p3: Pointer): UINT; stdcall;
  15059. {$EXTERNALSYM GetEnhMetaFilePixelFormat}
  15060. function GetEnhMetaFilePixelFormat(p1: HENHMETAFILE; p2: Cardinal;
  15061.   var p3: TPixelFormatDescriptor): UINT; stdcall;
  15062. {$EXTERNALSYM GetWinMetaFileBits}
  15063. function GetWinMetaFileBits(p1: HENHMETAFILE; p2: UINT; p3: PByte;
  15064.   p4: Integer; p5: HDC): UINT; stdcall;
  15065. {$EXTERNALSYM PlayEnhMetaFile}
  15066. function PlayEnhMetaFile(DC: HDC; p2: HENHMETAFILE; const p3: TRect): BOOL; stdcall;
  15067. {$EXTERNALSYM PlayEnhMetaFileRecord}
  15068. function PlayEnhMetaFileRecord(DC: HDC; var p2: THandleTable;
  15069.   const p3: TEnhMetaRecord; p4: UINT): BOOL; stdcall;
  15070. {$EXTERNALSYM SetEnhMetaFileBits}
  15071. function SetEnhMetaFileBits(p1: UINT; p2: PChar): HENHMETAFILE; stdcall;
  15072. {$EXTERNALSYM SetWinMetaFileBits}
  15073. function SetWinMetaFileBits(p1: UINT; p2: PChar; p3: HDC;
  15074.   const p4: TMetaFilePict): HENHMETAFILE; stdcall;
  15075. {$EXTERNALSYM GdiComment}
  15076. function GdiComment(DC: HDC; p2: UINT; p3: PChar): BOOL; stdcall;
  15077. {$EXTERNALSYM GetTextMetricsA}
  15078. function GetTextMetricsA(DC: HDC; var TM: TTextMetricA): BOOL; stdcall;
  15079. {$EXTERNALSYM GetTextMetricsW}
  15080. function GetTextMetricsW(DC: HDC; var TM: TTextMetricW): BOOL; stdcall;
  15081. {$EXTERNALSYM GetTextMetrics}
  15082. function GetTextMetrics(DC: HDC; var TM: TTextMetric): BOOL; stdcall;
  15083.  
  15084. { new GDI }
  15085.  
  15086. type
  15087.   PDIBSection = ^TDIBSection;
  15088.   {$EXTERNALSYM tagDIBSECTION}
  15089.   tagDIBSECTION = packed record
  15090.     dsBm: TBitmap;
  15091.     dsBmih: TBitmapInfoHeader;
  15092.     dsBitfields: array[0..2] of DWORD;
  15093.     dshSection: THandle;
  15094.     dsOffset: DWORD;
  15095.   end;
  15096.   TDIBSection = tagDIBSECTION;
  15097.   {$EXTERNALSYM DIBSECTION}
  15098.   DIBSECTION = tagDIBSECTION;
  15099.  
  15100. {$EXTERNALSYM AngleArc}
  15101. function AngleArc(DC: HDC; p2, p3: Integer; p4: DWORD; p5, p6: Single): BOOL; stdcall;
  15102. {$EXTERNALSYM PolyPolyline}
  15103. function PolyPolyline(DC: HDC; const PointStructs; const Points; p4: DWORD): BOOL; stdcall;
  15104. {$EXTERNALSYM GetWorldTransform}
  15105. function GetWorldTransform(DC: HDC; var p2: TXForm): BOOL; stdcall;
  15106. {$EXTERNALSYM SetWorldTransform}
  15107. function SetWorldTransform(DC: HDC; const p2: TXForm): BOOL; stdcall;
  15108. {$EXTERNALSYM ModifyWorldTransform}
  15109. function ModifyWorldTransform(DC: HDC; const p2: TXForm; p3: DWORD): BOOL; stdcall;
  15110. {$EXTERNALSYM CombineTransform}
  15111. function CombineTransform(var p1: TXForm; const p2, p3: TXForm): BOOL; stdcall;
  15112. {$EXTERNALSYM CreateDIBSection}
  15113. function CreateDIBSection(DC: HDC; const p2: TBitmapInfo; p3: UINT;
  15114.   var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;
  15115. {$EXTERNALSYM GetDIBColorTable}
  15116. function GetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadStructs): UINT; stdcall;
  15117. {$EXTERNALSYM SetDIBColorTable}
  15118. function SetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; stdcall;
  15119.  
  15120. const
  15121.   { Flags value for COLORADJUSTMENT }
  15122.   {$EXTERNALSYM CA_NEGATIVE}
  15123.   CA_NEGATIVE = 1;
  15124.   {$EXTERNALSYM CA_LOG_FILTER}
  15125.   CA_LOG_FILTER = 2;
  15126.  
  15127.   { IlluminantIndex values }
  15128.   {$EXTERNALSYM ILLUMINANT_DEVICE_DEFAULT}
  15129.   ILLUMINANT_DEVICE_DEFAULT = 0;
  15130.   {$EXTERNALSYM ILLUMINANT_A}
  15131.   ILLUMINANT_A = 1;
  15132.   {$EXTERNALSYM ILLUMINANT_B}
  15133.   ILLUMINANT_B = 2;
  15134.   {$EXTERNALSYM ILLUMINANT_C}
  15135.   ILLUMINANT_C = 3;
  15136.   {$EXTERNALSYM ILLUMINANT_D50}
  15137.   ILLUMINANT_D50 = 4;
  15138.   {$EXTERNALSYM ILLUMINANT_D55}
  15139.   ILLUMINANT_D55 = 5;
  15140.   {$EXTERNALSYM ILLUMINANT_D65}
  15141.   ILLUMINANT_D65 = 6;
  15142.   {$EXTERNALSYM ILLUMINANT_D75}
  15143.   ILLUMINANT_D75 = 7;
  15144.   {$EXTERNALSYM ILLUMINANT_F2}
  15145.   ILLUMINANT_F2 = 8;
  15146.  
  15147.   {$EXTERNALSYM ILLUMINANT_MAX_INDEX}
  15148.   ILLUMINANT_MAX_INDEX = ILLUMINANT_F2;
  15149.   {$EXTERNALSYM ILLUMINANT_TUNGSTEN}
  15150.   ILLUMINANT_TUNGSTEN = ILLUMINANT_A;
  15151.   {$EXTERNALSYM ILLUMINANT_DAYLIGHT}
  15152.   ILLUMINANT_DAYLIGHT = ILLUMINANT_C;
  15153.   {$EXTERNALSYM ILLUMINANT_FLUORESCENT}
  15154.   ILLUMINANT_FLUORESCENT = ILLUMINANT_F2;
  15155.   {$EXTERNALSYM ILLUMINANT_NTSC}
  15156.   ILLUMINANT_NTSC = ILLUMINANT_C;
  15157.  
  15158.   { Min and max for RedGamma, GreenGamma, BlueGamma }
  15159.   {$EXTERNALSYM RGB_GAMMA_MIN}
  15160.   RGB_GAMMA_MIN = 02500;
  15161.   {$EXTERNALSYM RGB_GAMMA_MAX}
  15162.   RGB_GAMMA_MAX = 65000;
  15163.  
  15164.   { Min and max for ReferenceBlack and ReferenceWhite }
  15165.   {$EXTERNALSYM REFERENCE_WHITE_MIN}
  15166.   REFERENCE_WHITE_MIN = 6000;
  15167.   {$EXTERNALSYM REFERENCE_WHITE_MAX}
  15168.   REFERENCE_WHITE_MAX = 10000;
  15169.   {$EXTERNALSYM REFERENCE_BLACK_MIN}
  15170.   REFERENCE_BLACK_MIN = 0;
  15171.   {$EXTERNALSYM REFERENCE_BLACK_MAX}
  15172.   REFERENCE_BLACK_MAX = 4000;
  15173.  
  15174.   { Min and max for Contrast, Brightness, Colorfulness, RedGreenTint }
  15175.   {$EXTERNALSYM COLOR_ADJ_MIN}
  15176.   COLOR_ADJ_MIN = -100;
  15177.   {$EXTERNALSYM COLOR_ADJ_MAX}
  15178.   COLOR_ADJ_MAX = 100;
  15179.  
  15180. type
  15181.   PColorAdjustment = ^TColorAdjustment;
  15182.   {$EXTERNALSYM tagCOLORADJUSTMENT}
  15183.   tagCOLORADJUSTMENT = packed record
  15184.     caSize: Word;
  15185.     caFlags: Word;
  15186.     caIlluminantIndex: Word;
  15187.     caRedGamma: Word;
  15188.     caGreenGamma: Word;
  15189.     caBlueGamma: Word;
  15190.     caReferenceBlack: Word;
  15191.     caReferenceWhite: Word;
  15192.     caContrast: SHORT;
  15193.     caBrightness: SHORT;
  15194.     caColorfulness: SHORT;
  15195.     caRedGreenTint: SHORT;
  15196.   end;
  15197.   TColorAdjustment = tagCOLORADJUSTMENT;
  15198.   {$EXTERNALSYM COLORADJUSTMENT}
  15199.   COLORADJUSTMENT = tagCOLORADJUSTMENT;
  15200.  
  15201. {$EXTERNALSYM SetColorAdjustment}
  15202. function SetColorAdjustment(DC: HDC; const p2: TColorAdjustment): BOOL; stdcall;
  15203. {$EXTERNALSYM GetColorAdjustment}
  15204. function GetColorAdjustment(DC: HDC; var p2: TColorAdjustment): BOOL; stdcall;
  15205. {$EXTERNALSYM CreateHalftonePalette}
  15206. function CreateHalftonePalette(DC: HDC): HPALETTE; stdcall;
  15207.  
  15208. type
  15209.   TFNAbortProc = function (DC: HDC; p2: Integer): BOOL stdcall stdcall;
  15210.  
  15211.   PDocInfoA = ^TDocInfoA;
  15212.   PDocInfoW = ^TDocInfoW;
  15213.   PDocInfo = PDocInfoA;
  15214.   {$EXTERNALSYM _DOCINFOA}
  15215.   _DOCINFOA = packed record
  15216.     cbSize: Integer;
  15217.     lpszDocName: PAnsiChar;
  15218.     lpszOutput: PAnsiChar;
  15219.     lpszDatatype: PAnsiChar;
  15220.     fwType: DWORD;
  15221.   end;
  15222.   {$EXTERNALSYM _DOCINFOW}
  15223.   _DOCINFOW = packed record
  15224.     cbSize: Integer;
  15225.     lpszDocName: PWideChar;
  15226.     lpszOutput: PWideChar;
  15227.     lpszDatatype: PWideChar;
  15228.     fwType: DWORD;
  15229.   end;
  15230.   {$EXTERNALSYM _DOCINFO}
  15231.   _DOCINFO = _DOCINFOA;
  15232.   TDocInfoA = _DOCINFOA;
  15233.   TDocInfoW = _DOCINFOW;
  15234.   TDocInfo = TDocInfoA;
  15235.   {$EXTERNALSYM DOCINFOA}
  15236.   DOCINFOA = _DOCINFOA;
  15237.   {$EXTERNALSYM DOCINFOW}
  15238.   DOCINFOW = _DOCINFOW;
  15239.   {$EXTERNALSYM DOCINFO}
  15240.   DOCINFO = DOCINFOA;
  15241.  
  15242. const
  15243.   {$EXTERNALSYM DI_APPBANDING}
  15244.   DI_APPBANDING = 1;
  15245.  
  15246. {$EXTERNALSYM StartDocA}
  15247. function StartDocA(DC: HDC; const p2: TDocInfoA): Integer; stdcall;
  15248. {$EXTERNALSYM StartDocW}
  15249. function StartDocW(DC: HDC; const p2: TDocInfoW): Integer; stdcall;
  15250. {$EXTERNALSYM StartDoc}
  15251. function StartDoc(DC: HDC; const p2: TDocInfo): Integer; stdcall;
  15252. {$EXTERNALSYM EndDoc}
  15253. function EndDoc(DC: HDC): Integer; stdcall;
  15254. {$EXTERNALSYM StartPage}
  15255. function StartPage(DC: HDC): Integer; stdcall;
  15256. {$EXTERNALSYM EndPage}
  15257. function EndPage(DC: HDC): Integer; stdcall;
  15258. {$EXTERNALSYM AbortDoc}
  15259. function AbortDoc(DC: HDC): Integer; stdcall;
  15260. {$EXTERNALSYM SetAbortProc}
  15261. function SetAbortProc(DC: HDC; lpAbortProc: TFNAbortProc): Integer; stdcall;
  15262. {$EXTERNALSYM AbortPath}
  15263. function AbortPath(DC: HDC): BOOL; stdcall;
  15264. {$EXTERNALSYM ArcTo}
  15265. function ArcTo(DC: HDC; RLeft, RTop, RRight, RBottom: Integer;
  15266.   X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  15267. {$EXTERNALSYM BeginPath}
  15268. function BeginPath(DC: HDC): BOOL; stdcall;
  15269. {$EXTERNALSYM CloseFigure}
  15270. function CloseFigure(DC: HDC): BOOL; stdcall;
  15271. {$EXTERNALSYM EndPath}
  15272. function EndPath(DC: HDC): BOOL; stdcall;
  15273. {$EXTERNALSYM FillPath}
  15274. function FillPath(DC: HDC): BOOL; stdcall;
  15275. {$EXTERNALSYM FlattenPath}
  15276. function FlattenPath(DC: HDC): BOOL; stdcall;
  15277. {$EXTERNALSYM GetPath}
  15278. function GetPath(DC: HDC; var Points, Types; nSize: Integer): Integer; stdcall;
  15279. {$EXTERNALSYM PathToRegion}
  15280. function PathToRegion(DC: HDC): HRGN; stdcall;
  15281. {$EXTERNALSYM PolyDraw}
  15282. function PolyDraw(DC: HDC; const Points, Types; cCount: Integer): BOOL; stdcall;
  15283. {$EXTERNALSYM SelectClipPath}
  15284. function SelectClipPath(DC: HDC; Mode: Integer): BOOL; stdcall;
  15285. {$EXTERNALSYM SetArcDirection}
  15286. function SetArcDirection(DC: HDC; Direction: Integer): Integer; stdcall;
  15287. {$EXTERNALSYM SetMiterLimit}
  15288. function SetMiterLimit(DC: HDC; NewLimit: Single; OldLimit: PSingle): BOOL; stdcall;
  15289. {$EXTERNALSYM StrokeAndFillPath}
  15290. function StrokeAndFillPath(DC: HDC): BOOL; stdcall;
  15291. {$EXTERNALSYM StrokePath}
  15292. function StrokePath(DC: HDC): BOOL; stdcall;
  15293. {$EXTERNALSYM WidenPath}
  15294. function WidenPath(DC: HDC): BOOL; stdcall;
  15295. {$EXTERNALSYM ExtCreatePen}
  15296. function ExtCreatePen(PenStyle, Width: DWORD; const Brush: TLogBrush;
  15297.   StyleCount: DWORD; Style: Pointer): HPEN; stdcall;
  15298. {$EXTERNALSYM GetMiterLimit}
  15299. function GetMiterLimit(DC: HDC; var Limit: Single): BOOL; stdcall;
  15300. {$EXTERNALSYM GetArcDirection}
  15301. function GetArcDirection(DC: HDC): Integer; stdcall;
  15302. {$EXTERNALSYM GetObjectA}
  15303. function GetObjectA(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  15304. {$EXTERNALSYM GetObjectW}
  15305. function GetObjectW(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  15306. {$EXTERNALSYM GetObject}
  15307. function GetObject(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  15308. {$EXTERNALSYM MoveToEx}
  15309. function MoveToEx(DC: HDC; p2, p3: Integer; p4: PPoint): BOOL; stdcall;
  15310. {$EXTERNALSYM TextOutA}
  15311. function TextOutA(DC: HDC; X, Y: Integer; Str: PAnsiChar; Count: Integer): BOOL; stdcall;
  15312. {$EXTERNALSYM TextOutW}
  15313. function TextOutW(DC: HDC; X, Y: Integer; Str: PWideChar; Count: Integer): BOOL; stdcall;
  15314. {$EXTERNALSYM TextOut}
  15315. function TextOut(DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): BOOL; stdcall;
  15316. {$EXTERNALSYM ExtTextOutA}
  15317. function ExtTextOutA(DC: HDC; X, Y: Integer; Options: Longint;
  15318.   Rect: PRect; Str: PAnsiChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  15319. {$EXTERNALSYM ExtTextOutW}
  15320. function ExtTextOutW(DC: HDC; X, Y: Integer; Options: Longint;
  15321.   Rect: PRect; Str: PWideChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  15322. {$EXTERNALSYM ExtTextOut}
  15323. function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
  15324.   Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  15325. {$EXTERNALSYM PolyTextOutA}
  15326. function PolyTextOutA(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  15327. {$EXTERNALSYM PolyTextOutW}
  15328. function PolyTextOutW(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  15329. {$EXTERNALSYM PolyTextOut}
  15330. function PolyTextOut(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  15331. {$EXTERNALSYM CreatePolygonRgn}
  15332. function CreatePolygonRgn(const Points; Count, FillMode: Integer): HRGN; stdcall;
  15333. {$EXTERNALSYM DPtoLP}
  15334. function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  15335. {$EXTERNALSYM LPtoDP}
  15336. function LPtoDP(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  15337. {$EXTERNALSYM Polygon}
  15338. function Polygon(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  15339. {$EXTERNALSYM Polyline}
  15340. function Polyline(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  15341. {$EXTERNALSYM PolyBezier}
  15342. function PolyBezier(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  15343. {$EXTERNALSYM PolyBezierTo}
  15344. function PolyBezierTo(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  15345. {$EXTERNALSYM PolyLineTo}
  15346. function PolyLineTo(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  15347. {$EXTERNALSYM SetViewportExtEx}
  15348. function SetViewportExtEx(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
  15349. {$EXTERNALSYM SetViewportOrgEx}
  15350. function SetViewportOrgEx(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
  15351. {$EXTERNALSYM SetWindowExtEx}
  15352. function SetWindowExtEx(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
  15353. {$EXTERNALSYM SetWindowOrgEx}
  15354. function SetWindowOrgEx(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
  15355. {$EXTERNALSYM OffsetViewportOrgEx}
  15356. function OffsetViewportOrgEx(DC: HDC; X, Y: Integer; var Points): BOOL; stdcall;
  15357. {$EXTERNALSYM OffsetWindowOrgEx}
  15358. function OffsetWindowOrgEx(DC: HDC; X, Y: Integer; var Points): BOOL; stdcall;
  15359. {$EXTERNALSYM ScaleViewportExtEx}
  15360. function ScaleViewportExtEx(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
  15361. {$EXTERNALSYM ScaleWindowExtEx}
  15362. function ScaleWindowExtEx(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
  15363. {$EXTERNALSYM SetBitmapDimensionEx}
  15364. function SetBitmapDimensionEx(hBitmap: HBITMAP; Width, Height: Integer; Size: PSize): BOOL; stdcall;
  15365. {$EXTERNALSYM SetBrushOrgEx}
  15366. function SetBrushOrgEx(DC: HDC; X, Y: Integer; PrevPt: PPoint): BOOL; stdcall;
  15367. {$EXTERNALSYM GetTextFaceA}
  15368. function GetTextFaceA(DC: HDC; Count: Integer; Buffer: PAnsiChar): Integer; stdcall;
  15369. {$EXTERNALSYM GetTextFaceW}
  15370. function GetTextFaceW(DC: HDC; Count: Integer; Buffer: PWideChar): Integer; stdcall;
  15371. {$EXTERNALSYM GetTextFace}
  15372. function GetTextFace(DC: HDC; Count: Integer; Buffer: PChar): Integer; stdcall;
  15373.  
  15374. const
  15375.   {$EXTERNALSYM FONTMAPPER_MAX}
  15376.   FONTMAPPER_MAX = 10;
  15377.  
  15378. type
  15379.   PKerningPair = ^TKerningPair;
  15380.   {$EXTERNALSYM tagKERNINGPAIR}
  15381.   tagKERNINGPAIR = packed record
  15382.     wFirst: Word;
  15383.     wSecond: Word;
  15384.     iKernAmount: Integer;
  15385.   end;
  15386.   TKerningPair = tagKERNINGPAIR;
  15387.   {$EXTERNALSYM KERNINGPAIR}
  15388.   KERNINGPAIR = tagKERNINGPAIR;
  15389.  
  15390. {$EXTERNALSYM GetKerningPairs}
  15391. function GetKerningPairs(DC: HDC; Count: DWORD; var KerningPairs): DWORD; stdcall;
  15392. {$EXTERNALSYM GetDCOrgEx}
  15393. function GetDCOrgEx(DC: HDC; var Origin: TPoint): BOOL; stdcall;
  15394. {$EXTERNALSYM UnrealizeObject}
  15395. function UnrealizeObject(hGDIObj: HGDIOBJ): BOOL; stdcall;
  15396. {$EXTERNALSYM GdiFlush}
  15397. function GdiFlush: BOOL; stdcall;
  15398. {$EXTERNALSYM GdiSetBatchLimit}
  15399. function GdiSetBatchLimit(Limit: DWORD): DWORD; stdcall;
  15400. {$EXTERNALSYM GdiGetBatchLimit}
  15401. function GdiGetBatchLimit: DWORD; stdcall;
  15402.  
  15403. const
  15404.   {$EXTERNALSYM ICM_OFF}
  15405.   ICM_OFF = 1;
  15406.   {$EXTERNALSYM ICM_ON}
  15407.   ICM_ON = 2;
  15408.   {$EXTERNALSYM ICM_QUERY}
  15409.   ICM_QUERY = 3;
  15410.  
  15411.   ICM_ADDPROFILE = 1; { removed in 4.0 SDK }
  15412.   ICM_DELETEPROFILE = 2; { removed in 4.0 SDK }
  15413.   ICM_QUERYPROFILE = 3; { removed in 4.0 SDK }
  15414.   ICM_SETDEFAULTPROFILE = 4; { removed in 4.0 SDK }
  15415.   ICM_REGISTERICMATCHER = 5; { removed in 4.0 SDK }
  15416.   ICM_UNREGISTERICMATCHER = 6; { removed in 4.0 SDK }
  15417.   ICM_QUERYMATCH = 7; { removed in 4.0 SDK }
  15418.  
  15419. {$EXTERNALSYM SetICMMode}
  15420. function SetICMMode(DC: HDC; Mode: Integer): Integer; stdcall;
  15421. {$EXTERNALSYM CheckColorsInGamut}
  15422. function CheckColorsInGamut(DC: HDC; var RGBQuads, Results; Count: DWORD): BOOL; stdcall;
  15423. {$EXTERNALSYM GetColorSpace}
  15424. function GetColorSpace(DC: HDC): THandle; stdcall;
  15425. {$EXTERNALSYM GetLogColorSpaceA}
  15426. function GetLogColorSpaceA(p1: HCOLORSPACE; var ColorSpace: TLogColorSpaceA; Size: DWORD): BOOL; stdcall;
  15427. {$EXTERNALSYM GetLogColorSpaceW}
  15428. function GetLogColorSpaceW(p1: HCOLORSPACE; var ColorSpace: TLogColorSpaceW; Size: DWORD): BOOL; stdcall;
  15429. {$EXTERNALSYM GetLogColorSpace}
  15430. function GetLogColorSpace(p1: HCOLORSPACE; var ColorSpace: TLogColorSpace; Size: DWORD): BOOL; stdcall;
  15431. {$EXTERNALSYM CreateColorSpaceA}
  15432. function CreateColorSpaceA(var ColorSpace: TLogColorSpaceA): HCOLORSPACE; stdcall;
  15433. {$EXTERNALSYM CreateColorSpaceW}
  15434. function CreateColorSpaceW(var ColorSpace: TLogColorSpaceW): HCOLORSPACE; stdcall;
  15435. {$EXTERNALSYM CreateColorSpace}
  15436. function CreateColorSpace(var ColorSpace: TLogColorSpace): HCOLORSPACE; stdcall;
  15437. {$EXTERNALSYM SetColorSpace}
  15438. function SetColorSpace(DC: HDC; ColorSpace: HCOLORSPACE): BOOL; stdcall;
  15439. {$EXTERNALSYM DeleteColorSpace}
  15440. function DeleteColorSpace(ColorSpace: HCOLORSPACE): BOOL; stdcall;
  15441. {$EXTERNALSYM GetICMProfileA}
  15442. function GetICMProfileA(DC: HDC; var Size: DWORD; Name: PAnsiChar): BOOL; stdcall;
  15443. {$EXTERNALSYM GetICMProfileW}
  15444. function GetICMProfileW(DC: HDC; var Size: DWORD; Name: PWideChar): BOOL; stdcall;
  15445. {$EXTERNALSYM GetICMProfile}
  15446. function GetICMProfile(DC: HDC; var Size: DWORD; Name: PChar): BOOL; stdcall;
  15447. {$EXTERNALSYM SetICMProfileA}
  15448. function SetICMProfileA(DC: HDC; Name: PAnsiChar): BOOL; stdcall;
  15449. {$EXTERNALSYM SetICMProfileW}
  15450. function SetICMProfileW(DC: HDC; Name: PWideChar): BOOL; stdcall;
  15451. {$EXTERNALSYM SetICMProfile}
  15452. function SetICMProfile(DC: HDC; Name: PChar): BOOL; stdcall;
  15453. {$EXTERNALSYM GetDeviceGammaRamp}
  15454. function GetDeviceGammaRamp(DC: HDC; var Ramp): BOOL; stdcall;
  15455. {$EXTERNALSYM SetDeviceGammaRamp}
  15456. function SetDeviceGammaRamp(DC: HDC; var Ramp): BOOL; stdcall;
  15457. {$EXTERNALSYM ColorMatchToTarget}
  15458. function ColorMatchToTarget(DC: HDC; Target: HDC; Action: DWORD): BOOL; stdcall;
  15459.  
  15460. type
  15461. {$IFDEF STRICT}
  15462.   TFNICMEnumProc = function (p1: LPTSTR; p2: LPARAM): Integer stdcall;
  15463. {$ELSE}
  15464.   TFNICMEnumProc = TFarProc;
  15465. {$ENDIF}
  15466.  
  15467. {$EXTERNALSYM EnumICMProfilesA}
  15468. function EnumICMProfilesA(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  15469. {$EXTERNALSYM EnumICMProfilesW}
  15470. function EnumICMProfilesW(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  15471. {$EXTERNALSYM EnumICMProfiles}
  15472. function EnumICMProfiles(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  15473.  
  15474. const
  15475.   {$EXTERNALSYM ENHMETA_SIGNATURE}
  15476.   ENHMETA_SIGNATURE = $464D4520;  { Enhanced metafile constants. }
  15477.  
  15478. { Stock object flag used in the object handle index in the enhanced
  15479.   metafile records.
  15480.   E.g. The object handle index (META_STOCK_OBJECT or BLACK_BRUSH)
  15481.   represents the stock object BLACK_BRUSH. }
  15482.  
  15483.   {$EXTERNALSYM ENHMETA_STOCK_OBJECT}
  15484.   ENHMETA_STOCK_OBJECT = $80000000;
  15485.  
  15486. { Enhanced metafile record types.}
  15487.  
  15488.   {$EXTERNALSYM EMR_HEADER}
  15489.   EMR_HEADER = 1;
  15490.   {$EXTERNALSYM EMR_POLYBEZIER}
  15491.   EMR_POLYBEZIER = 2;
  15492.   {$EXTERNALSYM EMR_POLYGON}
  15493.   EMR_POLYGON = 3;
  15494.   {$EXTERNALSYM EMR_POLYLINE}
  15495.   EMR_POLYLINE = 4;
  15496.   {$EXTERNALSYM EMR_POLYBEZIERTO}
  15497.   EMR_POLYBEZIERTO = 5;
  15498.   {$EXTERNALSYM EMR_POLYLINETO}
  15499.   EMR_POLYLINETO = 6;
  15500.   {$EXTERNALSYM EMR_POLYPOLYLINE}
  15501.   EMR_POLYPOLYLINE = 7;
  15502.   {$EXTERNALSYM EMR_POLYPOLYGON}
  15503.   EMR_POLYPOLYGON = 8;
  15504.   {$EXTERNALSYM EMR_SETWINDOWEXTEX}
  15505.   EMR_SETWINDOWEXTEX = 9;
  15506.   {$EXTERNALSYM EMR_SETWINDOWORGEX}
  15507.   EMR_SETWINDOWORGEX = 10;
  15508.   {$EXTERNALSYM EMR_SETVIEWPORTEXTEX}
  15509.   EMR_SETVIEWPORTEXTEX = 11;
  15510.   {$EXTERNALSYM EMR_SETVIEWPORTORGEX}
  15511.   EMR_SETVIEWPORTORGEX = 12;
  15512.   {$EXTERNALSYM EMR_SETBRUSHORGEX}
  15513.   EMR_SETBRUSHORGEX = 13;
  15514.   {$EXTERNALSYM EMR_EOF}
  15515.   EMR_EOF = 14;
  15516.   {$EXTERNALSYM EMR_SETPIXELV}
  15517.   EMR_SETPIXELV = 15;
  15518.   {$EXTERNALSYM EMR_SETMAPPERFLAGS}
  15519.   EMR_SETMAPPERFLAGS = $10;
  15520.   {$EXTERNALSYM EMR_SETMAPMODE}
  15521.   EMR_SETMAPMODE = 17;
  15522.   {$EXTERNALSYM EMR_SETBKMODE}
  15523.   EMR_SETBKMODE = 18;
  15524.   {$EXTERNALSYM EMR_SETPOLYFILLMODE}
  15525.   EMR_SETPOLYFILLMODE = 19;
  15526.   {$EXTERNALSYM EMR_SETROP2}
  15527.   EMR_SETROP2 = 20;
  15528.   {$EXTERNALSYM EMR_SETSTRETCHBLTMODE}
  15529.   EMR_SETSTRETCHBLTMODE = 21;
  15530.   {$EXTERNALSYM EMR_SETTEXTALIGN}
  15531.   EMR_SETTEXTALIGN = 22;
  15532.   {$EXTERNALSYM EMR_SETCOLORADJUSTMENT}
  15533.   EMR_SETCOLORADJUSTMENT = 23;
  15534.   {$EXTERNALSYM EMR_SETTEXTCOLOR}
  15535.   EMR_SETTEXTCOLOR = 24;
  15536.   {$EXTERNALSYM EMR_SETBKCOLOR}
  15537.   EMR_SETBKCOLOR = 25;
  15538.   {$EXTERNALSYM EMR_OFFSETCLIPRGN}
  15539.   EMR_OFFSETCLIPRGN = 26;
  15540.   {$EXTERNALSYM EMR_MOVETOEX}
  15541.   EMR_MOVETOEX = 27;
  15542.   {$EXTERNALSYM EMR_SETMETARGN}
  15543.   EMR_SETMETARGN = 28;
  15544.   {$EXTERNALSYM EMR_EXCLUDECLIPRECT}
  15545.   EMR_EXCLUDECLIPRECT = 29;
  15546.   {$EXTERNALSYM EMR_INTERSECTCLIPRECT}
  15547.   EMR_INTERSECTCLIPRECT = 30;
  15548.   {$EXTERNALSYM EMR_SCALEVIEWPORTEXTEX}
  15549.   EMR_SCALEVIEWPORTEXTEX = 31;
  15550.   {$EXTERNALSYM EMR_SCALEWINDOWEXTEX}
  15551.   EMR_SCALEWINDOWEXTEX = 32;
  15552.   {$EXTERNALSYM EMR_SAVEDC}
  15553.   EMR_SAVEDC = 33;
  15554.   {$EXTERNALSYM EMR_RESTOREDC}
  15555.   EMR_RESTOREDC = 34;
  15556.   {$EXTERNALSYM EMR_SETWORLDTRANSFORM}
  15557.   EMR_SETWORLDTRANSFORM = 35;
  15558.   {$EXTERNALSYM EMR_MODIFYWORLDTRANSFORM}
  15559.   EMR_MODIFYWORLDTRANSFORM = 36;
  15560.   {$EXTERNALSYM EMR_SELECTOBJECT}
  15561.   EMR_SELECTOBJECT = 37;
  15562.   {$EXTERNALSYM EMR_CREATEPEN}
  15563.   EMR_CREATEPEN = 38;
  15564.   {$EXTERNALSYM EMR_CREATEBRUSHINDIRECT}
  15565.   EMR_CREATEBRUSHINDIRECT = 39;
  15566.   {$EXTERNALSYM EMR_DELETEOBJECT}
  15567.   EMR_DELETEOBJECT = 40;
  15568.   {$EXTERNALSYM EMR_ANGLEARC}
  15569.   EMR_ANGLEARC = 41;
  15570.   {$EXTERNALSYM EMR_ELLIPSE}
  15571.   EMR_ELLIPSE = 42;
  15572.   {$EXTERNALSYM EMR_RECTANGLE}
  15573.   EMR_RECTANGLE = 43;
  15574.   {$EXTERNALSYM EMR_ROUNDRECT}
  15575.   EMR_ROUNDRECT = 44;
  15576.   {$EXTERNALSYM EMR_ARC}
  15577.   EMR_ARC = 45;
  15578.   {$EXTERNALSYM EMR_CHORD}
  15579.   EMR_CHORD = 46;
  15580.   {$EXTERNALSYM EMR_PIE}
  15581.   EMR_PIE = 47;
  15582.   {$EXTERNALSYM EMR_SELECTPALETTE}
  15583.   EMR_SELECTPALETTE = 48;
  15584.   {$EXTERNALSYM EMR_CREATEPALETTE}
  15585.   EMR_CREATEPALETTE = 49;
  15586.   {$EXTERNALSYM EMR_SETPALETTEENTRIES}
  15587.   EMR_SETPALETTEENTRIES = 50;
  15588.   {$EXTERNALSYM EMR_RESIZEPALETTE}
  15589.   EMR_RESIZEPALETTE = 51;
  15590.   {$EXTERNALSYM EMR_REALIZEPALETTE}
  15591.   EMR_REALIZEPALETTE = 52;
  15592.   {$EXTERNALSYM EMR_EXTFLOODFILL}
  15593.   EMR_EXTFLOODFILL = 53;
  15594.   {$EXTERNALSYM EMR_LINETO}
  15595.   EMR_LINETO = 54;
  15596.   {$EXTERNALSYM EMR_ARCTO}
  15597.   EMR_ARCTO = 55;
  15598.   {$EXTERNALSYM EMR_POLYDRAW}
  15599.   EMR_POLYDRAW = 56;
  15600.   {$EXTERNALSYM EMR_SETARCDIRECTION}
  15601.   EMR_SETARCDIRECTION = 57;
  15602.   {$EXTERNALSYM EMR_SETMITERLIMIT}
  15603.   EMR_SETMITERLIMIT = 58;
  15604.   {$EXTERNALSYM EMR_BEGINPATH}
  15605.   EMR_BEGINPATH = 59;
  15606.   {$EXTERNALSYM EMR_ENDPATH}
  15607.   EMR_ENDPATH = 60;
  15608.   {$EXTERNALSYM EMR_CLOSEFIGURE}
  15609.   EMR_CLOSEFIGURE = 61;
  15610.   {$EXTERNALSYM EMR_FILLPATH}
  15611.   EMR_FILLPATH = 62;
  15612.   {$EXTERNALSYM EMR_STROKEANDFILLPATH}
  15613.   EMR_STROKEANDFILLPATH = 63;
  15614.   {$EXTERNALSYM EMR_STROKEPATH}
  15615.   EMR_STROKEPATH = $40;
  15616.   {$EXTERNALSYM EMR_FLATTENPATH}
  15617.   EMR_FLATTENPATH = 65;
  15618.   {$EXTERNALSYM EMR_WIDENPATH}
  15619.   EMR_WIDENPATH = 66;
  15620.   {$EXTERNALSYM EMR_SELECTCLIPPATH}
  15621.   EMR_SELECTCLIPPATH = 67;
  15622.   {$EXTERNALSYM EMR_ABORTPATH}
  15623.   EMR_ABORTPATH = 68;
  15624.  
  15625.   {$EXTERNALSYM EMR_GDICOMMENT}
  15626.   EMR_GDICOMMENT = 70;
  15627.   {$EXTERNALSYM EMR_FILLRGN}
  15628.   EMR_FILLRGN = 71;
  15629.   {$EXTERNALSYM EMR_FRAMERGN}
  15630.   EMR_FRAMERGN = 72;
  15631.   {$EXTERNALSYM EMR_INVERTRGN}
  15632.   EMR_INVERTRGN = 73;
  15633.   {$EXTERNALSYM EMR_PAINTRGN}
  15634.   EMR_PAINTRGN = 74;
  15635.   {$EXTERNALSYM EMR_EXTSELECTCLIPRGN}
  15636.   EMR_EXTSELECTCLIPRGN = 75;
  15637.   {$EXTERNALSYM EMR_BITBLT}
  15638.   EMR_BITBLT = 76;
  15639.   {$EXTERNALSYM EMR_STRETCHBLT}
  15640.   EMR_STRETCHBLT = 77;
  15641.   {$EXTERNALSYM EMR_MASKBLT}
  15642.   EMR_MASKBLT = 78;
  15643.   {$EXTERNALSYM EMR_PLGBLT}
  15644.   EMR_PLGBLT = 79;
  15645.   {$EXTERNALSYM EMR_SETDIBITSTODEVICE}
  15646.   EMR_SETDIBITSTODEVICE = 80;
  15647.   {$EXTERNALSYM EMR_STRETCHDIBITS}
  15648.   EMR_STRETCHDIBITS = 81;
  15649.   {$EXTERNALSYM EMR_EXTCREATEFONTINDIRECTW}
  15650.   EMR_EXTCREATEFONTINDIRECTW = 82;
  15651.   {$EXTERNALSYM EMR_EXTTEXTOUTA}
  15652.   EMR_EXTTEXTOUTA = 83;
  15653.   {$EXTERNALSYM EMR_EXTTEXTOUTW}
  15654.   EMR_EXTTEXTOUTW = 84;
  15655.   {$EXTERNALSYM EMR_POLYBEZIER16}
  15656.   EMR_POLYBEZIER16 = 85;
  15657.   {$EXTERNALSYM EMR_POLYGON16}
  15658.   EMR_POLYGON16 = 86;
  15659.   {$EXTERNALSYM EMR_POLYLINE16}
  15660.   EMR_POLYLINE16 = 87;
  15661.   {$EXTERNALSYM EMR_POLYBEZIERTO16}
  15662.   EMR_POLYBEZIERTO16 = 88;
  15663.   {$EXTERNALSYM EMR_POLYLINETO16}
  15664.   EMR_POLYLINETO16 = 89;
  15665.   {$EXTERNALSYM EMR_POLYPOLYLINE16}
  15666.   EMR_POLYPOLYLINE16 = 90;
  15667.   {$EXTERNALSYM EMR_POLYPOLYGON16}
  15668.   EMR_POLYPOLYGON16 = 91;
  15669.   {$EXTERNALSYM EMR_POLYDRAW16}
  15670.   EMR_POLYDRAW16 = 92;
  15671.   {$EXTERNALSYM EMR_CREATEMONOBRUSH}
  15672.   EMR_CREATEMONOBRUSH = 93;
  15673.   {$EXTERNALSYM EMR_CREATEDIBPATTERNBRUSHPT}
  15674.   EMR_CREATEDIBPATTERNBRUSHPT = 94;
  15675.   {$EXTERNALSYM EMR_EXTCREATEPEN}
  15676.   EMR_EXTCREATEPEN = 95;
  15677.   {$EXTERNALSYM EMR_POLYTEXTOUTA}
  15678.   EMR_POLYTEXTOUTA = 96;
  15679.   {$EXTERNALSYM EMR_POLYTEXTOUTW}
  15680.   EMR_POLYTEXTOUTW = 97;
  15681.   {$EXTERNALSYM EMR_SETICMMODE}
  15682.   EMR_SETICMMODE = 98;
  15683.   {$EXTERNALSYM EMR_CREATECOLORSPACE}
  15684.   EMR_CREATECOLORSPACE = 99;
  15685.   {$EXTERNALSYM EMR_SETCOLORSPACE}
  15686.   EMR_SETCOLORSPACE = 100;
  15687.   {$EXTERNALSYM EMR_DELETECOLORSPACE}
  15688.   EMR_DELETECOLORSPACE = 101;
  15689.   {$EXTERNALSYM EMR_GLSRECORD}
  15690.   EMR_GLSRECORD = 102;
  15691.   {$EXTERNALSYM EMR_GLSBOUNDEDRECORD}
  15692.   EMR_GLSBOUNDEDRECORD = 103;
  15693.   {$EXTERNALSYM EMR_PIXELFORMAT}
  15694.   EMR_PIXELFORMAT = 104;
  15695.   {$EXTERNALSYM EMR_MAX}
  15696.   EMR_MAX = 104;
  15697.   {$EXTERNALSYM EMR_MIN}
  15698.   EMR_MIN = 1;
  15699.  
  15700.  
  15701. type
  15702.   { Base record type for the enhanced metafile.}
  15703.   {$EXTERNALSYM PEMR}
  15704.   PEMR = ^TEMR;
  15705.   {$EXTERNALSYM tagEMR}
  15706.   tagEMR = packed record
  15707.     iType: DWORD; { Enhanced metafile record type}
  15708.     nSize: DWORD; { Length of the record in bytes.}
  15709.                   { This must be a multiple of 4.}
  15710.   end;
  15711.   TEMR = tagEMR;
  15712.   {$EXTERNALSYM EMR}
  15713.   EMR = tagEMR;
  15714.  
  15715.   { Base text record type for the enhanced metafile.}
  15716.   PEMRText = ^TEMRText;
  15717.   {$EXTERNALSYM tagEMRTEXT}
  15718.   tagEMRTEXT = packed record
  15719.     ptlReference: TPoint;
  15720.     nChars: DWORD;
  15721.     offString: DWORD; { Offset to the string}
  15722.     fOptions: DWORD;
  15723.     rcl: TRect;
  15724.     offDx: DWORD;     { Offset to the inter-character spacing array.}
  15725.                       { This is always given.}
  15726.   end;
  15727.   TEMRText = tagEMRTEXT;
  15728.   {$EXTERNALSYM EMRTEXT}
  15729.   EMRTEXT = tagEMRTEXT;
  15730.  
  15731.  
  15732.   { Record structures for the enhanced metafile.}
  15733.   PAbortPath = ^TAbortPath;
  15734.   {$EXTERNALSYM tagABORTPATH}
  15735.   tagABORTPATH = packed record
  15736.     emr: TEMR;
  15737.   end;
  15738.   TAbortPath = tagABORTPATH;
  15739.   {$EXTERNALSYM EMRABORTPATH}
  15740.   EMRABORTPATH = tagABORTPATH;
  15741.   TEMRAbortPath = TAbortPath;
  15742.   PEMRAbortPath = PAbortPath;
  15743.   TEMRBeginPath = TAbortPath;
  15744.   PEMRBeginPath = PAbortPath;
  15745.   TEMREndPath = TAbortPath;
  15746.   PEMREndPath = PAbortPath;
  15747.   TEMRCloseFigure = TAbortPath;
  15748.   PEMRCloseFigure = PAbortPath;
  15749.   TEMRFlattenPath = TAbortPath;
  15750.   PEMRFlattenPath = PAbortPath;
  15751.   TEMRWidenPath = TAbortPath;
  15752.   PEMRWidenPath = PAbortPath;
  15753.   TEMRSetMetaRgn = TAbortPath;
  15754.   PEMRSetMetaRgn = PAbortPath;
  15755.   TEMRSaveDC = TAbortPath;
  15756.   PEMRSaveDC = PAbortPath;
  15757.   TEMRRealizePalette = TAbortPath;
  15758.   PEMRRealizePalette = PAbortPath;
  15759.  
  15760.   PEMRSelectclippath = ^TEMRSelectClipPath;
  15761.   {$EXTERNALSYM tagEMRSELECTCLIPPATH}
  15762.   tagEMRSELECTCLIPPATH = packed record
  15763.     emr: TEMR;
  15764.     iMode: DWORD;
  15765.   end;
  15766.   TEMRSelectClipPath = tagEMRSELECTCLIPPATH;
  15767.   {$EXTERNALSYM EMRSELECTCLIPPATH}
  15768.   EMRSELECTCLIPPATH = tagEMRSELECTCLIPPATH;
  15769.   TEMRSetBkMode = TEMRSelectClipPath;
  15770.   PEMRSetBkMode = PEMRSelectClipPath;
  15771.   TEMRSetMapMode = TEMRSelectClipPath;
  15772.   PEMRSetMapMode = PEMRSelectClipPath;
  15773.   TEMRSetPolyFillMode = TEMRSelectClipPath;
  15774.   PEMRSetPolyFillMode = PEMRSelectClipPath;
  15775.   TEMRSetRop2 = TEMRSelectClipPath;
  15776.   PEMRSetRop2 = PEMRSelectClipPath;
  15777.   TEMRSetStretchBltMode = TEMRSelectClipPath;
  15778.   PEMRSetStretchBltMode = PEMRSelectClipPath;
  15779.   TEMRSetICMMode = TEMRSelectClipPath;
  15780.   PEMRSetICMMode = PEMRSelectClipPath;
  15781.   TEMRSetTextAlign = TEMRSelectClipPath;
  15782.   PEMRSetTextAlign = PEMRSelectClipPath;
  15783.  
  15784.   PEMRSetMiterLimit = ^TEMRSetMiterLimit;
  15785.   {$EXTERNALSYM tagEMRSETMITERLIMIT}
  15786.   tagEMRSETMITERLIMIT = packed record
  15787.     emr: TEMR;
  15788.     eMiterLimit: Single;
  15789.   end;
  15790.   TEMRSetMiterLimit = tagEMRSETMITERLIMIT;
  15791.   {$EXTERNALSYM EMRSETMITERLIMIT}
  15792.   EMRSETMITERLIMIT = tagEMRSETMITERLIMIT;
  15793.  
  15794.   PEMRRestoreDC = ^TEMRRestoreDC;
  15795.   {$EXTERNALSYM tagEMRRESTOREDC}
  15796.   tagEMRRESTOREDC = packed record
  15797.     emr: TEMR;
  15798.     iRelative: Longint;   { Specifies a relative instance}
  15799.   end;
  15800.   TEMRRestoreDC = tagEMRRESTOREDC;
  15801.   {$EXTERNALSYM EMRRESTOREDC}
  15802.   EMRRESTOREDC = tagEMRRESTOREDC;
  15803.  
  15804.   PEMRSetArcDirection = ^TEMRSetArcDirection;
  15805.   {$EXTERNALSYM tagEMRSETARCDIRECTION}
  15806.   tagEMRSETARCDIRECTION = packed record
  15807.     emr: TEMR;
  15808.     iArcDirection: DWORD; { Specifies the arc direction in the advanced graphics mode.}
  15809.   end;
  15810.   TEMRSetArcDirection = tagEMRSETARCDIRECTION;
  15811.   {$EXTERNALSYM EMRSETARCDIRECTION}
  15812.   EMRSETARCDIRECTION = tagEMRSETARCDIRECTION;
  15813.  
  15814.   PEMRSetMapperFlags = ^TEMRSetMapperFlags;
  15815.   {$EXTERNALSYM tagEMRSETMAPPERFLAGS}
  15816.   tagEMRSETMAPPERFLAGS = packed record
  15817.     emr: TEMR;
  15818.     dwFlags: DWORD;
  15819.   end;
  15820.   TEMRSetMapperFlags = tagEMRSETMAPPERFLAGS;
  15821.   {$EXTERNALSYM EMRSETMAPPERFLAGS}
  15822.   EMRSETMAPPERFLAGS = tagEMRSETMAPPERFLAGS;
  15823.  
  15824.   PEMRSetTextColor = ^TEMRSetTextColor;
  15825.   {$EXTERNALSYM tagEMRSETTEXTCOLOR}
  15826.   tagEMRSETTEXTCOLOR = packed record
  15827.     emr: TEMR;
  15828.     crColor: COLORREF;
  15829.   end;
  15830.   TEMRSetTextColor = tagEMRSETTEXTCOLOR;
  15831.   {$EXTERNALSYM EMRSETTEXTCOLOR}
  15832.   EMRSETTEXTCOLOR = tagEMRSETTEXTCOLOR;
  15833.   TEMRSetBkColor = TEMRSetTextColor;
  15834.   PEMRSetBkColor = PEMRSetTextColor;
  15835.  
  15836.   PEMRSelectObject = ^TEMRSelectObject;
  15837.   {$EXTERNALSYM tagEMRSELECTOBJECT}
  15838.   tagEMRSELECTOBJECT = packed record
  15839.     emr: TEMR;
  15840.     ihObject: DWORD;   { Object handle index }
  15841.   end;
  15842.   TEMRSelectObject = tagEMRSELECTOBJECT;
  15843.   {$EXTERNALSYM EMRSELECTOBJECT}
  15844.   EMRSELECTOBJECT = tagEMRSELECTOBJECT;
  15845.   EMRDeleteObject = TEMRSelectObject;
  15846.   PEMRDeleteObject = PEMRSelectObject;
  15847.  
  15848.   PEMRSelectColorSpace = ^TEMRSelectColorSpace;
  15849.   {$EXTERNALSYM tagEMRSELECTCOLORSPACE}
  15850.   tagEMRSELECTCOLORSPACE = packed record
  15851.     emr: TEMR;
  15852.     ihCS: DWORD;  { ColorSpace handle index }
  15853.   end;
  15854.   TEMRSelectColorSpace = tagEMRSELECTCOLORSPACE;
  15855.   {$EXTERNALSYM EMRSELECTCOLORSPACE}
  15856.   EMRSELECTCOLORSPACE = tagEMRSELECTCOLORSPACE;
  15857.   EMRDeleteColorSpace = TEMRSelectColorSpace;
  15858.   PEMRDeleteColorSpace = PEMRSelectColorSpace;
  15859.  
  15860.   PEMRSelectPalette = ^TEMRSelectPalette;
  15861.   {$EXTERNALSYM tagEMRSELECTPALETTE}
  15862.   tagEMRSELECTPALETTE = packed record
  15863.     emr: TEMR;
  15864.     ihPal: DWORD;   { Palette handle index, background mode only }
  15865.   end;
  15866.   TEMRSelectPalette = tagEMRSELECTPALETTE;
  15867.   {$EXTERNALSYM EMRSELECTPALETTE}
  15868.   EMRSELECTPALETTE = tagEMRSELECTPALETTE;
  15869.  
  15870.   PEMRResizePalette = ^TEMRResizePalette;
  15871.   {$EXTERNALSYM tagEMRRESIZEPALETTE}
  15872.   tagEMRRESIZEPALETTE = packed record
  15873.     emr: TEMR;
  15874.     ihPal: DWORD;   { Palette handle index }
  15875.     cEntries: DWORD;
  15876.   end;
  15877.   TEMRResizePalette = tagEMRRESIZEPALETTE;
  15878.   {$EXTERNALSYM EMRRESIZEPALETTE}
  15879.   EMRRESIZEPALETTE = tagEMRRESIZEPALETTE;
  15880.  
  15881.   PEMRSetPaletteEntries = ^TEMRSetPaletteEntries;
  15882.   {$EXTERNALSYM tagEMRSETPALETTEENTRIES}
  15883.   tagEMRSETPALETTEENTRIES = packed record
  15884.     emr: TEMR;
  15885.     ihPal: DWORD;      { Palette handle index }
  15886.     iStart: DWORD;
  15887.     cEntries: DWORD;
  15888.     aPalEntries: array[0..0] of TPaletteEntry; { The peFlags fields do not contain any flags }
  15889.   end;
  15890.   TEMRSetPaletteEntries = tagEMRSETPALETTEENTRIES;
  15891.   {$EXTERNALSYM EMRSETPALETTEENTRIES}
  15892.   EMRSETPALETTEENTRIES = tagEMRSETPALETTEENTRIES;
  15893.  
  15894.   PEMRSetColorAdjustment = ^TEMRSetColorAdjustment;
  15895.   {$EXTERNALSYM tagEMRSETCOLORADJUSTMENT}
  15896.   tagEMRSETCOLORADJUSTMENT = packed record
  15897.     emr: TEMR;
  15898.     ColorAdjustment: TColorAdjustment;
  15899.   end;
  15900.   TEMRSetColorAdjustment = tagEMRSETCOLORADJUSTMENT;
  15901.   {$EXTERNALSYM EMRSETCOLORADJUSTMENT}
  15902.   EMRSETCOLORADJUSTMENT = tagEMRSETCOLORADJUSTMENT;
  15903.  
  15904.   PEMRGDIComment = ^TEMRGDIComment;
  15905.   {$EXTERNALSYM tagEMRGDICOMMENT}
  15906.   tagEMRGDICOMMENT = record
  15907.     emr: TEMR;
  15908.     cbData: DWORD;   { Size of data in bytes}
  15909.     Data: array[0..0] of Byte;
  15910.   end;
  15911.   TEMRGDIComment = tagEMRGDICOMMENT;
  15912.   {$EXTERNALSYM EMRGDICOMMENT}
  15913.   EMRGDICOMMENT = tagEMRGDICOMMENT;
  15914.  
  15915.   {$EXTERNALSYM PEMREOF}
  15916.   PEMREOF = ^TEMREOF;
  15917.   {$EXTERNALSYM tagEMREOF}
  15918.   tagEMREOF = packed record
  15919.     emr: TEMR;
  15920.     nPalEntries: DWORD;   { Number of palette entries }
  15921.     offPalEntries: DWORD; { Offset to the palette entries }
  15922.     nSizeLast: DWORD;     { Same as nSize and must be the last DWORD }
  15923.                           { of the record.  The palette entries, }
  15924.                           { if exist, precede this field. }
  15925.   end;
  15926.   TEMREOF = tagEMREOF;
  15927.   {$EXTERNALSYM EMREOF}
  15928.   EMREOF = tagEMREOF;
  15929.  
  15930.   PEMRLineTo = ^TEMRLineTo;
  15931.   {$EXTERNALSYM tagEMRLINETO}
  15932.   tagEMRLINETO = packed record
  15933.     emr: TEMR;
  15934.     ptl: TPoint;
  15935.   end;
  15936.   TEMRLineTo = tagEMRLINETO;
  15937.   {$EXTERNALSYM EMRLINETO}
  15938.   EMRLINETO = tagEMRLINETO;
  15939.   EMRMoveToEx = TEMRLineTo;
  15940.   PEMRMoveToEx = PEMRLineTo;
  15941.  
  15942.   PEMROffsetClipRgn = ^TEMROffsetClipRgn;
  15943.   {$EXTERNALSYM tagEMROFFSETCLIPRGN}
  15944.   tagEMROFFSETCLIPRGN = packed record
  15945.     emr: TEMR;
  15946.     ptlOffset: TPoint;
  15947.   end;
  15948.   TEMROffsetClipRgn = tagEMROFFSETCLIPRGN;
  15949.   {$EXTERNALSYM EMROFFSETCLIPRGN}
  15950.   EMROFFSETCLIPRGN = tagEMROFFSETCLIPRGN;
  15951.  
  15952.   PEMRFillPath = ^TEMRFillPath;
  15953.   {$EXTERNALSYM tagEMRFILLPATH}
  15954.   tagEMRFILLPATH = packed record
  15955.     emr: TEMR;
  15956.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  15957.   end;
  15958.   TEMRFillPath = tagEMRFILLPATH;
  15959.   {$EXTERNALSYM EMRFILLPATH}
  15960.   EMRFILLPATH = tagEMRFILLPATH;
  15961.   EMRStrokeAndFillPath = TEMRFillPath;
  15962.   PEMRStrokeAndFillPath = PEMRFillPath;
  15963.   EMRStrokePath = TEMRFillPath;
  15964.   PEMRStrokePath = PEMRFillPath;
  15965.  
  15966.   PEMRExcludeClipRect = ^TEMRExcludeClipRect;
  15967.   {$EXTERNALSYM tagEMREXCLUDECLIPRECT}
  15968.   tagEMREXCLUDECLIPRECT = packed record
  15969.     emr: TEMR;
  15970.     rclClip: TRect;
  15971.   end;
  15972.   TEMRExcludeClipRect = tagEMREXCLUDECLIPRECT;
  15973.   {$EXTERNALSYM EMREXCLUDECLIPRECT}
  15974.   EMREXCLUDECLIPRECT = tagEMREXCLUDECLIPRECT;
  15975.   EMRIntersectClipRect = TEMRExcludeClipRect;
  15976.   PEMRIntersectClipRect = PEMRExcludeClipRect;
  15977.  
  15978.   PEMRSetViewportOrgEx = ^TEMRSetViewportOrgEx;
  15979.   {$EXTERNALSYM tagEMRSETVIEWPORTORGEX}
  15980.   tagEMRSETVIEWPORTORGEX = packed record
  15981.     emr: TEMR;
  15982.     ptlOrigin: TPoint;
  15983.   end;
  15984.   TEMRSetViewportOrgEx = tagEMRSETVIEWPORTORGEX;
  15985.   {$EXTERNALSYM EMRSETVIEWPORTORGEX}
  15986.   EMRSETVIEWPORTORGEX = tagEMRSETVIEWPORTORGEX;
  15987.   EMRSetWindowOrgEx = TEMRSetViewportOrgEx;
  15988.   PEMRSetWindowOrgEx = PEMRSetViewportOrgEx;
  15989.   EMRSetBrushOrgEx = TEMRSetViewportOrgEx;
  15990.   PEMRSetBrushOrgEx = PEMRSetViewportOrgEx;
  15991.  
  15992.   PEMRSetViewportExtEx = ^TEMRSetViewportExtEx;
  15993.   {$EXTERNALSYM tagEMRSETVIEWPORTEXTEX}
  15994.   tagEMRSETVIEWPORTEXTEX = packed record
  15995.     emr: TEMR;
  15996.     szlExtent: TSize;
  15997.   end;
  15998.   TEMRSetViewportExtEx = tagEMRSETVIEWPORTEXTEX;
  15999.   {$EXTERNALSYM EMRSETVIEWPORTEXTEX}
  16000.   EMRSETVIEWPORTEXTEX = tagEMRSETVIEWPORTEXTEX;
  16001.   EMRSetWindowExtEx = TEMRSetViewportExtEx;
  16002.   PEMRSetWindowExtEx = PEMRSetViewportExtEx;
  16003.  
  16004.   PEMRScaleViewportExtEx = ^TEMRScaleViewportExtEx;
  16005.   {$EXTERNALSYM tagEMRSCALEVIEWPORTEXTEX}
  16006.   tagEMRSCALEVIEWPORTEXTEX = packed record
  16007.     emr: TEMR;
  16008.     xNum: Longint;
  16009.     xDenom: Longint;
  16010.     yNum: Longint;
  16011.     yDenom: Longint;
  16012.   end;
  16013.   TEMRScaleViewportExtEx = tagEMRSCALEVIEWPORTEXTEX;
  16014.   {$EXTERNALSYM EMRSCALEVIEWPORTEXTEX}
  16015.   EMRSCALEVIEWPORTEXTEX = tagEMRSCALEVIEWPORTEXTEX;
  16016.   EMRScaleWindowExtEx = TEMRScaleViewportExtEx;
  16017.   PEMRScaleWindowExtEx = PEMRScaleViewportExtEx;
  16018.  
  16019.   PEMRSetWorldTransform = ^TEMRSetWorldTransform;
  16020.   {$EXTERNALSYM tagEMRSETWORLDTRANSFORM}
  16021.   tagEMRSETWORLDTRANSFORM = packed record
  16022.     emr: TEMR;
  16023.     xform: TXForm;
  16024.   end;
  16025.   TEMRSetWorldTransform = tagEMRSETWORLDTRANSFORM;
  16026.   {$EXTERNALSYM EMRSETWORLDTRANSFORM}
  16027.   EMRSETWORLDTRANSFORM = tagEMRSETWORLDTRANSFORM;
  16028.  
  16029.   PEMRModifyWorldTransform = ^TEMRModifyWorldTransform;
  16030.   {$EXTERNALSYM tagEMRMODIFYWORLDTRANSFORM}
  16031.   tagEMRMODIFYWORLDTRANSFORM = packed record
  16032.     emr: TEMR;
  16033.     xform: TXForm;
  16034.     iMode: DWORD;
  16035.   end;
  16036.   TEMRModifyWorldTransform = tagEMRMODIFYWORLDTRANSFORM;
  16037.   {$EXTERNALSYM EMRMODIFYWORLDTRANSFORM}
  16038.   EMRMODIFYWORLDTRANSFORM = tagEMRMODIFYWORLDTRANSFORM;
  16039.  
  16040.   PEMRSetPixelV = ^TEMRSetPixelV;
  16041.   {$EXTERNALSYM tagEMRSETPIXELV}
  16042.   tagEMRSETPIXELV = packed record
  16043.     emr: TEMR;
  16044.     ptlPixel: TPoint;
  16045.     crColor: COLORREF;
  16046.   end;
  16047.   TEMRSetPixelV = tagEMRSETPIXELV;
  16048.   {$EXTERNALSYM EMRSETPIXELV}
  16049.   EMRSETPIXELV = tagEMRSETPIXELV;
  16050.  
  16051.   PEMRExtFloodFill = ^TEMRExtFloodFill;
  16052.   {$EXTERNALSYM tagEMREXTFLOODFILL}
  16053.   tagEMREXTFLOODFILL = packed record
  16054.     emr: TEMR;
  16055.     ptlStart: TPoint;
  16056.     crColor: COLORREF;
  16057.     iMode: DWORD;
  16058.   end;
  16059.   TEMRExtFloodFill = tagEMREXTFLOODFILL;
  16060.   {$EXTERNALSYM EMREXTFLOODFILL}
  16061.   EMREXTFLOODFILL = tagEMREXTFLOODFILL;
  16062.  
  16063.   PEMREllipse = ^TEMREllipse;
  16064.   {$EXTERNALSYM tagEMRELLIPSE}
  16065.   tagEMRELLIPSE = packed record
  16066.     emr: TEMR;
  16067.     rclBox: TRect; { Inclusive-inclusive bounding rectangle}
  16068.   end;
  16069.   TEMREllipse = tagEMRELLIPSE;
  16070.   {$EXTERNALSYM EMRELLIPSE}
  16071.   EMRELLIPSE = tagEMRELLIPSE;
  16072.   EMRRectangle = TEMREllipse;
  16073.   PEMRRectangle = PEMREllipse;
  16074.  
  16075.   PEMRRoundRect = ^TEMRRoundRect;
  16076.   {$EXTERNALSYM tagEMRROUNDRECT}
  16077.   tagEMRROUNDRECT = packed record
  16078.     emr: TEMR;
  16079.     rclBox: TRect;     { Inclusive-inclusive bounding rectangle }
  16080.     szlCorner: TSize;
  16081.   end;
  16082.   TEMRRoundRect = tagEMRROUNDRECT;
  16083.   {$EXTERNALSYM EMRROUNDRECT}
  16084.   EMRROUNDRECT = tagEMRROUNDRECT;
  16085.  
  16086.   PEMRArc = ^TEMRArc;
  16087.   {$EXTERNALSYM tagEMRARC}
  16088.   tagEMRARC = packed record
  16089.     emr: TEMR;
  16090.     rclBox: TRect;     { Inclusive-inclusive bounding rectangle }
  16091.     ptlStart: TPoint;
  16092.     ptlEnd: TPoint;
  16093.   end;
  16094.   TEMRArc = tagEMRARC;
  16095.   {$EXTERNALSYM EMRARC}
  16096.   EMRARC = tagEMRARC;
  16097.   EMRArcTo = TEMRArc;
  16098.   PEMRArcTo = PEMRArc;
  16099.   EMRChord = TEMRArc;
  16100.   PEMRChord = PEMRArc;
  16101.   EMRPie = TEMRArc;
  16102.   PEMRPie = PEMRArc;
  16103.  
  16104.   PEMRAngleArc = ^TEMRAngleArc;
  16105.   {$EXTERNALSYM tagEMRANGLEARC}
  16106.   tagEMRANGLEARC = packed record
  16107.     emr: TEMR;
  16108.     ptlCenter: TPoint;
  16109.     nRadius: DWORD;
  16110.     eStartAngle: Single;
  16111.     eSweepAngle: Single;
  16112.   end;
  16113.   TEMRAngleArc = tagEMRANGLEARC;
  16114.   {$EXTERNALSYM EMRANGLEARC}
  16115.   EMRANGLEARC = tagEMRANGLEARC;
  16116.  
  16117.   PEMRPolyline = ^TEMRPolyline;
  16118.   {$EXTERNALSYM tagEMRPOLYLINE}
  16119.   tagEMRPOLYLINE = packed record
  16120.     emr: TEMR;
  16121.     rclBounds: TRect;    { Inclusive-inclusive bounds in device units }
  16122.     cptl: DWORD;
  16123.     aptl: array[0..0] of TPoint;
  16124.   end;
  16125.   TEMRPolyline = tagEMRPOLYLINE;
  16126.   {$EXTERNALSYM EMRPOLYLINE}
  16127.   EMRPOLYLINE = tagEMRPOLYLINE;
  16128.   EMRPolyBezier = TEMRPolyLine;
  16129.   PEMRPolyBezier = PEMRPolyLine;
  16130.   EMRPolyGON = TEMRPolyLine;
  16131.   PEMRPolyGON = PEMRPolyLine;
  16132.   EMRPolyBezierTo = TEMRPolyLine;
  16133.   PEMRPolyBezierTo = PEMRPolyLine;
  16134.   EMRPolyLineTo = TEMRPolyLine;
  16135.   PEMRPolyLineTo = PEMRPolyLine;
  16136.  
  16137.   PEMRPolyline16 = ^TEMRPolyline16;
  16138.   {$EXTERNALSYM tagEMRPOLYLINE16}
  16139.   tagEMRPOLYLINE16 = packed record
  16140.     emr: TEMR;
  16141.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16142.     cpts: DWORD;
  16143.     apts: array[0..0] of TSmallPoint;
  16144.   end;
  16145.   TEMRPolyline16 = tagEMRPOLYLINE16;
  16146.   {$EXTERNALSYM EMRPOLYLINE16}
  16147.   EMRPOLYLINE16 = tagEMRPOLYLINE16;
  16148.   EMRPolyBezier16 = TEMRPolyLine16;
  16149.   PEMRPolyBezier16 = PEMRPolyLine16;
  16150.   EMRPolygon16 = TEMRPolyLine16;
  16151.   PEMRPolygon16 = PEMRPolyLine16;
  16152.   EMRPolyBezierTo16 = TEMRPolyLine16;
  16153.   PEMRPolyBezierTo16 = PEMRPolyLine16;
  16154.   EMRPolyLineTo16 = TEMRPolyLine16;
  16155.   PEMRPolyLineTo16 = PEMRPolyLine16;
  16156.  
  16157.   PEMRPolyDraw = ^TEMRPolyDraw;
  16158.   {$EXTERNALSYM tagEMRPOLYDRAW}
  16159.   tagEMRPOLYDRAW = record
  16160.     emr: TEMR;
  16161.     rclBounds: TRect;    { Inclusive-inclusive bounds in device units}
  16162.     cptl: DWORD;         { Number of points}
  16163.     aptl: array[0..0] of TPoint;  { Array of points}
  16164.     abTypes: array[0..0] of Byte; { Array of point types}
  16165.   end;
  16166.   TEMRPolyDraw = tagEMRPOLYDRAW;
  16167.   {$EXTERNALSYM EMRPOLYDRAW}
  16168.   EMRPOLYDRAW = tagEMRPOLYDRAW;
  16169.  
  16170.   PEMRPolyDraw16 = ^TEMRPolyDraw16;
  16171.   {$EXTERNALSYM tagEMRPOLYDRAW16}
  16172.   tagEMRPOLYDRAW16 = record
  16173.     emr: TEMR;
  16174.     rclBounds: TRect;
  16175.     cpts: DWORD;
  16176.     apts: array[0..0] of TSmallPoint;
  16177.     abTypes: array[0..0] of Byte;
  16178.   end;
  16179.   TEMRPolyDraw16 = tagEMRPOLYDRAW16;
  16180.   {$EXTERNALSYM EMRPOLYDRAW16}
  16181.   EMRPOLYDRAW16 = tagEMRPOLYDRAW16;
  16182.  
  16183.   PEMRPolyPolyline = ^TEMRPolyPolyline;
  16184.   {$EXTERNALSYM tagEMRPOLYPOLYLINE}
  16185.   tagEMRPOLYPOLYLINE = packed record
  16186.     emr: TEMR;
  16187.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16188.     nPolys: DWORD;    { Number of polys}
  16189.     cptl: DWORD;      { Total number of points in all polys}
  16190.     aPolyCounts: array[0..0] of DWORD; { Array of point counts for each poly}
  16191.     aptl: array[0..0] of TPoint;       { Array of points}
  16192.   end;
  16193.   TEMRPolyPolyline = tagEMRPOLYPOLYLINE;
  16194.   {$EXTERNALSYM EMRPOLYPOLYLINE}
  16195.   EMRPOLYPOLYLINE = tagEMRPOLYPOLYLINE;
  16196.   EMRPolyPolygon = TEMRPolyPolyline;
  16197.   PEMRPolyPolygon = PEMRPolyPolyline;
  16198.  
  16199.   PEMRPolyPolyline16 = ^TEMRPolyPolyline16;
  16200.   {$EXTERNALSYM tagEMRPOLYPOLYLINE16}
  16201.   tagEMRPOLYPOLYLINE16 = packed record
  16202.     emr: TEMR;
  16203.     rclBounds: TRect;
  16204.     nPolys: DWORD;
  16205.     cpts: DWORD;
  16206.     aPolyCounts: array[0..0] of DWORD;
  16207.     apts: array[0..0] of TSmallPoint;
  16208.   end;
  16209.   TEMRPolyPolyline16 = tagEMRPOLYPOLYLINE16;
  16210.   {$EXTERNALSYM EMRPOLYPOLYLINE16}
  16211.   EMRPOLYPOLYLINE16 = tagEMRPOLYPOLYLINE16;
  16212.   EMRPolyPolygon16 = TEMRPolyPolyline16;
  16213.   PEMRPolyPolygon16 = PEMRPolyPolyline16;
  16214.  
  16215.   PEMRInvertRgn = ^TEMRInvertRgn;
  16216.   {$EXTERNALSYM tagEMRINVERTRGN}
  16217.   tagEMRINVERTRGN = record
  16218.     emr: TEMR;
  16219.     rclBounds: TRect; { Inclusive-inclusive bounds in device units }
  16220.     cbRgnData: DWORD; { Size of region data in bytes}
  16221.     RgnData: array[0..0] of Byte;
  16222.   end;
  16223.   TEMRInvertRgn = tagEMRINVERTRGN;
  16224.   {$EXTERNALSYM EMRINVERTRGN}
  16225.   EMRINVERTRGN = tagEMRINVERTRGN;
  16226.   EMRPaintRgn = TEMRInvertRgn;
  16227.   PEMRPaintRgn = PEMRInvertRgn;
  16228.  
  16229.   PEMRFillRgn = ^TEMRFillRgn;
  16230.   {$EXTERNALSYM tagEMRFILLRGN}
  16231.   tagEMRFILLRGN = record
  16232.     emr: TEMR;
  16233.     rclBounds: TRect;  { Inclusive-inclusive bounds in device units}
  16234.     cbRgnData: DWORD;  { Size of region data in bytes}
  16235.     ihBrush: DWORD;    { Brush handle index }
  16236.     RgnData: array[0..0] of Byte;
  16237.   end;
  16238.   TEMRFillRgn = tagEMRFILLRGN;
  16239.   {$EXTERNALSYM EMRFILLRGN}
  16240.   EMRFILLRGN = tagEMRFILLRGN;
  16241.  
  16242.   PEMRFrameRgn = ^TEMRFrameRgn;
  16243.   {$EXTERNALSYM tagEMRFRAMERGN}
  16244.   tagEMRFRAMERGN = record
  16245.     emr: TEMR;
  16246.     rclBounds: TRect;   { Inclusive-inclusive bounds in device units}
  16247.     cbRgnData: DWORD;   { Size of region data in bytes}
  16248.     ihBrush: DWORD;     { Brush handle index}
  16249.     szlStroke: TSize;
  16250.     RgnData: array[0..0] of Byte;
  16251.   end;
  16252.   TEMRFrameRgn = tagEMRFRAMERGN;
  16253.   {$EXTERNALSYM EMRFRAMERGN}
  16254.   EMRFRAMERGN = tagEMRFRAMERGN;
  16255.  
  16256.   PEMRExtSelectClipRgn = ^TEMRExtSelectClipRgn;
  16257.   {$EXTERNALSYM tagEMREXTSELECTCLIPRGN}
  16258.   tagEMREXTSELECTCLIPRGN = record
  16259.     emr: TEMR;
  16260.     cbRgnData: DWORD; { Size of region data in bytes}
  16261.     iMode: DWORD;
  16262.     RgnData: array[0..0] of Byte;
  16263.   end;
  16264.   TEMRExtSelectClipRgn = tagEMREXTSELECTCLIPRGN;
  16265.   {$EXTERNALSYM EMREXTSELECTCLIPRGN}
  16266.   EMREXTSELECTCLIPRGN = tagEMREXTSELECTCLIPRGN;
  16267.  
  16268.   PEMRExtTextOut = ^TEMRExtTextOut;
  16269.   {$EXTERNALSYM tagEMREXTTEXTOUTA}
  16270.   tagEMREXTTEXTOUTA = packed record
  16271.     emr: TEMR;
  16272.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  16273.     iGraphicsMode: DWORD; { Current graphics mode}
  16274.     exScale: Single;       { X and Y scales from Page units to .01mm units}
  16275.     eyScale: Single;       {   if graphics mode is GM_COMPATIBLE.}
  16276.     emrtext: TEMRText;    { This is followed by the string and spacing array}
  16277.   end;
  16278.   TEMRExtTextOut = tagEMREXTTEXTOUTA;
  16279.   {$EXTERNALSYM EMREXTTEXTOUTA}
  16280.   EMREXTTEXTOUTA = tagEMREXTTEXTOUTA;
  16281.  
  16282.   PEMRPolyTextOut = ^TEMRPolyTextOut;
  16283.   {$EXTERNALSYM tagEMRPOLYTEXTOUTA}
  16284.   tagEMRPOLYTEXTOUTA = packed record
  16285.     emr: TEMR;
  16286.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  16287.     iGraphicsMode: DWORD; { Current graphics mode}
  16288.     exScale: Single;       { X and Y scales from Page units to .01mm units}
  16289.     eyScale: Single;       {   if graphics mode is GM_COMPATIBLE.}
  16290.     cStrings: Longint;
  16291.     aemrtext: array[0..0] of TEMRText; { array of TEMRText structures.  This is}
  16292.                                        { followed by the strings and spacing arrays.}
  16293.   end;
  16294.   TEMRPolyTextOut = tagEMRPOLYTEXTOUTA;
  16295.   {$EXTERNALSYM EMRPOLYTEXTOUTA}
  16296.   EMRPOLYTEXTOUTA = tagEMRPOLYTEXTOUTA;
  16297.  
  16298.   PEMRBitBlt = ^TEMRBitBlt;
  16299.   {$EXTERNALSYM tagEMRBITBLT}
  16300.   tagEMRBITBLT = packed record
  16301.     emr: TEMR;
  16302.     rclBounds: TRect;        { Inclusive-inclusive bounds in device units}
  16303.     xDest: Longint;
  16304.     yDest: Longint;
  16305.     cxDest: Longint;
  16306.     cyDest: Longint;
  16307.     dwRop: DWORD;
  16308.     xSrc: Longint;
  16309.     ySrc: Longint;
  16310.     xformSrc: TXForm;        { Source DC transform}
  16311.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  16312.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16313.                              { (DIB_RGB_COLORS)}
  16314.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16315.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16316.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16317.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16318.   end;
  16319.   TEMRBitBlt = tagEMRBITBLT;
  16320.   {$EXTERNALSYM EMRBITBLT}
  16321.   EMRBITBLT = tagEMRBITBLT;
  16322.  
  16323.   PEMRStretchBlt = ^TEMRStretchBlt;
  16324.   {$EXTERNALSYM tagEMRSTRETCHBLT}
  16325.   tagEMRSTRETCHBLT = packed record
  16326.     emr: TEMR;
  16327.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16328.     xDest: Longint;
  16329.     yDest: Longint;
  16330.     cxDest: Longint;
  16331.     cyDest: Longint;
  16332.     dwRop: DWORD;
  16333.     xSrc: Longint;
  16334.     ySrc: Longint;
  16335.     xformSrc: TXForm;        { Source DC transform}
  16336.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  16337.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16338.                              { (DIB_RGB_COLORS)}
  16339.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16340.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16341.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16342.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16343.     cxSrc: Longint;
  16344.     cySrc: Longint;
  16345.   end;
  16346.   TEMRStretchBlt = tagEMRSTRETCHBLT;
  16347.   {$EXTERNALSYM EMRSTRETCHBLT}
  16348.   EMRSTRETCHBLT = tagEMRSTRETCHBLT;
  16349.  
  16350.   PEMRMaskBlt = ^TEMRMaskBlt;
  16351.   {$EXTERNALSYM tagEMRMASKBLT}
  16352.   tagEMRMASKBLT = packed record
  16353.     emr: TEMR;
  16354.     rclBounds: TRect;        { Inclusive-inclusive bounds in device units}
  16355.     xDest: Longint;
  16356.     yDest: Longint;
  16357.     cxDest: Longint;
  16358.     cyDest: Longint;
  16359.     dwRop: DWORD;
  16360.     xSrc: Longint;
  16361.     ySrc: Longint;
  16362.     xformSrc: TXForm;        { Source DC transform}
  16363.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  16364.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16365.                              { (DIB_RGB_COLORS)}
  16366.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16367.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16368.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16369.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16370.     xMask: Longint;
  16371.     yMask: Longint;
  16372.     iUsageMask: DWORD;       { Mask bitmap info color table usage}
  16373.     offBmiMask: DWORD;       { Offset to the mask TBitmapInfo structure if any}
  16374.     cbBmiMask: DWORD;        { Size of the mask TBitmapInfo structure if any}
  16375.     offBitsMask: DWORD;      { Offset to the mask bitmap bits if any}
  16376.     cbBitsMask: DWORD;       { Size of the mask bitmap bits if any}
  16377.   end;
  16378.   TEMRMaskBlt = tagEMRMASKBLT;
  16379.   {$EXTERNALSYM EMRMASKBLT}
  16380.   EMRMASKBLT = tagEMRMASKBLT;
  16381.  
  16382.   PEMRPLGBlt = ^TEMRPLGBlt;
  16383.   {$EXTERNALSYM tagEMRPLGBLT}
  16384.   tagEMRPLGBLT = packed record
  16385.     emr: TEMR;
  16386.     rclBounds: TRect;
  16387.     aptlDest: array[0..2] of TPoint;
  16388.     xSrc: Longint;
  16389.     ySrc: Longint;
  16390.     cxSrc: Longint;
  16391.     cySrc: Longint;
  16392.     xformSrc: TXForm;        { Source DC transform}
  16393.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  16394.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16395.                              { (DIB_RGB_COLORS)}
  16396.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16397.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16398.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16399.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16400.     xMask: Longint;
  16401.     yMask: Longint;
  16402.     iUsageMask: DWORD;       { Mask bitmap info color table usage}
  16403.     offBmiMask: DWORD;       { Offset to the mask TBitmapInfo structure if any}
  16404.     cbBmiMask: DWORD;        { Size of the mask TBitmapInfo structure if any}
  16405.     offBitsMask: DWORD;      { Offset to the mask bitmap bits if any}
  16406.     cbBitsMask: DWORD;       { Size of the mask bitmap bits if any}
  16407.   end;
  16408.   TEMRPLGBlt = tagEMRPLGBLT;
  16409.   {$EXTERNALSYM EMRPLGBLT}
  16410.   EMRPLGBLT = tagEMRPLGBLT;
  16411.  
  16412.   PEMRSetDIBitsToDevice = ^TEMRSetDIBitsToDevice;
  16413.   {$EXTERNALSYM tagEMRSETDIBITSTODEVICE}
  16414.   tagEMRSETDIBITSTODEVICE = packed record
  16415.     emr: TEMR;
  16416.     rclBounds: TRect;
  16417.     xDest: Longint;
  16418.     yDest: Longint;
  16419.     xSrc: Longint;
  16420.     ySrc: Longint;
  16421.     cxSrc: Longint;
  16422.     cySrc: Longint;
  16423.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16424.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16425.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16426.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16427.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16428.     iStartScan: DWORD;
  16429.     cScans: DWORD;
  16430.   end;
  16431.   TEMRSetDIBitsToDevice = tagEMRSETDIBITSTODEVICE;
  16432.   {$EXTERNALSYM EMRSETDIBITSTODEVICE}
  16433.   EMRSETDIBITSTODEVICE = tagEMRSETDIBITSTODEVICE;
  16434.  
  16435.   PEMRStretchDIBits = ^TEMRStretchDIBits;
  16436.   {$EXTERNALSYM tagEMRSTRETCHDIBITS}
  16437.   tagEMRSTRETCHDIBITS = packed record
  16438.     emr: TEMR;
  16439.     rclBounds: TRect;
  16440.     xDest: Longint;
  16441.     yDest: Longint;
  16442.     xSrc: Longint;
  16443.     ySrc: Longint;
  16444.     cxSrc: Longint;
  16445.     cySrc: Longint;
  16446.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  16447.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  16448.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  16449.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  16450.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  16451.     dwRop: DWORD;
  16452.     cxDest: Longint;
  16453.     cyDest: Longint;
  16454.   end;
  16455.   TEMRStretchDIBits = tagEMRSTRETCHDIBITS;
  16456.   {$EXTERNALSYM EMRSTRETCHDIBITS}
  16457.   EMRSTRETCHDIBITS = tagEMRSTRETCHDIBITS;
  16458.  
  16459.   PEMRExtCreateFontIndirect = ^TEMRExtCreateFontIndirect;
  16460.   {$EXTERNALSYM tagEMREXTCREATEFONTINDIRECTW}
  16461.   tagEMREXTCREATEFONTINDIRECTW = record
  16462.     emr: TEMR;
  16463.     ihFont: DWORD;     { Font handle index}
  16464.     elfw: TExtLogFontW;
  16465.   end;
  16466.   TEMRExtCreateFontIndirect = tagEMREXTCREATEFONTINDIRECTW;
  16467.   {$EXTERNALSYM EMREXTCREATEFONTINDIRECTW}
  16468.   EMREXTCREATEFONTINDIRECTW = tagEMREXTCREATEFONTINDIRECTW;
  16469.  
  16470.   PEMRCreatePalette = ^TEMRCreatePalette;
  16471.   {$EXTERNALSYM tagEMRCREATEPALETTE}
  16472.   tagEMRCREATEPALETTE = packed record
  16473.     emr: TEMR;
  16474.     ihPal: DWORD;        { Palette handle index}
  16475.     lgpl: TLogPalette;   { The peFlags fields in the palette entries}
  16476.                          { do not contain any flags}
  16477.   end;
  16478.   TEMRCreatePalette = tagEMRCREATEPALETTE;
  16479.   {$EXTERNALSYM EMRCREATEPALETTE}
  16480.   EMRCREATEPALETTE = tagEMRCREATEPALETTE;
  16481.  
  16482.   PEMRCreateColorSpace = ^TEMRCreateColorSpace;
  16483.   {$EXTERNALSYM tagEMRCREATECOLORSPACE}
  16484.   tagEMRCREATECOLORSPACE = packed record
  16485.     emr: TEMR;
  16486.     ihCS: DWORD;          { ColorSpace handle index}
  16487.     lcs: TLogColorSpaceW;
  16488.   end;
  16489.   TEMRCreateColorSpace = tagEMRCREATECOLORSPACE;
  16490.   {$EXTERNALSYM EMRCREATECOLORSPACE}
  16491.   EMRCREATECOLORSPACE = tagEMRCREATECOLORSPACE;
  16492.  
  16493.   PEMRCreatePen = ^TEMRCreatePen;
  16494.   {$EXTERNALSYM tagEMRCREATEPEN}
  16495.   tagEMRCREATEPEN = packed record
  16496.     emr: TEMR;
  16497.     ihPen: DWORD;   { Pen handle index}
  16498.     lopn: TLogPen;
  16499.   end;
  16500.   TEMRCreatePen = tagEMRCREATEPEN;
  16501.   {$EXTERNALSYM EMRCREATEPEN}
  16502.   EMRCREATEPEN = tagEMRCREATEPEN;
  16503.  
  16504.   PEMRExtCreatePen = ^TEMRExtCreatePen;
  16505.   {$EXTERNALSYM tagEMREXTCREATEPEN}
  16506.   tagEMREXTCREATEPEN = packed record
  16507.     emr: TEMR;
  16508.     ihPen: DWORD;      { Pen handle index}
  16509.     offBmi: DWORD;     { Offset to the TBitmapInfo structure if any}
  16510.     cbBmi: DWORD;      { Size of the TBitmapInfo structure if any}
  16511.                        { The bitmap info is followed by the bitmap}
  16512.                        { bits to form a packed DIB.}
  16513.     offBits: DWORD;    { Offset to the brush bitmap bits if any}
  16514.     cbBits: DWORD;     { Size of the brush bitmap bits if any}
  16515.     elp: TExtLogPen;   { The extended pen with the style array.}
  16516.   end;
  16517.   TEMRExtCreatePen = tagEMREXTCREATEPEN;
  16518.   {$EXTERNALSYM EMREXTCREATEPEN}
  16519.   EMREXTCREATEPEN = tagEMREXTCREATEPEN;
  16520.  
  16521.   PEMRCreateBrushIndirect = ^TEMRCreateBrushIndirect;
  16522.   {$EXTERNALSYM tagEMRCREATEBRUSHINDIRECT}
  16523.   tagEMRCREATEBRUSHINDIRECT = packed record
  16524.     emr: TEMR;
  16525.     ihBrush: DWORD; { Brush handle index}
  16526.     lb: TLogBrush;  { The style must be BS_SOLID, BS_HOLLOW,}
  16527.                     { BS_NULL or BS_HATCHED.}
  16528.   end;
  16529.   TEMRCreateBrushIndirect = tagEMRCREATEBRUSHINDIRECT;
  16530.   {$EXTERNALSYM EMRCREATEBRUSHINDIRECT}
  16531.   EMRCREATEBRUSHINDIRECT = tagEMRCREATEBRUSHINDIRECT;
  16532.  
  16533.   PEMRCreateMonoBrush = ^TEMRCreateMonoBrush;
  16534.   {$EXTERNALSYM tagEMRCREATEMONOBRUSH}
  16535.   tagEMRCREATEMONOBRUSH = packed record
  16536.     emr: TEMR;
  16537.     ihBrush: DWORD; { Brush handle index}
  16538.     iUsage: DWORD;  { Bitmap info color table usage}
  16539.     offBmi: DWORD;  { Offset to the TBitmapInfo structure}
  16540.     cbBmi: DWORD;   { Size of the TBitmapInfo structure if any}
  16541.                     { The bitmap info is followed by the bitmap}
  16542.                     { bits to form a packed DIB.}
  16543.     offBits: DWORD; { Offset to the bitmap bits}
  16544.     cbBits: DWORD;  { Size of the bitmap bits}
  16545.   end;
  16546.   TEMRCreateMonoBrush = tagEMRCREATEMONOBRUSH;
  16547.   {$EXTERNALSYM EMRCREATEMONOBRUSH}
  16548.   EMRCREATEMONOBRUSH = tagEMRCREATEMONOBRUSH;
  16549.  
  16550.   PEMRCreateDIBPatternBrushPt = ^TEMRCreateDIBPatternBrushPt;
  16551.   {$EXTERNALSYM tagEMRCREATEDIBPATTERNBRUSHPT}
  16552.   tagEMRCREATEDIBPATTERNBRUSHPT = packed record
  16553.     emr: TEMR;
  16554.     ihBrush: DWORD; { Brush handle index}
  16555.     iUsage: DWORD;  { Bitmap info color table usage}
  16556.     offBmi: DWORD;  { Offset to the TBitmapInfo structure}
  16557.     cbBmi: DWORD;   { Size of the TBitmapInfo structure if any}
  16558.                     { The bitmap info is followed by the bitmap}
  16559.                     { bits to form a packed DIB.}
  16560.     offBits: DWORD; { Offset to the bitmap bits}
  16561.     cbBits: DWORD;  { Size of the bitmap bits}
  16562.   end;
  16563.   TEMRCreateDIBPatternBrushPt = tagEMRCREATEDIBPATTERNBRUSHPT;
  16564.   {$EXTERNALSYM EMRCREATEDIBPATTERNBRUSHPT}
  16565.   EMRCREATEDIBPATTERNBRUSHPT = tagEMRCREATEDIBPATTERNBRUSHPT;
  16566.  
  16567.   PEMRFormat = ^TEMRFormat;
  16568.   {$EXTERNALSYM tagEMRFORMAT}
  16569.   tagEMRFORMAT = packed record
  16570.     dSignature: DWORD; { Format signature, e.g. ENHMETA_SIGNATURE.}
  16571.     nVersion: DWORD;   { Format version number.}
  16572.     cbData: DWORD;     { Size of data in bytes.}
  16573.     offData: DWORD;    { Offset to data from GDICOMMENT_IDENTIFIER.}
  16574.                        { It must begin at a DWORD offset.}
  16575.   end;
  16576.   TEMRFormat = tagEMRFORMAT;
  16577.   {$EXTERNALSYM EMRFORMAT}
  16578.   EMRFORMAT = tagEMRFORMAT;
  16579.  
  16580.   PEMRGLSRecord = ^TEMRGLSRecord;
  16581.   {$EXTERNALSYM tagEMRGLSRECORD}
  16582.   tagEMRGLSRECORD = packed record
  16583.     emr: TEMR;
  16584.     cbData: DWORD;              { Size of data in bytes }
  16585.     Data: packed array[0..0] of Byte;
  16586.   end;
  16587.   TEMRGLSRecord = tagEMRGLSRECORD;
  16588.   {$EXTERNALSYM EMRGLSRECORD}
  16589.   EMRGLSRECORD = tagEMRGLSRECORD;
  16590.  
  16591.  
  16592.   PEMRGLSBoundedRecord = ^TEMRGLSBoundedRecord;
  16593.   {$EXTERNALSYM tagEMRGLSBOUNDEDRECORD}
  16594.   tagEMRGLSBOUNDEDRECORD = packed record
  16595.     emr: TEMR;
  16596.     rclBounds: TRect;           { Bounds in recording coordinates }
  16597.     cbData: DWORD;              { Size of data in bytes }
  16598.     Data: packed array[0..0] of Byte;
  16599.   end;
  16600.   TEMRGLSBoundedRecord = tagEMRGLSBOUNDEDRECORD;
  16601.   {$EXTERNALSYM EMRGLSBOUNDEDRECORD}
  16602.   EMRGLSBOUNDEDRECORD = tagEMRGLSBOUNDEDRECORD;
  16603.  
  16604.   PEMRPixelFormat = ^TEMRPixelFormat;
  16605.   {$EXTERNALSYM tagEMRPIXELFORMAT}
  16606.   tagEMRPIXELFORMAT = packed record
  16607.     emr: TEMR;
  16608.     pfd: TPixelFormatDescriptor;
  16609.   end;
  16610.   TEMRPixelFormat = tagEMRPIXELFORMAT;
  16611.   {$EXTERNALSYM EMRPIXELFORMAT}
  16612.   EMRPIXELFORMAT = tagEMRPIXELFORMAT;
  16613.  
  16614. const
  16615.   {$EXTERNALSYM GDICOMMENT_IDENTIFIER}
  16616.   GDICOMMENT_IDENTIFIER = $43494447;
  16617.   {$EXTERNALSYM GDICOMMENT_WINDOWS_METAFILE}
  16618.   GDICOMMENT_WINDOWS_METAFILE = $80000001;
  16619.   {$EXTERNALSYM GDICOMMENT_BEGINGROUP}
  16620.   GDICOMMENT_BEGINGROUP = 2;
  16621.   {$EXTERNALSYM GDICOMMENT_ENDGROUP}
  16622.   GDICOMMENT_ENDGROUP = 3;
  16623.   {$EXTERNALSYM GDICOMMENT_MULTIFORMATS}
  16624.   GDICOMMENT_MULTIFORMATS = $40000004;
  16625.   {$EXTERNALSYM EPS_SIGNATURE}
  16626.   EPS_SIGNATURE = $46535045;
  16627.  
  16628. { OpenGL wgl prototypes}
  16629.  
  16630. {$EXTERNALSYM wglCopyContext}
  16631. function wglCopyContext(p1: HGLRC; p2: HGLRC; p3: Cardinal): BOOL; stdcall;
  16632. {$EXTERNALSYM wglCreateContext}
  16633. function wglCreateContext(DC: HDC): HGLRC; stdcall;
  16634. {$EXTERNALSYM wglCreateLayerContext}
  16635. function wglCreateLayerContext(p1: HDC; p2: Integer): HGLRC; stdcall;
  16636. {$EXTERNALSYM wglDeleteContext}
  16637. function wglDeleteContext(p1: HGLRC): BOOL; stdcall;
  16638. {$EXTERNALSYM wglGetCurrentContext:}
  16639. function wglGetCurrentContext: HGLRC; stdcall;
  16640. {$EXTERNALSYM wglGetCurrentDC:}
  16641. function wglGetCurrentDC: HDC; stdcall;
  16642. {$EXTERNALSYM wglMakeCurrent}
  16643. function wglMakeCurrent(DC: HDC; p2: HGLRC): BOOL; stdcall;
  16644. {$EXTERNALSYM wglShareLists}
  16645. function wglShareLists(p1, p2: HGLRC): BOOL; stdcall;
  16646. {$EXTERNALSYM wglUseFontBitmapsA}
  16647. function wglUseFontBitmapsA(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  16648. {$EXTERNALSYM wglUseFontBitmapsW}
  16649. function wglUseFontBitmapsW(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  16650. {$EXTERNALSYM wglUseFontBitmaps}
  16651. function wglUseFontBitmaps(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  16652. {$EXTERNALSYM SwapBuffers}
  16653. function SwapBuffers(DC: HDC): BOOL; stdcall;
  16654.  
  16655. type
  16656.   PPointFloat = ^TPointFloat;
  16657.   {$EXTERNALSYM _POINTFLOAT}
  16658.   _POINTFLOAT = packed record
  16659.     x: Single;
  16660.     y: Single;
  16661.   end;
  16662.   TPointFloat = _POINTFLOAT;
  16663.   {$EXTERNALSYM POINTFLOAT}
  16664.   POINTFLOAT = _POINTFLOAT;
  16665.  
  16666.   PGlyphMetricsFloat = ^TGlyphMetricsFloat;
  16667.   {$EXTERNALSYM _GLYPHMETRICSFLOAT}
  16668.   _GLYPHMETRICSFLOAT = packed record
  16669.     gmfBlackBoxX: Single;
  16670.     gmfBlackBoxY: Single;
  16671.     gmfptGlyphOrigin: TPointFloat;
  16672.     gmfCellIncX: Single;
  16673.     gmfCellIncY: Single;
  16674.   end;
  16675.   TGlyphMetricsFloat = _GLYPHMETRICSFLOAT;
  16676.   {$EXTERNALSYM GLYPHMETRICSFLOAT}
  16677.   GLYPHMETRICSFLOAT = _GLYPHMETRICSFLOAT;
  16678.  
  16679. const
  16680.   {$EXTERNALSYM WGL_FONT_LINES}
  16681.   WGL_FONT_LINES = 0;
  16682.   {$EXTERNALSYM WGL_FONT_POLYGONS}
  16683.   WGL_FONT_POLYGONS = 1;
  16684.  
  16685. {$EXTERNALSYM wglUseFontOutlinesA}
  16686. function wglUseFontOutlinesA(p1: HDC; p2, p3, p4: DWORD;
  16687.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  16688. {$EXTERNALSYM wglUseFontOutlinesW}
  16689. function wglUseFontOutlinesW(p1: HDC; p2, p3, p4: DWORD;
  16690.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  16691. {$EXTERNALSYM wglUseFontOutlines}
  16692. function wglUseFontOutlines(p1: HDC; p2, p3, p4: DWORD;
  16693.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  16694.  
  16695. { Layer plane descriptor }
  16696. type
  16697.   PLayerPlaneDescriptor = ^TLayerPlaneDescriptor;
  16698.   {$EXTERNALSYM tagLAYERPLANEDESCRIPTOR}
  16699.   tagLAYERPLANEDESCRIPTOR = packed record   { lpd }
  16700.     nSize: Word;
  16701.     nVersion: Word;
  16702.     dwFlags: DWORD;
  16703.     iPixelType: Byte;
  16704.     cColorBits: Byte;
  16705.     cRedBits: Byte;
  16706.     cRedShift: Byte;
  16707.     cGreenBits: Byte;
  16708.     cGreenShift: Byte;
  16709.     cBlueBits: Byte;
  16710.     cBlueShift: Byte;
  16711.     cAlphaBits: Byte;
  16712.     cAlphaShift: Byte;
  16713.     cAccumBits: Byte;
  16714.     cAccumRedBits: Byte;
  16715.     cAccumGreenBits: Byte;
  16716.     cAccumBlueBits: Byte;
  16717.     cAccumAlphaBits: Byte;
  16718.     cDepthBits: Byte;
  16719.     cStencilBits: Byte;
  16720.     cAuxBuffers: Byte;
  16721.     iLayerPlane: Byte;
  16722.     bReserved: Byte;
  16723.     crTransparent: COLORREF;
  16724.   end;
  16725.   TLayerPlaneDescriptor = tagLAYERPLANEDESCRIPTOR;
  16726.   {$EXTERNALSYM LAYERPLANEDESCRIPTOR}
  16727.   LAYERPLANEDESCRIPTOR = tagLAYERPLANEDESCRIPTOR;
  16728.  
  16729.  
  16730. { TLayerPlaneDescriptor flags }
  16731. const
  16732.   {$EXTERNALSYM LPD_DOUBLEBUFFER}
  16733.   LPD_DOUBLEBUFFER = $00000001;
  16734.   {$EXTERNALSYM LPD_STEREO}
  16735.   LPD_STEREO = $00000002;
  16736.   {$EXTERNALSYM LPD_SUPPORT_GDI}
  16737.   LPD_SUPPORT_GDI = $00000010;
  16738.   {$EXTERNALSYM LPD_SUPPORT_OPENGL}
  16739.   LPD_SUPPORT_OPENGL = $00000020;
  16740.   {$EXTERNALSYM LPD_SHARE_DEPTH}
  16741.   LPD_SHARE_DEPTH = $00000040;
  16742.   {$EXTERNALSYM LPD_SHARE_STENCIL}
  16743.   LPD_SHARE_STENCIL = $00000080;
  16744.   {$EXTERNALSYM LPD_SHARE_ACCUM}
  16745.   LPD_SHARE_ACCUM = $00000100;
  16746.   {$EXTERNALSYM LPD_SWAP_EXCHANGE}
  16747.   LPD_SWAP_EXCHANGE = $00000200;
  16748.   {$EXTERNALSYM LPD_SWAP_COPY}
  16749.   LPD_SWAP_COPY = $00000400;
  16750.   {$EXTERNALSYM LPD_TRANSPARENT}
  16751.   LPD_TRANSPARENT = $00001000;
  16752.  
  16753.   {$EXTERNALSYM LPD_TYPE_RGBA}
  16754.   LPD_TYPE_RGBA = 0;
  16755.   {$EXTERNALSYM LPD_TYPE_COLORINDEX}
  16756.   LPD_TYPE_COLORINDEX = 1;
  16757.  
  16758. { wglSwapLayerBuffers flags }
  16759.   {$EXTERNALSYM WGL_SWAP_MAIN_PLANE}
  16760.   WGL_SWAP_MAIN_PLANE = $00000001;
  16761.   {$EXTERNALSYM WGL_SWAP_OVERLAY1}
  16762.   WGL_SWAP_OVERLAY1 = $00000002;
  16763.   {$EXTERNALSYM WGL_SWAP_OVERLAY2}
  16764.   WGL_SWAP_OVERLAY2 = $00000004;
  16765.   {$EXTERNALSYM WGL_SWAP_OVERLAY3}
  16766.   WGL_SWAP_OVERLAY3 = $00000008;
  16767.   {$EXTERNALSYM WGL_SWAP_OVERLAY4}
  16768.   WGL_SWAP_OVERLAY4 = $00000010;
  16769.   {$EXTERNALSYM WGL_SWAP_OVERLAY5}
  16770.   WGL_SWAP_OVERLAY5 = $00000020;
  16771.   {$EXTERNALSYM WGL_SWAP_OVERLAY6}
  16772.   WGL_SWAP_OVERLAY6 = $00000040;
  16773.   {$EXTERNALSYM WGL_SWAP_OVERLAY7}
  16774.   WGL_SWAP_OVERLAY7 = $00000080;
  16775.   {$EXTERNALSYM WGL_SWAP_OVERLAY8}
  16776.   WGL_SWAP_OVERLAY8 = $00000100;
  16777.   {$EXTERNALSYM WGL_SWAP_OVERLAY9}
  16778.   WGL_SWAP_OVERLAY9 = $00000200;
  16779.   {$EXTERNALSYM WGL_SWAP_OVERLAY10}
  16780.   WGL_SWAP_OVERLAY10 = $00000400;
  16781.   {$EXTERNALSYM WGL_SWAP_OVERLAY11}
  16782.   WGL_SWAP_OVERLAY11 = $00000800;
  16783.   {$EXTERNALSYM WGL_SWAP_OVERLAY12}
  16784.   WGL_SWAP_OVERLAY12 = $00001000;
  16785.   {$EXTERNALSYM WGL_SWAP_OVERLAY13}
  16786.   WGL_SWAP_OVERLAY13 = $00002000;
  16787.   {$EXTERNALSYM WGL_SWAP_OVERLAY14}
  16788.   WGL_SWAP_OVERLAY14 = $00004000;
  16789.   {$EXTERNALSYM WGL_SWAP_OVERLAY15}
  16790.   WGL_SWAP_OVERLAY15 = $00008000;
  16791.   {$EXTERNALSYM WGL_SWAP_UNDERLAY1}
  16792.   WGL_SWAP_UNDERLAY1 = $00010000;
  16793.   {$EXTERNALSYM WGL_SWAP_UNDERLAY2}
  16794.   WGL_SWAP_UNDERLAY2 = $00020000;
  16795.   {$EXTERNALSYM WGL_SWAP_UNDERLAY3}
  16796.   WGL_SWAP_UNDERLAY3 = $00040000;
  16797.   {$EXTERNALSYM WGL_SWAP_UNDERLAY4}
  16798.   WGL_SWAP_UNDERLAY4 = $00080000;
  16799.   {$EXTERNALSYM WGL_SWAP_UNDERLAY5}
  16800.   WGL_SWAP_UNDERLAY5 = $00100000;
  16801.   {$EXTERNALSYM WGL_SWAP_UNDERLAY6}
  16802.   WGL_SWAP_UNDERLAY6 = $00200000;
  16803.   {$EXTERNALSYM WGL_SWAP_UNDERLAY7}
  16804.   WGL_SWAP_UNDERLAY7 = $00400000;
  16805.   {$EXTERNALSYM WGL_SWAP_UNDERLAY8}
  16806.   WGL_SWAP_UNDERLAY8 = $00800000;
  16807.   {$EXTERNALSYM WGL_SWAP_UNDERLAY9}
  16808.   WGL_SWAP_UNDERLAY9 = $01000000;
  16809.   {$EXTERNALSYM WGL_SWAP_UNDERLAY10}
  16810.   WGL_SWAP_UNDERLAY10 = $02000000;
  16811.   {$EXTERNALSYM WGL_SWAP_UNDERLAY11}
  16812.   WGL_SWAP_UNDERLAY11 = $04000000;
  16813.   {$EXTERNALSYM WGL_SWAP_UNDERLAY12}
  16814.   WGL_SWAP_UNDERLAY12 = $08000000;
  16815.   {$EXTERNALSYM WGL_SWAP_UNDERLAY13}
  16816.   WGL_SWAP_UNDERLAY13 = $10000000;
  16817.   {$EXTERNALSYM WGL_SWAP_UNDERLAY14}
  16818.   WGL_SWAP_UNDERLAY14 = $20000000;
  16819.   {$EXTERNALSYM WGL_SWAP_UNDERLAY15}
  16820.   WGL_SWAP_UNDERLAY15 = $40000000;
  16821.  
  16822. {$EXTERNALSYM wglDescribeLayerPlane}
  16823. function wglDescribeLayerPlane(p1: HDC; p2, p3: Integer; p4: Cardinal;
  16824.   var p5: TLayerPlaneDescriptor): BOOL; stdcall;
  16825. {$EXTERNALSYM wglSetLayerPaletteEntries}
  16826. function wglSetLayerPaletteEntries(p1: HDC; p2, p3, p4: Integer;
  16827.   var pcr): Integer; stdcall;
  16828. {$EXTERNALSYM wglGetLayerPaletteEntries}
  16829. function wglGetLayerPaletteEntries(p1: HDC; p2, p3, p4: Integer;
  16830.   var pcr): Integer; stdcall;
  16831. {$EXTERNALSYM wglRealizeLayerPalette}
  16832. function wglRealizeLayerPalette(p1: HDC; p2: Integer; p3: BOOL): BOOL; stdcall;
  16833. {$EXTERNALSYM wglSwapLayerBuffers}
  16834. function wglSwapLayerBuffers(p1: HDC; p2: Cardinal): BOOL; stdcall;
  16835.  
  16836.  
  16837. { Translated from WINUSER.H }
  16838.  
  16839. type
  16840.   {$EXTERNALSYM HDWP}
  16841.   HDWP = THandle;
  16842.   PMENUTEMPLATE = Pointer;
  16843.   {$EXTERNALSYM va_list}
  16844.   va_list = PChar;
  16845.  
  16846. {$IFDEF STRICT}
  16847.   TFNWndProc = function (p1: HWND; p2: UINT; p3: WPARAM; p4: LPARAM): LRESULT stdcall;
  16848.   TFNDlgProc = function (p1: HWND; p2: UINT; p3: WPARAM; p4: LPARAM): BOOL stdcall;
  16849.   TFNTimerProc = procedure (p1: HWND; p2, p3: UINT; p4: DWORD) stdcall;
  16850.   TFNGrayStringProc = function (DC: HDC; p2: LPARAM; p3: Integer): BOOL stdcall;
  16851.   TFNWndEnumProc = function (p1: HWND; p2: LPARAM): BOOL stdcall;
  16852.   TFNSendAsyncProc = procedure (p1: HWND; p2: UINT; p3: DWORD; p4: LRESULT) stdcall;
  16853.   TFNDrawStateProc = function (hdc: HDC; lData: LPARAM; wData: WPARAM; cx,cy: Integer): BOOL stdcall;
  16854. {$ELSE}
  16855.   TFNWndProc = TFarProc;
  16856.   TFNDlgProc = TFarProc;
  16857.   TFNTimerProc = TFarProc;
  16858.   TFNGrayStringProc = TFarProc;
  16859.   TFNWndEnumProc = TFarProc;
  16860.   TFNSendAsyncProc = TFarProc;
  16861.   TFNDrawStateProc = TFarProc;
  16862. {$ENDIF}
  16863.  
  16864.   TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
  16865.  
  16866. type
  16867. {$IFDEF STRICT}
  16868.   TFNPropEnumProc = function (p1: HWND; p2: LPCTSTR; p3: THandle): BOOL stdcall;
  16869.   TFNPropEnumProcEx = function (p1: HWND; p2: LPTSTR; p3: THandle;
  16870.     p4: DWORD): BOOL stdcall;
  16871.   TFNEditWordBreakProc = function (lpch: LPTSTR; ichCurrent, cch, code: Integer): Integer stdcall;
  16872.   TFNNameEnumProc = function (p1: LPTSTR; p2: LPARAM): BOOL stdcall;
  16873. {$ELSE}
  16874.   TFNPropEnumProc = TFarProc;
  16875.   TFNPropEnumProcEx = TFarProc;
  16876.   TFNEditWordBreakProc = TFarProc;
  16877.   TFNNameEnumProc = TFarProc;
  16878. {$ENDIF}
  16879.   TFNWinStaEnumProc = TFNNameEnumProc;
  16880.   TFNDeskTopEnumProc = TFNNameEnumProc;
  16881.  
  16882.   MakeIntResourceA = PAnsiChar;
  16883.   MakeIntResourceW = PWideChar;
  16884.   MakeIntResource = MakeIntResourceA;
  16885.  
  16886. const
  16887.   { Predefined Resource Types }
  16888.   {$EXTERNALSYM RT_CURSOR}
  16889.   RT_CURSOR       = MakeIntResource(1);
  16890.   {$EXTERNALSYM RT_BITMAP}
  16891.   RT_BITMAP       = MakeIntResource(2);
  16892.   {$EXTERNALSYM RT_ICON}
  16893.   RT_ICON         = MakeIntResource(3);
  16894.   {$EXTERNALSYM RT_MENU}
  16895.   RT_MENU         = MakeIntResource(4);
  16896.   {$EXTERNALSYM RT_DIALOG}
  16897.   RT_DIALOG       = MakeIntResource(5);
  16898.   {$EXTERNALSYM RT_STRING}
  16899.   RT_STRING       = MakeIntResource(6);
  16900.   {$EXTERNALSYM RT_FONTDIR}
  16901.   RT_FONTDIR      = MakeIntResource(7);
  16902.   {$EXTERNALSYM RT_FONT}
  16903.   RT_FONT         = MakeIntResource(8);
  16904.   {$EXTERNALSYM RT_ACCELERATOR}
  16905.   RT_ACCELERATOR  = MakeIntResource(9);
  16906.   {$EXTERNALSYM RT_RCDATA}
  16907.   RT_RCDATA       = MakeIntResource(10);
  16908.   {$EXTERNALSYM RT_MESSAGETABLE}
  16909.   RT_MESSAGETABLE = MakeIntResource(11);
  16910.  
  16911.   {$EXTERNALSYM DIFFERENCE}
  16912.   DIFFERENCE = 11;
  16913.  
  16914.   {$EXTERNALSYM RT_GROUP_CURSOR}
  16915.   RT_GROUP_CURSOR = MakeIntResource(DWORD(RT_CURSOR + DIFFERENCE));
  16916.   {$EXTERNALSYM RT_GROUP_ICON}
  16917.   RT_GROUP_ICON   = MakeIntResource(DWORD(RT_ICON + DIFFERENCE));
  16918.   {$EXTERNALSYM RT_VERSION}
  16919.   RT_VERSION      = MakeIntResource(16);
  16920.   {$EXTERNALSYM RT_DLGINCLUDE}
  16921.   RT_DLGINCLUDE   = MakeIntResource(17);
  16922.   {$EXTERNALSYM RT_PLUGPLAY}
  16923.   RT_PLUGPLAY     = MakeIntResource(19);
  16924.   {$EXTERNALSYM RT_VXD}
  16925.   RT_VXD          = MakeIntResource(20);
  16926.   {$EXTERNALSYM RT_ANICURSOR}
  16927.   RT_ANICURSOR    = MakeIntResource(21);
  16928.   {$EXTERNALSYM RT_ANIICON}
  16929.   RT_ANIICON      = MakeIntResource(22);
  16930.  
  16931. {$EXTERNALSYM wvsprintfA}
  16932. function wvsprintfA(Output: PAnsiChar; Format: PAnsiChar; arglist: va_list): Integer; stdcall;
  16933. {$EXTERNALSYM wvsprintfW}
  16934. function wvsprintfW(Output: PWideChar; Format: PWideChar; arglist: va_list): Integer; stdcall;
  16935. {$EXTERNALSYM wvsprintf}
  16936. function wvsprintf(Output: PChar; Format: PChar; arglist: va_list): Integer; stdcall;
  16937. {$EXTERNALSYM wsprintfA}
  16938. function wsprintfA(Output: PAnsiChar; Format: PAnsiChar): Integer; stdcall;
  16939. {$EXTERNALSYM wsprintfW}
  16940. function wsprintfW(Output: PWideChar; Format: PWideChar): Integer; stdcall;
  16941. {$EXTERNALSYM wsprintf}
  16942. function wsprintf(Output: PChar; Format: PChar): Integer; stdcall;
  16943.  
  16944. const
  16945.   { Scroll Bar Constants }
  16946.   {$EXTERNALSYM SB_HORZ}
  16947.   SB_HORZ = 0;
  16948.   {$EXTERNALSYM SB_VERT}
  16949.   SB_VERT = 1;
  16950.   {$EXTERNALSYM SB_CTL}
  16951.   SB_CTL = 2;
  16952.   {$EXTERNALSYM SB_BOTH}
  16953.   SB_BOTH = 3;
  16954.  
  16955.   { Scroll Bar Commands }
  16956.   {$EXTERNALSYM SB_LINEUP}
  16957.   SB_LINEUP = 0;
  16958.   {$EXTERNALSYM SB_LINELEFT}
  16959.   SB_LINELEFT = 0;
  16960.   {$EXTERNALSYM SB_LINEDOWN}
  16961.   SB_LINEDOWN = 1;
  16962.   {$EXTERNALSYM SB_LINERIGHT}
  16963.   SB_LINERIGHT = 1;
  16964.   {$EXTERNALSYM SB_PAGEUP}
  16965.   SB_PAGEUP = 2;
  16966.   {$EXTERNALSYM SB_PAGELEFT}
  16967.   SB_PAGELEFT = 2;
  16968.   {$EXTERNALSYM SB_PAGEDOWN}
  16969.   SB_PAGEDOWN = 3;
  16970.   {$EXTERNALSYM SB_PAGERIGHT}
  16971.   SB_PAGERIGHT = 3;
  16972.   {$EXTERNALSYM SB_THUMBPOSITION}
  16973.   SB_THUMBPOSITION = 4;
  16974.   {$EXTERNALSYM SB_THUMBTRACK}
  16975.   SB_THUMBTRACK = 5;
  16976.   {$EXTERNALSYM SB_TOP}
  16977.   SB_TOP = 6;
  16978.   {$EXTERNALSYM SB_LEFT}
  16979.   SB_LEFT = 6;
  16980.   {$EXTERNALSYM SB_BOTTOM}
  16981.   SB_BOTTOM = 7;
  16982.   {$EXTERNALSYM SB_RIGHT}
  16983.   SB_RIGHT = 7;
  16984.   {$EXTERNALSYM SB_ENDSCROLL}
  16985.   SB_ENDSCROLL = 8;
  16986.  
  16987.   { ShowWindow() Commands }
  16988.   {$EXTERNALSYM SW_HIDE}
  16989.   SW_HIDE = 0;
  16990.   {$EXTERNALSYM SW_SHOWNORMAL}
  16991.   SW_SHOWNORMAL = 1;
  16992.   {$EXTERNALSYM SW_NORMAL}
  16993.   SW_NORMAL = 1;
  16994.   {$EXTERNALSYM SW_SHOWMINIMIZED}
  16995.   SW_SHOWMINIMIZED = 2;
  16996.   {$EXTERNALSYM SW_SHOWMAXIMIZED}
  16997.   SW_SHOWMAXIMIZED = 3;
  16998.   {$EXTERNALSYM SW_MAXIMIZE}
  16999.   SW_MAXIMIZE = 3;
  17000.   {$EXTERNALSYM SW_SHOWNOACTIVATE}
  17001.   SW_SHOWNOACTIVATE = 4;
  17002.   {$EXTERNALSYM SW_SHOW}
  17003.   SW_SHOW = 5;
  17004.   {$EXTERNALSYM SW_MINIMIZE}
  17005.   SW_MINIMIZE = 6;
  17006.   {$EXTERNALSYM SW_SHOWMINNOACTIVE}
  17007.   SW_SHOWMINNOACTIVE = 7;
  17008.   {$EXTERNALSYM SW_SHOWNA}
  17009.   SW_SHOWNA = 8;
  17010.   {$EXTERNALSYM SW_RESTORE}
  17011.   SW_RESTORE = 9;
  17012.   {$EXTERNALSYM SW_SHOWDEFAULT}
  17013.   SW_SHOWDEFAULT = 10;
  17014.   {$EXTERNALSYM SW_MAX}
  17015.   SW_MAX = 10;
  17016.  
  17017.   { Old ShowWindow() Commands }
  17018.   {$EXTERNALSYM HIDE_WINDOW}
  17019.   HIDE_WINDOW = 0;
  17020.   {$EXTERNALSYM SHOW_OPENWINDOW}
  17021.   SHOW_OPENWINDOW = 1;
  17022.   {$EXTERNALSYM SHOW_ICONWINDOW}
  17023.   SHOW_ICONWINDOW = 2;
  17024.   {$EXTERNALSYM SHOW_FULLSCREEN}
  17025.   SHOW_FULLSCREEN = 3;
  17026.   {$EXTERNALSYM SHOW_OPENNOACTIVATE}
  17027.   SHOW_OPENNOACTIVATE = 4;
  17028.  
  17029.   { Identifiers for the WM_SHOWWINDOW message }
  17030.   {$EXTERNALSYM SW_PARENTCLOSING}
  17031.   SW_PARENTCLOSING = 1;
  17032.   {$EXTERNALSYM SW_OTHERZOOM}
  17033.   SW_OTHERZOOM = 2;
  17034.   {$EXTERNALSYM SW_PARENTOPENING}
  17035.   SW_PARENTOPENING = 3;
  17036.   {$EXTERNALSYM SW_OTHERUNZOOM}
  17037.   SW_OTHERUNZOOM = 4;
  17038.  
  17039.   { WM_KEYUPDOWNCHAR HiWord(lParam) flags }
  17040.   {$EXTERNALSYM KF_EXTENDED}
  17041.   KF_EXTENDED = $100;
  17042.   {$EXTERNALSYM KF_DLGMODE}
  17043.   KF_DLGMODE = $800;
  17044.   {$EXTERNALSYM KF_MENUMODE}
  17045.   KF_MENUMODE = $1000;
  17046.   {$EXTERNALSYM KF_ALTDOWN}
  17047.   KF_ALTDOWN = $2000;
  17048.   {$EXTERNALSYM KF_REPEAT}
  17049.   KF_REPEAT = $4000;
  17050.   {$EXTERNALSYM KF_UP}
  17051.   KF_UP = $8000;
  17052.  
  17053.   { Virtual Keys, Standard Set }
  17054.   {$EXTERNALSYM VK_LBUTTON}
  17055.   VK_LBUTTON = 1;
  17056.   {$EXTERNALSYM VK_RBUTTON}
  17057.   VK_RBUTTON = 2;
  17058.   {$EXTERNALSYM VK_CANCEL}
  17059.   VK_CANCEL = 3;
  17060.   {$EXTERNALSYM VK_MBUTTON}
  17061.   VK_MBUTTON = 4;  { NOT contiguous with L & RBUTTON }
  17062.   {$EXTERNALSYM VK_BACK}
  17063.   VK_BACK = 8;
  17064.   {$EXTERNALSYM VK_TAB}
  17065.   VK_TAB = 9;
  17066.   {$EXTERNALSYM VK_CLEAR}
  17067.   VK_CLEAR = 12;
  17068.   {$EXTERNALSYM VK_RETURN}
  17069.   VK_RETURN = 13;
  17070.   {$EXTERNALSYM VK_SHIFT}
  17071.   VK_SHIFT = $10;
  17072.   {$EXTERNALSYM VK_CONTROL}
  17073.   VK_CONTROL = 17;
  17074.   {$EXTERNALSYM VK_MENU}
  17075.   VK_MENU = 18;
  17076.   {$EXTERNALSYM VK_PAUSE}
  17077.   VK_PAUSE = 19;
  17078.   {$EXTERNALSYM VK_CAPITAL}
  17079.   VK_CAPITAL = 20;
  17080.   {$EXTERNALSYM VK_KANA }
  17081.   VK_KANA = 21;
  17082.   {$EXTERNALSYM VK_HANGUL }
  17083.   VK_HANGUL = 21;
  17084.   {$EXTERNALSYM VK_JUNJA }
  17085.   VK_JUNJA = 23;
  17086.   {$EXTERNALSYM VK_FINAL }
  17087.   VK_FINAL = 24;
  17088.   {$EXTERNALSYM VK_HANJA }
  17089.   VK_HANJA = 25;
  17090.   {$EXTERNALSYM VK_KANJI }
  17091.   VK_KANJI = 25;
  17092.   {$EXTERNALSYM VK_CONVERT }
  17093.   VK_CONVERT = 28;
  17094.   {$EXTERNALSYM VK_NONCONVERT }
  17095.   VK_NONCONVERT = 29;
  17096.   {$EXTERNALSYM VK_ACCEPT }
  17097.   VK_ACCEPT = 30;
  17098.   {$EXTERNALSYM VK_MODECHANGE }
  17099.   VK_MODECHANGE = 31;
  17100.   {$EXTERNALSYM VK_ESCAPE}
  17101.   VK_ESCAPE = 27;
  17102.   {$EXTERNALSYM VK_SPACE}
  17103.   VK_SPACE = $20;
  17104.   {$EXTERNALSYM VK_PRIOR}
  17105.   VK_PRIOR = 33;
  17106.   {$EXTERNALSYM VK_NEXT}
  17107.   VK_NEXT = 34;
  17108.   {$EXTERNALSYM VK_END}
  17109.   VK_END = 35;
  17110.   {$EXTERNALSYM VK_HOME}
  17111.   VK_HOME = 36;
  17112.   {$EXTERNALSYM VK_LEFT}
  17113.   VK_LEFT = 37;
  17114.   {$EXTERNALSYM VK_UP}
  17115.   VK_UP = 38;
  17116.   {$EXTERNALSYM VK_RIGHT}
  17117.   VK_RIGHT = 39;
  17118.   {$EXTERNALSYM VK_DOWN}
  17119.   VK_DOWN = 40;
  17120.   {$EXTERNALSYM VK_SELECT}
  17121.   VK_SELECT = 41;
  17122.   {$EXTERNALSYM VK_PRINT}
  17123.   VK_PRINT = 42;
  17124.   {$EXTERNALSYM VK_EXECUTE}
  17125.   VK_EXECUTE = 43;
  17126.   {$EXTERNALSYM VK_SNAPSHOT}
  17127.   VK_SNAPSHOT = 44;
  17128.   {$EXTERNALSYM VK_INSERT}
  17129.   VK_INSERT = 45;
  17130.   {$EXTERNALSYM VK_DELETE}
  17131.   VK_DELETE = 46;
  17132.   {$EXTERNALSYM VK_HELP}
  17133.   VK_HELP = 47;
  17134. { VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
  17135. { VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
  17136.   {$EXTERNALSYM VK_LWIN}
  17137.   VK_LWIN = 91;
  17138.   {$EXTERNALSYM VK_RWIN}
  17139.   VK_RWIN = 92;
  17140.   {$EXTERNALSYM VK_APPS}
  17141.   VK_APPS = 93;
  17142.   {$EXTERNALSYM VK_NUMPAD0}
  17143.   VK_NUMPAD0 = 96;
  17144.   {$EXTERNALSYM VK_NUMPAD1}
  17145.   VK_NUMPAD1 = 97;
  17146.   {$EXTERNALSYM VK_NUMPAD2}
  17147.   VK_NUMPAD2 = 98;
  17148.   {$EXTERNALSYM VK_NUMPAD3}
  17149.   VK_NUMPAD3 = 99;
  17150.   {$EXTERNALSYM VK_NUMPAD4}
  17151.   VK_NUMPAD4 = 100;
  17152.   {$EXTERNALSYM VK_NUMPAD5}
  17153.   VK_NUMPAD5 = 101;
  17154.   {$EXTERNALSYM VK_NUMPAD6}
  17155.   VK_NUMPAD6 = 102;
  17156.   {$EXTERNALSYM VK_NUMPAD7}
  17157.   VK_NUMPAD7 = 103;
  17158.   {$EXTERNALSYM VK_NUMPAD8}
  17159.   VK_NUMPAD8 = 104;
  17160.   {$EXTERNALSYM VK_NUMPAD9}
  17161.   VK_NUMPAD9 = 105;
  17162.   {$EXTERNALSYM VK_MULTIPLY}
  17163.   VK_MULTIPLY = 106;
  17164.   {$EXTERNALSYM VK_ADD}
  17165.   VK_ADD = 107;
  17166.   {$EXTERNALSYM VK_SEPARATOR}
  17167.   VK_SEPARATOR = 108;
  17168.   {$EXTERNALSYM VK_SUBTRACT}
  17169.   VK_SUBTRACT = 109;
  17170.   {$EXTERNALSYM VK_DECIMAL}
  17171.   VK_DECIMAL = 110;
  17172.   {$EXTERNALSYM VK_DIVIDE}
  17173.   VK_DIVIDE = 111;
  17174.   {$EXTERNALSYM VK_F1}
  17175.   VK_F1 = 112;
  17176.   {$EXTERNALSYM VK_F2}
  17177.   VK_F2 = 113;
  17178.   {$EXTERNALSYM VK_F3}
  17179.   VK_F3 = 114;
  17180.   {$EXTERNALSYM VK_F4}
  17181.   VK_F4 = 115;
  17182.   {$EXTERNALSYM VK_F5}
  17183.   VK_F5 = 116;
  17184.   {$EXTERNALSYM VK_F6}
  17185.   VK_F6 = 117;
  17186.   {$EXTERNALSYM VK_F7}
  17187.   VK_F7 = 118;
  17188.   {$EXTERNALSYM VK_F8}
  17189.   VK_F8 = 119;
  17190.   {$EXTERNALSYM VK_F9}
  17191.   VK_F9 = 120;
  17192.   {$EXTERNALSYM VK_F10}
  17193.   VK_F10 = 121;
  17194.   {$EXTERNALSYM VK_F11}
  17195.   VK_F11 = 122;
  17196.   {$EXTERNALSYM VK_F12}
  17197.   VK_F12 = 123;
  17198.   {$EXTERNALSYM VK_F13}
  17199.   VK_F13 = 124;
  17200.   {$EXTERNALSYM VK_F14}
  17201.   VK_F14 = 125;
  17202.   {$EXTERNALSYM VK_F15}
  17203.   VK_F15 = 126;
  17204.   {$EXTERNALSYM VK_F16}
  17205.   VK_F16 = 127;
  17206.   {$EXTERNALSYM VK_F17}
  17207.   VK_F17 = 128;
  17208.   {$EXTERNALSYM VK_F18}
  17209.   VK_F18 = 129;
  17210.   {$EXTERNALSYM VK_F19}
  17211.   VK_F19 = 130;
  17212.   {$EXTERNALSYM VK_F20}
  17213.   VK_F20 = 131;
  17214.   {$EXTERNALSYM VK_F21}
  17215.   VK_F21 = 132;
  17216.   {$EXTERNALSYM VK_F22}
  17217.   VK_F22 = 133;
  17218.   {$EXTERNALSYM VK_F23}
  17219.   VK_F23 = 134;
  17220.   {$EXTERNALSYM VK_F24}
  17221.   VK_F24 = 135;
  17222.   {$EXTERNALSYM VK_NUMLOCK}
  17223.   VK_NUMLOCK = 144;
  17224.   {$EXTERNALSYM VK_SCROLL}
  17225.   VK_SCROLL = 145;
  17226. { VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
  17227.   Used only as parameters to GetAsyncKeyState() and GetKeyState().
  17228.   No other API or message will distinguish left and right keys in this way. }
  17229.   {$EXTERNALSYM VK_LSHIFT}
  17230.   VK_LSHIFT = 160;
  17231.   {$EXTERNALSYM VK_RSHIFT}
  17232.   VK_RSHIFT = 161;
  17233.   {$EXTERNALSYM VK_LCONTROL}
  17234.   VK_LCONTROL = 162;
  17235.   {$EXTERNALSYM VK_RCONTROL}
  17236.   VK_RCONTROL = 163;
  17237.   {$EXTERNALSYM VK_LMENU}
  17238.   VK_LMENU = 164;
  17239.   {$EXTERNALSYM VK_RMENU}
  17240.   VK_RMENU = 165;
  17241.   {$EXTERNALSYM VK_PROCESSKEY}
  17242.   VK_PROCESSKEY = 229;
  17243.   {$EXTERNALSYM VK_ATTN}
  17244.   VK_ATTN = 246;
  17245.   {$EXTERNALSYM VK_CRSEL}
  17246.   VK_CRSEL = 247;
  17247.   {$EXTERNALSYM VK_EXSEL}
  17248.   VK_EXSEL = 248;
  17249.   {$EXTERNALSYM VK_EREOF}
  17250.   VK_EREOF = 249;
  17251.   {$EXTERNALSYM VK_PLAY}
  17252.   VK_PLAY = 250;
  17253.   {$EXTERNALSYM VK_ZOOM}
  17254.   VK_ZOOM = 251;
  17255.   {$EXTERNALSYM VK_NONAME}
  17256.   VK_NONAME = 252;
  17257.   {$EXTERNALSYM VK_PA1}
  17258.   VK_PA1 = 253;
  17259.   {$EXTERNALSYM VK_OEM_CLEAR}
  17260.   VK_OEM_CLEAR = 254;
  17261.  
  17262.  
  17263.   { SetWindowsHook() codes }
  17264.   {$EXTERNALSYM WH_MIN}
  17265.   WH_MIN = -1;
  17266.   {$EXTERNALSYM WH_MSGFILTER}
  17267.   WH_MSGFILTER = -1;
  17268.   {$EXTERNALSYM WH_JOURNALRECORD}
  17269.   WH_JOURNALRECORD = 0;
  17270.   {$EXTERNALSYM WH_JOURNALPLAYBACK}
  17271.   WH_JOURNALPLAYBACK = 1;
  17272.   {$EXTERNALSYM WH_KEYBOARD}
  17273.   WH_KEYBOARD = 2;
  17274.   {$EXTERNALSYM WH_GETMESSAGE}
  17275.   WH_GETMESSAGE = 3;
  17276.   {$EXTERNALSYM WH_CALLWNDPROC}
  17277.   WH_CALLWNDPROC = 4;
  17278.   {$EXTERNALSYM WH_CBT}
  17279.   WH_CBT = 5;
  17280.   {$EXTERNALSYM WH_SYSMSGFILTER}
  17281.   WH_SYSMSGFILTER = 6;
  17282.   {$EXTERNALSYM WH_MOUSE}
  17283.   WH_MOUSE = 7;
  17284.   {$EXTERNALSYM WH_HARDWARE}
  17285.   WH_HARDWARE = 8;
  17286.   {$EXTERNALSYM WH_DEBUG}
  17287.   WH_DEBUG = 9;
  17288.   {$EXTERNALSYM WH_SHELL}
  17289.   WH_SHELL = 10;
  17290.   {$EXTERNALSYM WH_FOREGROUNDIDLE}
  17291.   WH_FOREGROUNDIDLE = 11;
  17292.   {$EXTERNALSYM WH_CALLWNDPROCRET}
  17293.   WH_CALLWNDPROCRET = 12;
  17294.   {$EXTERNALSYM WH_MAX}
  17295.   WH_MAX = 12;
  17296.   {$EXTERNALSYM WH_MINHOOK}
  17297.   WH_MINHOOK = WH_MIN;
  17298.   {$EXTERNALSYM WH_MAXHOOK}
  17299.   WH_MAXHOOK = WH_MAX;
  17300.  
  17301.   { Hook Codes }
  17302.   {$EXTERNALSYM HC_ACTION}
  17303.   HC_ACTION = 0;
  17304.   {$EXTERNALSYM HC_GETNEXT}
  17305.   HC_GETNEXT = 1;
  17306.   {$EXTERNALSYM HC_SKIP}
  17307.   HC_SKIP = 2;
  17308.   {$EXTERNALSYM HC_NOREMOVE}
  17309.   HC_NOREMOVE = 3;
  17310.   {$EXTERNALSYM HC_NOREM}
  17311.   HC_NOREM = HC_NOREMOVE;
  17312.   {$EXTERNALSYM HC_SYSMODALON}
  17313.   HC_SYSMODALON = 4;
  17314.   {$EXTERNALSYM HC_SYSMODALOFF}
  17315.   HC_SYSMODALOFF = 5;
  17316.  
  17317.   { CBT Hook Codes }
  17318.   {$EXTERNALSYM HCBT_MOVESIZE}
  17319.   HCBT_MOVESIZE = 0;
  17320.   {$EXTERNALSYM HCBT_MINMAX}
  17321.   HCBT_MINMAX = 1;
  17322.   {$EXTERNALSYM HCBT_QS}
  17323.   HCBT_QS = 2;
  17324.   {$EXTERNALSYM HCBT_CREATEWND}
  17325.   HCBT_CREATEWND = 3;
  17326.   {$EXTERNALSYM HCBT_DESTROYWND}
  17327.   HCBT_DESTROYWND = 4;
  17328.   {$EXTERNALSYM HCBT_ACTIVATE}
  17329.   HCBT_ACTIVATE = 5;
  17330.   {$EXTERNALSYM HCBT_CLICKSKIPPED}
  17331.   HCBT_CLICKSKIPPED = 6;
  17332.   {$EXTERNALSYM HCBT_KEYSKIPPED}
  17333.   HCBT_KEYSKIPPED = 7;
  17334.   {$EXTERNALSYM HCBT_SYSCOMMAND}
  17335.   HCBT_SYSCOMMAND = 8;
  17336.   {$EXTERNALSYM HCBT_SETFOCUS}
  17337.   HCBT_SETFOCUS = 9;
  17338.  
  17339.  
  17340. type
  17341.   PCreateStructA = ^TCreateStructA;
  17342.   PCreateStructW = ^TCreateStructW;
  17343.   PCreateStruct = PCreateStructA;
  17344.   {$EXTERNALSYM tagCREATESTRUCTA}
  17345.   tagCREATESTRUCTA = packed record
  17346.     lpCreateParams: Pointer;
  17347.     hInstance: HINST;
  17348.     hMenu: HMENU;
  17349.     hwndParent: HWND;
  17350.     cy: Integer;
  17351.     cx: Integer;
  17352.     y: Integer;
  17353.     x: Integer;
  17354.     style: Longint;
  17355.     lpszName: PAnsiChar;
  17356.     lpszClass: PAnsiChar;
  17357.     dwExStyle: DWORD;
  17358.   end;
  17359.   {$EXTERNALSYM tagCREATESTRUCTW}
  17360.   tagCREATESTRUCTW = packed record
  17361.     lpCreateParams: Pointer;
  17362.     hInstance: HINST;
  17363.     hMenu: HMENU;
  17364.     hwndParent: HWND;
  17365.     cy: Integer;
  17366.     cx: Integer;
  17367.     y: Integer;
  17368.     x: Integer;
  17369.     style: Longint;
  17370.     lpszName: PWideChar;
  17371.     lpszClass: PWideChar;
  17372.     dwExStyle: DWORD;
  17373.   end;
  17374.   {$EXTERNALSYM tagCREATESTRUCT}
  17375.   tagCREATESTRUCT = tagCREATESTRUCTA;
  17376.   TCreateStructA = tagCREATESTRUCTA;
  17377.   TCreateStructW = tagCREATESTRUCTW;
  17378.   TCreateStruct = TCreateStructA;
  17379.   {$EXTERNALSYM CREATESTRUCTA}
  17380.   CREATESTRUCTA = tagCREATESTRUCTA;
  17381.   {$EXTERNALSYM CREATESTRUCTW}
  17382.   CREATESTRUCTW = tagCREATESTRUCTW;
  17383.   {$EXTERNALSYM CREATESTRUCT}
  17384.   CREATESTRUCT = CREATESTRUCTA;
  17385.  
  17386.   { HCBT_CREATEWND parameters pointed to by lParam }
  17387.   PCBTCreateWnd = ^TCBTCreateWnd;
  17388.   {$EXTERNALSYM tagCBT_CREATEWNDA}
  17389.   tagCBT_CREATEWNDA = packed record
  17390.     lpcs: PCreateStruct;
  17391.     hwndInsertAfter: HWND;
  17392.   end;
  17393.   TCBTCreateWnd = tagCBT_CREATEWNDA;
  17394.   {$EXTERNALSYM CBT_CREATEWND}
  17395.   CBT_CREATEWND = tagCBT_CREATEWNDA;
  17396.  
  17397.   { HCBT_ACTIVATE structure pointed to by lParam }
  17398.   PCBTActivateStruct = ^TCBTActivateStruct;
  17399.   {$EXTERNALSYM tagCBTACTIVATESTRUCT}
  17400.   tagCBTACTIVATESTRUCT = packed record
  17401.     fMouse: BOOL;
  17402.     hWndActive: HWND;
  17403.   end;
  17404.   TCBTActivateStruct = tagCBTACTIVATESTRUCT;
  17405.   {$EXTERNALSYM CBTACTIVATESTRUCT}
  17406.   CBTACTIVATESTRUCT = tagCBTACTIVATESTRUCT;
  17407.  
  17408. const
  17409.   { WH_MSGFILTER Filter Proc Codes }
  17410.   {$EXTERNALSYM MSGF_DIALOGBOX}
  17411.   MSGF_DIALOGBOX = 0;
  17412.   {$EXTERNALSYM MSGF_MESSAGEBOX}
  17413.   MSGF_MESSAGEBOX = 1;
  17414.   {$EXTERNALSYM MSGF_MENU}
  17415.   MSGF_MENU = 2;
  17416.   {$EXTERNALSYM MSGF_MOVE}
  17417.   MSGF_MOVE = 3;
  17418.   {$EXTERNALSYM MSGF_SIZE}
  17419.   MSGF_SIZE = 4;
  17420.   {$EXTERNALSYM MSGF_SCROLLBAR}
  17421.   MSGF_SCROLLBAR = 5;
  17422.   {$EXTERNALSYM MSGF_NEXTWINDOW}
  17423.   MSGF_NEXTWINDOW = 6;
  17424.   {$EXTERNALSYM MSGF_MAINLOOP}
  17425.   MSGF_MAINLOOP = 8;
  17426.   {$EXTERNALSYM MSGF_MAX}
  17427.   MSGF_MAX = 8;
  17428.   {$EXTERNALSYM MSGF_USER}
  17429.   MSGF_USER = $1000;
  17430.  
  17431.   { Shell support }
  17432.   {$EXTERNALSYM HSHELL_WINDOWCREATED}
  17433.   HSHELL_WINDOWCREATED = 1;
  17434.   {$EXTERNALSYM HSHELL_WINDOWDESTROYED}
  17435.   HSHELL_WINDOWDESTROYED = 2;
  17436.   {$EXTERNALSYM HSHELL_ACTIVATESHELLWINDOW}
  17437.   HSHELL_ACTIVATESHELLWINDOW = 3;
  17438.   {$EXTERNALSYM HSHELL_WINDOWACTIVATED}
  17439.   HSHELL_WINDOWACTIVATED = 4;
  17440.   {$EXTERNALSYM HSHELL_GETMINRECT}
  17441.   HSHELL_GETMINRECT = 5;
  17442.   {$EXTERNALSYM HSHELL_REDRAW}
  17443.   HSHELL_REDRAW = 6;
  17444.   {$EXTERNALSYM HSHELL_TASKMAN}
  17445.   HSHELL_TASKMAN = 7;
  17446.   {$EXTERNALSYM HSHELL_LANGUAGE}
  17447.   HSHELL_LANGUAGE = 8;
  17448.  
  17449.  
  17450. type
  17451.   { Message Structure used in Journaling }
  17452.   PEventMsg = ^TEventMsg;
  17453.   {$EXTERNALSYM tagEVENTMSG}
  17454.   tagEVENTMSG = packed record
  17455.     message: UINT;
  17456.     paramL: UINT;
  17457.     paramH: UINT;
  17458.     time: DWORD;
  17459.     hwnd: HWND;
  17460.   end;
  17461.   TEventMsg = tagEVENTMSG;
  17462.   {$EXTERNALSYM EVENTMSG}
  17463.   EVENTMSG = tagEVENTMSG;
  17464.  
  17465.   { Message structure used by WH_CALLWNDPROC }
  17466.   PCWPStruct = ^TCWPStruct;
  17467.   {$EXTERNALSYM tagCWPSTRUCT}
  17468.   tagCWPSTRUCT = packed record
  17469.     lParam: LPARAM;
  17470.     wParam: WPARAM;
  17471.     message: UINT;
  17472.     hwnd: HWND;
  17473.   end;
  17474.   TCWPStruct = tagCWPSTRUCT;
  17475.   {$EXTERNALSYM CWPSTRUCT}
  17476.   CWPSTRUCT = tagCWPSTRUCT;
  17477.  
  17478.   { Message structure used by WH_CALLWNDPROCRET }
  17479.   PCWPRetStruct = ^TCWPRetStruct;
  17480.   {$EXTERNALSYM tagCWPRETSTRUCT}
  17481.   tagCWPRETSTRUCT = packed record
  17482.     lResult: LRESULT;
  17483.     lParam: LPARAM;
  17484.     wParam: WPARAM;
  17485.     message: UINT;
  17486.     hwnd: HWND;
  17487.   end;
  17488.   TCWPRetStruct = tagCWPRETSTRUCT;
  17489.   {$EXTERNALSYM CWPRETSTRUCT}
  17490.   CWPRETSTRUCT = tagCWPRETSTRUCT;
  17491.  
  17492.   { Structure used by WH_DEBUG }
  17493.   PDebugHookInfo = ^TDebugHookInfo;
  17494.   {$EXTERNALSYM tagDEBUGHOOKINFO}
  17495.   tagDEBUGHOOKINFO = packed record
  17496.     idThread: DWORD;
  17497.     idThreadInstaller: DWORD;
  17498.     lParam: LPARAM;
  17499.     wParam: WPARAM;
  17500.     code: Integer;
  17501.   end;
  17502.   TDebugHookInfo = tagDEBUGHOOKINFO;
  17503.   {$EXTERNALSYM DEBUGHOOKINFO}
  17504.   DEBUGHOOKINFO = tagDEBUGHOOKINFO;
  17505.  
  17506.   { Structure used by WH_MOUSE }
  17507.   PMouseHookStruct = ^TMouseHookStruct;
  17508.   {$EXTERNALSYM tagMOUSEHOOKSTRUCT}
  17509.   tagMOUSEHOOKSTRUCT = packed record
  17510.     pt: TPoint;
  17511.     hwnd: HWND;
  17512.     wHitTestCode: UINT;
  17513.     dwExtraInfo: DWORD;
  17514.   end;
  17515.   TMouseHookStruct = tagMOUSEHOOKSTRUCT;
  17516.   {$EXTERNALSYM MOUSEHOOKSTRUCT}
  17517.   MOUSEHOOKSTRUCT = tagMOUSEHOOKSTRUCT;
  17518.  
  17519.   { Structure used by WH_HARDWARE }
  17520.   PHardwareHookStruct = ^THardwareHookStruct;
  17521.   {$EXTERNALSYM tagHARDWAREHOOKSTRUCT}
  17522.   tagHARDWAREHOOKSTRUCT = packed record
  17523.     hwnd: HWND;
  17524.     message: UINT;
  17525.     wParam: WPARAM;
  17526.     lParam: LPARAM;
  17527.   end;
  17528.   THardwareHookStruct = tagHARDWAREHOOKSTRUCT;
  17529.   {$EXTERNALSYM HARDWAREHOOKSTRUCT}
  17530.   HARDWAREHOOKSTRUCT = tagHARDWAREHOOKSTRUCT;
  17531.  
  17532. const
  17533.   { Keyboard Layout API }
  17534.   {$EXTERNALSYM HKL_PREV}
  17535.   HKL_PREV = 0;
  17536.   {$EXTERNALSYM HKL_NEXT}
  17537.   HKL_NEXT = 1;
  17538.  
  17539.   {$EXTERNALSYM KLF_ACTIVATE}
  17540.   KLF_ACTIVATE = 1;
  17541.   {$EXTERNALSYM KLF_SUBSTITUTE_OK}
  17542.   KLF_SUBSTITUTE_OK = 2;
  17543.   {$EXTERNALSYM KLF_UNLOADPREVIOUS}
  17544.   KLF_UNLOADPREVIOUS = 4;
  17545.   {$EXTERNALSYM KLF_REORDER}
  17546.   KLF_REORDER = 8;
  17547.   {$EXTERNALSYM KLF_REPLACELANG}
  17548.   KLF_REPLACELANG = $10;
  17549.   {$EXTERNALSYM KLF_NOTELLSHELL}
  17550.   KLF_NOTELLSHELL = 128;
  17551.  
  17552.   { Size of KeyboardLayoutName (number of characters), including nul terminator }
  17553.   {$EXTERNALSYM KL_NAMELENGTH}
  17554.   KL_NAMELENGTH = 9;
  17555.  
  17556.  
  17557. {$EXTERNALSYM LoadKeyboardLayoutA}
  17558. function LoadKeyboardLayoutA(pwszKLID: PAnsiChar; Flags: UINT): HKL; stdcall;
  17559. {$EXTERNALSYM LoadKeyboardLayoutW}
  17560. function LoadKeyboardLayoutW(pwszKLID: PWideChar; Flags: UINT): HKL; stdcall;
  17561. {$EXTERNALSYM LoadKeyboardLayout}
  17562. function LoadKeyboardLayout(pwszKLID: PChar; Flags: UINT): HKL; stdcall;
  17563. {$EXTERNALSYM ActivateKeyboardLayout}
  17564. function ActivateKeyboardLayout(hkl: HKL; Flags: UINT): HKL; stdcall;
  17565. {$EXTERNALSYM UnloadKeyboardLayout}
  17566. function UnloadKeyboardLayout(hkl: HKL): BOOL; stdcall;
  17567. {$EXTERNALSYM ToUnicodeEx}
  17568. function ToUnicodeEx(wVirtKey, wScanCode: UINT; lpKeyState: PByte;
  17569.   pwszBuff: PWideChar; cchBuff: Integer; wFlags: UINT; dwhkl: HKL): Integer; stdcall;
  17570. {$EXTERNALSYM GetKeyboardLayoutNameA}
  17571. function GetKeyboardLayoutNameA(pwszKLID: PAnsiChar): BOOL; stdcall;
  17572. {$EXTERNALSYM GetKeyboardLayoutNameW}
  17573. function GetKeyboardLayoutNameW(pwszKLID: PWideChar): BOOL; stdcall;
  17574. {$EXTERNALSYM GetKeyboardLayoutName}
  17575. function GetKeyboardLayoutName(pwszKLID: PChar): BOOL; stdcall;
  17576. {$EXTERNALSYM GetKeyboardLayoutList}
  17577. function GetKeyboardLayoutList(nBuff: Integer; var List): UINT; stdcall;
  17578. {$EXTERNALSYM GetKeyboardLayout}
  17579. function GetKeyboardLayout(dwLayout: DWORD): HKL; stdcall;
  17580.  
  17581.  
  17582. const
  17583.   { Desktop-specific access flags }
  17584.   {$EXTERNALSYM DESKTOP_READOBJECTS}
  17585.   DESKTOP_READOBJECTS = 1;
  17586.   {$EXTERNALSYM DESKTOP_CREATEWINDOW}
  17587.   DESKTOP_CREATEWINDOW = 2;
  17588.   {$EXTERNALSYM DESKTOP_CREATEMENU}
  17589.   DESKTOP_CREATEMENU = 4;
  17590.   {$EXTERNALSYM DESKTOP_HOOKCONTROL}
  17591.   DESKTOP_HOOKCONTROL = 8;
  17592.   {$EXTERNALSYM DESKTOP_JOURNALRECORD}
  17593.   DESKTOP_JOURNALRECORD = $10;
  17594.   {$EXTERNALSYM DESKTOP_JOURNALPLAYBACK}
  17595.   DESKTOP_JOURNALPLAYBACK = $20;
  17596.   {$EXTERNALSYM DESKTOP_ENUMERATE}
  17597.   DESKTOP_ENUMERATE = $40;
  17598.   {$EXTERNALSYM DESKTOP_WRITEOBJECTS}
  17599.   DESKTOP_WRITEOBJECTS = 128;
  17600.   {$EXTERNALSYM DESKTOP_SWITCHDESKTOP}
  17601.   DESKTOP_SWITCHDESKTOP = $100;
  17602.  
  17603.   { Desktop-specific control flags }
  17604.   {$EXTERNALSYM DF_ALLOWOTHERACCOUNTHOOK}
  17605.   DF_ALLOWOTHERACCOUNTHOOK = 1;
  17606.  
  17607.  
  17608. {$EXTERNALSYM CreateDesktopA}
  17609. function CreateDesktopA(lpszDesktop, lpszDevice: PAnsiChar;
  17610.   pDevmode: PDeviceModeA; dwFlags: DWORD; dwDesiredAccess:
  17611.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  17612. {$EXTERNALSYM CreateDesktopW}
  17613. function CreateDesktopW(lpszDesktop, lpszDevice: PWideChar;
  17614.   pDevmode: PDeviceModeW; dwFlags: DWORD; dwDesiredAccess:
  17615.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  17616. {$EXTERNALSYM CreateDesktop}
  17617. function CreateDesktop(lpszDesktop, lpszDevice: PChar;
  17618.   pDevmode: PDeviceMode; dwFlags: DWORD; dwDesiredAccess:
  17619.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  17620. {$EXTERNALSYM OpenDesktopA}
  17621. function OpenDesktopA(lpszDesktop: PAnsiChar; dwFlags: DWORD; fInherit: BOOL;
  17622.   dwDesiredAccess: DWORD): HDESK; stdcall;
  17623. {$EXTERNALSYM OpenDesktopW}
  17624. function OpenDesktopW(lpszDesktop: PWideChar; dwFlags: DWORD; fInherit: BOOL;
  17625.   dwDesiredAccess: DWORD): HDESK; stdcall;
  17626. {$EXTERNALSYM OpenDesktop}
  17627. function OpenDesktop(lpszDesktop: PChar; dwFlags: DWORD; fInherit: BOOL;
  17628.   dwDesiredAccess: DWORD): HDESK; stdcall;
  17629. {$EXTERNALSYM EnumDesktopsA}
  17630. function EnumDesktopsA(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  17631. {$EXTERNALSYM EnumDesktopsW}
  17632. function EnumDesktopsW(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  17633. {$EXTERNALSYM EnumDesktops}
  17634. function EnumDesktops(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  17635. {$EXTERNALSYM OpenInputDesktop}
  17636. function OpenInputDesktop(dwFlags: DWORD; fInherit: BOOL; dwDesiredAccess: DWORD): HDESK; stdcall;
  17637. {$EXTERNALSYM EnumDesktopWindows}
  17638. function EnumDesktopWindows(hDesktop: HDESK; lpfn: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  17639. {$EXTERNALSYM SwitchDesktop}
  17640. function SwitchDesktop(hDesktop: HDESK): BOOL; stdcall;
  17641. {$EXTERNALSYM SetThreadDesktop}
  17642. function SetThreadDesktop(hDesktop: HDESK): BOOL; stdcall;
  17643. {$EXTERNALSYM CloseDesktop}
  17644. function CloseDesktop(hDesktop: HDESK): BOOL; stdcall;
  17645. {$EXTERNALSYM GetThreadDesktop}
  17646. function GetThreadDesktop(dwThreadId: DWORD): HDESK; stdcall;
  17647.  
  17648. const
  17649.   { Windowstation-specific access flags }
  17650.   {$EXTERNALSYM WINSTA_ENUMDESKTOPS}
  17651.   WINSTA_ENUMDESKTOPS = 1;
  17652.   {$EXTERNALSYM WINSTA_READATTRIBUTES}
  17653.   WINSTA_READATTRIBUTES = 2;
  17654.   {$EXTERNALSYM WINSTA_ACCESSCLIPBOARD}
  17655.   WINSTA_ACCESSCLIPBOARD = 4;
  17656.   {$EXTERNALSYM WINSTA_CREATEDESKTOP}
  17657.   WINSTA_CREATEDESKTOP = 8;
  17658.   {$EXTERNALSYM WINSTA_WRITEATTRIBUTES}
  17659.   WINSTA_WRITEATTRIBUTES = $10;
  17660.   {$EXTERNALSYM WINSTA_ACCESSGLOBALATOMS}
  17661.   WINSTA_ACCESSGLOBALATOMS = $20;
  17662.   {$EXTERNALSYM WINSTA_EXITWINDOWS}
  17663.   WINSTA_EXITWINDOWS = $40;
  17664.   {$EXTERNALSYM WINSTA_ENUMERATE}
  17665.   WINSTA_ENUMERATE = $100;
  17666.   {$EXTERNALSYM WINSTA_READSCREEN}
  17667.   WINSTA_READSCREEN = $200;
  17668.  
  17669.   { Windowstation-specific attribute flags }
  17670.   {$EXTERNALSYM WSF_VISIBLE}
  17671.   WSF_VISIBLE = 1;
  17672.  
  17673. {$EXTERNALSYM CreateWindowStationA}
  17674. function CreateWindowStationA(lpwinsta: PAnsiChar; dwReserved, dwDesiredAccess: DWORD;
  17675.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  17676. {$EXTERNALSYM CreateWindowStationW}
  17677. function CreateWindowStationW(lpwinsta: PWideChar; dwReserved, dwDesiredAccess: DWORD;
  17678.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  17679. {$EXTERNALSYM CreateWindowStation}
  17680. function CreateWindowStation(lpwinsta: PChar; dwReserved, dwDesiredAccess: DWORD;
  17681.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  17682. {$EXTERNALSYM OpenWindowStationA}
  17683. function OpenWindowStationA(lpszWinSta: PAnsiChar; fInherit: BOOL;
  17684.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  17685. {$EXTERNALSYM OpenWindowStationW}
  17686. function OpenWindowStationW(lpszWinSta: PWideChar; fInherit: BOOL;
  17687.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  17688. {$EXTERNALSYM OpenWindowStation}
  17689. function OpenWindowStation(lpszWinSta: PChar; fInherit: BOOL;
  17690.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  17691. {$EXTERNALSYM EnumWindowStationsA}
  17692. function EnumWindowStationsA(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  17693. {$EXTERNALSYM EnumWindowStationsW}
  17694. function EnumWindowStationsW(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  17695. {$EXTERNALSYM EnumWindowStations}
  17696. function EnumWindowStations(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  17697. {$EXTERNALSYM CloseWindowStation}
  17698. function CloseWindowStation(hWinSta: HWINSTA): BOOL; stdcall;
  17699. {$EXTERNALSYM SetProcessWindowStation}
  17700. function SetProcessWindowStation(hWinSta: HWINSTA): BOOL; stdcall;
  17701. {$EXTERNALSYM GetProcessWindowStation}
  17702. function GetProcessWindowStation: HWINSTA; stdcall;
  17703. {$EXTERNALSYM SetUserObjectSecurity}
  17704. function SetUserObjectSecurity(hObj: THandle; var pSIRequested: DWORD;
  17705.   pSID: PSecurityDescriptor): BOOL; stdcall;
  17706. {$EXTERNALSYM GetUserObjectSecurity}
  17707. function GetUserObjectSecurity(hObj: THandle; var pSIRequested: DWORD;
  17708.   pSID: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  17709.  
  17710. const
  17711.   {$EXTERNALSYM UOI_FLAGS}
  17712.   UOI_FLAGS = 1;
  17713.   {$EXTERNALSYM UOI_NAME}
  17714.   UOI_NAME = 2;
  17715.   {$EXTERNALSYM UOI_TYPE}
  17716.   UOI_TYPE = 3;
  17717.   {$EXTERNALSYM UOI_USER_SID}
  17718.   UOI_USER_SID = 4;
  17719.  
  17720. type
  17721.   PUserObjectFlags = ^TUserObjectFlags;
  17722.   {$EXTERNALSYM tagUSEROBJECTFLAGS}
  17723.   tagUSEROBJECTFLAGS = packed record
  17724.     fInherit: BOOL;
  17725.     fReserved: BOOL;
  17726.     dwFlags: DWORD;
  17727.   end;
  17728.   TUserObjectFlags = tagUSEROBJECTFLAGS;
  17729.   {$EXTERNALSYM USEROBJECTFLAGS}
  17730.   USEROBJECTFLAGS = tagUSEROBJECTFLAGS;
  17731.  
  17732. {$EXTERNALSYM GetUserObjectInformationA}
  17733. function GetUserObjectInformationA(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  17734.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  17735. {$EXTERNALSYM GetUserObjectInformationW}
  17736. function GetUserObjectInformationW(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  17737.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  17738. {$EXTERNALSYM GetUserObjectInformation}
  17739. function GetUserObjectInformation(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  17740.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  17741. {$EXTERNALSYM SetUserObjectInformationA}
  17742. function SetUserObjectInformationA(hObj: THandle; nIndex: Integer;
  17743.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  17744. {$EXTERNALSYM SetUserObjectInformationW}
  17745. function SetUserObjectInformationW(hObj: THandle; nIndex: Integer;
  17746.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  17747. {$EXTERNALSYM SetUserObjectInformation}
  17748. function SetUserObjectInformation(hObj: THandle; nIndex: Integer;
  17749.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  17750.  
  17751. type
  17752.   PWndClassExA = ^TWndClassExA;
  17753.   PWndClassExW = ^TWndClassExW;
  17754.   PWndClassEx = PWndClassExA;
  17755.   {$EXTERNALSYM tagWNDCLASSEXA}
  17756.   tagWNDCLASSEXA = packed record
  17757.     cbSize: UINT;
  17758.     style: UINT;
  17759.     lpfnWndProc: TFNWndProc;
  17760.     cbClsExtra: Integer;
  17761.     cbWndExtra: Integer;
  17762.     hInstance: HINST;
  17763.     hIcon: HICON;
  17764.     hCursor: HCURSOR;
  17765.     hbrBackground: HBRUSH;
  17766.     lpszMenuName: PAnsiChar;
  17767.     lpszClassName: PAnsiChar;
  17768.     hIconSm: HICON;
  17769.   end;
  17770.   {$EXTERNALSYM tagWNDCLASSEXW}
  17771.   tagWNDCLASSEXW = packed record
  17772.     cbSize: UINT;
  17773.     style: UINT;
  17774.     lpfnWndProc: TFNWndProc;
  17775.     cbClsExtra: Integer;
  17776.     cbWndExtra: Integer;
  17777.     hInstance: HINST;
  17778.     hIcon: HICON;
  17779.     hCursor: HCURSOR;
  17780.     hbrBackground: HBRUSH;
  17781.     lpszMenuName: PWideChar;
  17782.     lpszClassName: PWideChar;
  17783.     hIconSm: HICON;
  17784.   end;
  17785.   {$EXTERNALSYM tagWNDCLASSEX}
  17786.   tagWNDCLASSEX = tagWNDCLASSEXA;
  17787.   TWndClassExA = tagWNDCLASSEXA;
  17788.   TWndClassExW = tagWNDCLASSEXW;
  17789.   TWndClassEx = TWndClassExA;
  17790.   {$EXTERNALSYM WNDCLASSEXA}
  17791.   WNDCLASSEXA = tagWNDCLASSEXA;
  17792.   {$EXTERNALSYM WNDCLASSEXW}
  17793.   WNDCLASSEXW = tagWNDCLASSEXW;
  17794.   {$EXTERNALSYM WNDCLASSEX}
  17795.   WNDCLASSEX = WNDCLASSEXA;
  17796.  
  17797.   PWndClassA = ^TWndClassA;
  17798.   PWndClassW = ^TWndClassW;
  17799.   PWndClass = PWndClassA;
  17800.   {$EXTERNALSYM tagWNDCLASSA}
  17801.   tagWNDCLASSA = packed record
  17802.     style: UINT;
  17803.     lpfnWndProc: TFNWndProc;
  17804.     cbClsExtra: Integer;
  17805.     cbWndExtra: Integer;
  17806.     hInstance: HINST;
  17807.     hIcon: HICON;
  17808.     hCursor: HCURSOR;
  17809.     hbrBackground: HBRUSH;
  17810.     lpszMenuName: PAnsiChar;
  17811.     lpszClassName: PAnsiChar;
  17812.   end;
  17813.   {$EXTERNALSYM tagWNDCLASSW}
  17814.   tagWNDCLASSW = packed record
  17815.     style: UINT;
  17816.     lpfnWndProc: TFNWndProc;
  17817.     cbClsExtra: Integer;
  17818.     cbWndExtra: Integer;
  17819.     hInstance: HINST;
  17820.     hIcon: HICON;
  17821.     hCursor: HCURSOR;
  17822.     hbrBackground: HBRUSH;
  17823.     lpszMenuName: PWideChar;
  17824.     lpszClassName: PWideChar;
  17825.   end;
  17826.   {$EXTERNALSYM tagWNDCLASS}
  17827.   tagWNDCLASS = tagWNDCLASSA;
  17828.   TWndClassA = tagWNDCLASSA;
  17829.   TWndClassW = tagWNDCLASSW;
  17830.   TWndClass = TWndClassA;
  17831.   {$EXTERNALSYM WNDCLASSA}
  17832.   WNDCLASSA = tagWNDCLASSA;
  17833.   {$EXTERNALSYM WNDCLASSW}
  17834.   WNDCLASSW = tagWNDCLASSW;
  17835.   {$EXTERNALSYM WNDCLASS}
  17836.   WNDCLASS = WNDCLASSA;
  17837.  
  17838. { Message structure }
  17839.   PMsg = ^TMsg;
  17840.   {$EXTERNALSYM tagMSG}
  17841.   tagMSG = packed record
  17842.     hwnd: HWND;
  17843.     message: UINT;
  17844.     wParam: WPARAM;
  17845.     lParam: LPARAM;
  17846.     time: DWORD;
  17847.     pt: TPoint;
  17848.   end;
  17849.   TMsg = tagMSG;
  17850.   {$EXTERNALSYM MSG}
  17851.   MSG = tagMSG;
  17852.  
  17853. function SmallPointToPoint(const P: TSmallPoint): TPoint;
  17854. function PointToSmallPoint(const P: TPoint): TSmallPoint;
  17855. function MakeWParam(l, h: Word): WPARAM;
  17856. function MakeLParam(l, h: Word): LPARAM;
  17857. function MakeLResult(l, h: Word): LRESULT;
  17858.  
  17859.  
  17860. const
  17861. { Window field offsets for GetWindowLong() }
  17862.  
  17863.   {$EXTERNALSYM GWL_WNDPROC}
  17864.   GWL_WNDPROC = -4;
  17865.   {$EXTERNALSYM GWL_HINSTANCE}
  17866.   GWL_HINSTANCE = -6;
  17867.   {$EXTERNALSYM GWL_HWNDPARENT}
  17868.   GWL_HWNDPARENT = -8;
  17869.   {$EXTERNALSYM GWL_STYLE}
  17870.   GWL_STYLE = -16;
  17871.   {$EXTERNALSYM GWL_EXSTYLE}
  17872.   GWL_EXSTYLE = -20;
  17873.   {$EXTERNALSYM GWL_USERDATA}
  17874.   GWL_USERDATA = -21;
  17875.   {$EXTERNALSYM GWL_ID}
  17876.   GWL_ID = -12;
  17877.  
  17878.   { Class field offsets for GetClassLong() }
  17879.   {$EXTERNALSYM GCL_MENUNAME}
  17880.   GCL_MENUNAME = -8;
  17881.   {$EXTERNALSYM GCL_HBRBACKGROUND}
  17882.   GCL_HBRBACKGROUND = -10;
  17883.   {$EXTERNALSYM GCL_HCURSOR}
  17884.   GCL_HCURSOR = -12;
  17885.   {$EXTERNALSYM GCL_HICON}
  17886.   GCL_HICON = -14;
  17887.   {$EXTERNALSYM GCL_HMODULE}
  17888.   GCL_HMODULE = -16;
  17889.   {$EXTERNALSYM GCL_CBWNDEXTRA}
  17890.   GCL_CBWNDEXTRA = -18;
  17891.   {$EXTERNALSYM GCL_CBCLSEXTRA}
  17892.   GCL_CBCLSEXTRA = -20;
  17893.   {$EXTERNALSYM GCL_WNDPROC}
  17894.   GCL_WNDPROC = -24;
  17895.   {$EXTERNALSYM GCL_STYLE}
  17896.   GCL_STYLE = -26;
  17897.   {$EXTERNALSYM GCW_ATOM}
  17898.   GCW_ATOM = -32;
  17899.   {$EXTERNALSYM GCL_HICONSM}
  17900.   GCL_HICONSM = -34;
  17901.  
  17902. const
  17903.   { WM_ACTIVATE state values }
  17904.   {$EXTERNALSYM WA_INACTIVE}
  17905.   WA_INACTIVE = 0;
  17906.   {$EXTERNALSYM WA_ACTIVE}
  17907.   WA_ACTIVE = 1;
  17908.   {$EXTERNALSYM WA_CLICKACTIVE}
  17909.   WA_CLICKACTIVE = 2;
  17910.  
  17911. type
  17912.   { Struct pointed to by WM_GETMINMAXINFO lParam }
  17913.   PMinMaxInfo = ^TMinMaxInfo;
  17914.   {$EXTERNALSYM tagMINMAXINFO}
  17915.   tagMINMAXINFO = packed record
  17916.     ptReserved: TPoint;
  17917.     ptMaxSize: TPoint;
  17918.     ptMaxPosition: TPoint;
  17919.     ptMinTrackSize: TPoint;
  17920.     ptMaxTrackSize: TPoint;
  17921.   end;
  17922.   TMinMaxInfo = tagMINMAXINFO;
  17923.   {$EXTERNALSYM MINMAXINFO}
  17924.   MINMAXINFO = tagMINMAXINFO;
  17925.  
  17926. const
  17927.   { wParam for WM_POWER window message and DRV_POWER driver notification }
  17928.   {$EXTERNALSYM PWR_OK}
  17929.   PWR_OK = 1;
  17930.   {$EXTERNALSYM PWR_FAIL}
  17931.   PWR_FAIL = -1;
  17932.   {$EXTERNALSYM PWR_SUSPENDREQUEST}
  17933.   PWR_SUSPENDREQUEST = 1;
  17934.   {$EXTERNALSYM PWR_SUSPENDRESUME}
  17935.   PWR_SUSPENDRESUME = 2;
  17936.   {$EXTERNALSYM PWR_CRITICALRESUME}
  17937.   PWR_CRITICALRESUME = 3;
  17938.  
  17939. type
  17940.   { lParam of WM_COPYDATA message points to... }
  17941.   PCopyDataStruct = ^TCopyDataStruct;
  17942.   {$EXTERNALSYM tagCOPYDATASTRUCT}
  17943.   tagCOPYDATASTRUCT = packed record
  17944.     dwData: DWORD;
  17945.     cbData: DWORD;
  17946.     lpData: Pointer;
  17947.   end;
  17948.   TCopyDataStruct = tagCOPYDATASTRUCT;
  17949.   {$EXTERNALSYM COPYDATASTRUCT}
  17950.   COPYDATASTRUCT = tagCOPYDATASTRUCT;
  17951.  
  17952. const
  17953.   {$EXTERNALSYM NFR_ANSI}
  17954.   NFR_ANSI = 1;
  17955.   {$EXTERNALSYM NFR_UNICODE}
  17956.   NFR_UNICODE = 2;
  17957.   {$EXTERNALSYM NF_QUERY}
  17958.   NF_QUERY = 3;
  17959.   {$EXTERNALSYM NF_REQUERY}
  17960.   NF_REQUERY = 4;
  17961.  
  17962.   {$EXTERNALSYM WHEEL_DELTA}
  17963.   WHEEL_DELTA = 120;            { Value for rolling one detent }
  17964.   {$EXTERNALSYM WHEEL_PAGESCROLL}
  17965.   WHEEL_PAGESCROLL = MAXDWORD;  { Scroll one page }
  17966.  
  17967.   {$EXTERNALSYM MENULOOP_WINDOW}
  17968.   MENULOOP_WINDOW = 0;
  17969.   {$EXTERNALSYM MENULOOP_POPUP}
  17970.   MENULOOP_POPUP = 1;
  17971.  
  17972. type
  17973.   PMDINextMenu = ^TMDINextMenu;
  17974.   {$EXTERNALSYM tagMDINEXTMENU}
  17975.   tagMDINEXTMENU = packed record
  17976.     hmenuIn: HMENU;
  17977.     hmenuNext: HMENU;
  17978.     hwndNext: HWND;
  17979.   end;
  17980.   TMDINextMenu = tagMDINEXTMENU;
  17981.   {$EXTERNALSYM MDINEXTMENU}
  17982.   MDINEXTMENU = tagMDINEXTMENU;
  17983.  
  17984. const
  17985.   { wParam for WM_NOTIFYWOW message  }
  17986.  
  17987.   { wParam for WM_SIZING message  }
  17988.   {$EXTERNALSYM WMSZ_LEFT}
  17989.   WMSZ_LEFT = 1;
  17990.   {$EXTERNALSYM WMSZ_RIGHT}
  17991.   WMSZ_RIGHT = 2;
  17992.   {$EXTERNALSYM WMSZ_TOP}
  17993.   WMSZ_TOP = 3;
  17994.   {$EXTERNALSYM WMSZ_TOPLEFT}
  17995.   WMSZ_TOPLEFT = 4;
  17996.   {$EXTERNALSYM WMSZ_TOPRIGHT}
  17997.   WMSZ_TOPRIGHT = 5;
  17998.   {$EXTERNALSYM WMSZ_BOTTOM}
  17999.   WMSZ_BOTTOM = 6;
  18000.   {$EXTERNALSYM WMSZ_BOTTOMLEFT}
  18001.   WMSZ_BOTTOMLEFT = 7;
  18002.   {$EXTERNALSYM WMSZ_BOTTOMRIGHT}
  18003.   WMSZ_BOTTOMRIGHT = 8;
  18004.  
  18005.   { WM_SYNCTASK Commands }
  18006.   {$EXTERNALSYM ST_BEGINSWP}
  18007.   ST_BEGINSWP = 0;
  18008.   {$EXTERNALSYM ST_ENDSWP}
  18009.   ST_ENDSWP = 1;
  18010.  
  18011.   { WM_NCHITTEST and MOUSEHOOKSTRUCT Mouse Position Codes }
  18012.   {$EXTERNALSYM HTERROR}
  18013.   HTERROR = -2;
  18014.   {$EXTERNALSYM HTTRANSPARENT}
  18015.   HTTRANSPARENT = -1;
  18016.   {$EXTERNALSYM HTNOWHERE}
  18017.   HTNOWHERE = 0;
  18018.   {$EXTERNALSYM HTCLIENT}
  18019.   HTCLIENT = 1;
  18020.   {$EXTERNALSYM HTCAPTION}
  18021.   HTCAPTION = 2;
  18022.   {$EXTERNALSYM HTSYSMENU}
  18023.   HTSYSMENU = 3;
  18024.   {$EXTERNALSYM HTGROWBOX}
  18025.   HTGROWBOX = 4;
  18026.   {$EXTERNALSYM HTSIZE}
  18027.   HTSIZE = HTGROWBOX;
  18028.   {$EXTERNALSYM HTMENU}
  18029.   HTMENU = 5;
  18030.   {$EXTERNALSYM HTHSCROLL}
  18031.   HTHSCROLL = 6;
  18032.   {$EXTERNALSYM HTVSCROLL}
  18033.   HTVSCROLL = 7;
  18034.   {$EXTERNALSYM HTMINBUTTON}
  18035.   HTMINBUTTON = 8;
  18036.   {$EXTERNALSYM HTMAXBUTTON}
  18037.   HTMAXBUTTON = 9;
  18038.   {$EXTERNALSYM HTLEFT}
  18039.   HTLEFT = 10;
  18040.   {$EXTERNALSYM HTRIGHT}
  18041.   HTRIGHT = 11;
  18042.   {$EXTERNALSYM HTTOP}
  18043.   HTTOP = 12;
  18044.   {$EXTERNALSYM HTTOPLEFT}
  18045.   HTTOPLEFT = 13;
  18046.   {$EXTERNALSYM HTTOPRIGHT}
  18047.   HTTOPRIGHT = 14;
  18048.   {$EXTERNALSYM HTBOTTOM}
  18049.   HTBOTTOM = 15;
  18050.   {$EXTERNALSYM HTBOTTOMLEFT}
  18051.   HTBOTTOMLEFT = $10;
  18052.   {$EXTERNALSYM HTBOTTOMRIGHT}
  18053.   HTBOTTOMRIGHT = 17;
  18054.   {$EXTERNALSYM HTBORDER}
  18055.   HTBORDER = 18;
  18056.   {$EXTERNALSYM HTREDUCE}
  18057.   HTREDUCE = HTMINBUTTON;
  18058.   {$EXTERNALSYM HTZOOM}
  18059.   HTZOOM = HTMAXBUTTON;
  18060.   {$EXTERNALSYM HTSIZEFIRST}
  18061.   HTSIZEFIRST = HTLEFT;
  18062.   {$EXTERNALSYM HTSIZELAST}
  18063.   HTSIZELAST = HTBOTTOMRIGHT;
  18064.   {$EXTERNALSYM HTOBJECT}
  18065.   HTOBJECT = 19;
  18066.   {$EXTERNALSYM HTCLOSE}
  18067.   HTCLOSE = 20;
  18068.   {$EXTERNALSYM HTHELP}
  18069.   HTHELP = 21;
  18070.  
  18071.   { SendMessageTimeout values }
  18072.   {$EXTERNALSYM SMTO_NORMAL}
  18073.   SMTO_NORMAL = 0;
  18074.   {$EXTERNALSYM SMTO_BLOCK}
  18075.   SMTO_BLOCK = 1;
  18076.   {$EXTERNALSYM SMTO_ABORTIFHUNG}
  18077.   SMTO_ABORTIFHUNG = 2;
  18078.  
  18079.   { WM_MOUSEACTIVATE Return Codes }
  18080.   {$EXTERNALSYM MA_ACTIVATE}
  18081.   MA_ACTIVATE = 1;
  18082.   {$EXTERNALSYM MA_ACTIVATEANDEAT}
  18083.   MA_ACTIVATEANDEAT = 2;
  18084.   {$EXTERNALSYM MA_NOACTIVATE}
  18085.   MA_NOACTIVATE = 3;
  18086.   {$EXTERNALSYM MA_NOACTIVATEANDEAT}
  18087.   MA_NOACTIVATEANDEAT = 4;
  18088.  
  18089.   { WM_SETICON / WM_GETICON Type Codes }
  18090.   {$EXTERNALSYM ICON_SMALL}
  18091.   ICON_SMALL = 0;
  18092.   {$EXTERNALSYM ICON_BIG}
  18093.   ICON_BIG = 1;
  18094.  
  18095. {$EXTERNALSYM RegisterWindowMessageA}
  18096. function RegisterWindowMessageA(lpString: PAnsiChar): UINT; stdcall;
  18097. {$EXTERNALSYM RegisterWindowMessageW}
  18098. function RegisterWindowMessageW(lpString: PWideChar): UINT; stdcall;
  18099. {$EXTERNALSYM RegisterWindowMessage}
  18100. function RegisterWindowMessage(lpString: PChar): UINT; stdcall;
  18101.  
  18102. const
  18103.   { WM_SIZE message wParam values }
  18104.   {$EXTERNALSYM SIZE_RESTORED}
  18105.   SIZE_RESTORED = 0;
  18106.   {$EXTERNALSYM SIZE_MINIMIZED}
  18107.   SIZE_MINIMIZED = 1;
  18108.   {$EXTERNALSYM SIZE_MAXIMIZED}
  18109.   SIZE_MAXIMIZED = 2;
  18110.   {$EXTERNALSYM SIZE_MAXSHOW}
  18111.   SIZE_MAXSHOW = 3;
  18112.   {$EXTERNALSYM SIZE_MAXHIDE}
  18113.   SIZE_MAXHIDE = 4;
  18114.  
  18115.   { Obsolete constant names }
  18116.   {$EXTERNALSYM SIZENORMAL}
  18117.   SIZENORMAL = SIZE_RESTORED;
  18118.   {$EXTERNALSYM SIZEICONIC}
  18119.   SIZEICONIC = SIZE_MINIMIZED;
  18120.   {$EXTERNALSYM SIZEFULLSCREEN}
  18121.   SIZEFULLSCREEN = SIZE_MAXIMIZED;
  18122.   {$EXTERNALSYM SIZEZOOMSHOW}
  18123.   SIZEZOOMSHOW = SIZE_MAXSHOW;
  18124.   {$EXTERNALSYM SIZEZOOMHIDE}
  18125.   SIZEZOOMHIDE = SIZE_MAXHIDE;
  18126.  
  18127.  
  18128. type
  18129.   { WM_WINDOWPOSCHANGINGCHANGED struct pointed to by lParam }
  18130.   PWindowPos = ^TWindowPos;
  18131.   {$EXTERNALSYM tagWINDOWPOS}
  18132.   tagWINDOWPOS = packed record
  18133.     hwnd: HWND;
  18134.     hwndInsertAfter: HWND;
  18135.     x: Integer;
  18136.     y: Integer;
  18137.     cx: Integer;
  18138.     cy: Integer;
  18139.     flags: UINT;
  18140.   end;
  18141.   TWindowPos = tagWINDOWPOS;
  18142.   {$EXTERNALSYM WINDOWPOS}
  18143.   WINDOWPOS = tagWINDOWPOS;
  18144.  
  18145.   { WM_NCCALCSIZE parameter structure }
  18146.   PNCCalcSizeParams = ^TNCCalcSizeParams;
  18147.   {$EXTERNALSYM tagNCCALCSIZE_PARAMS}
  18148.   tagNCCALCSIZE_PARAMS = packed record
  18149.     rgrc: array[0..2] of TRect;
  18150.     lppos: PWindowPos;
  18151.   end;
  18152.   TNCCalcSizeParams = tagNCCALCSIZE_PARAMS;
  18153.   {$EXTERNALSYM NCCALCSIZE_PARAMS}
  18154.   NCCALCSIZE_PARAMS = tagNCCALCSIZE_PARAMS;
  18155.  
  18156.  
  18157. const
  18158.   { WM_NCCALCSIZE "window valid rect" return values }
  18159.   {$EXTERNALSYM WVR_ALIGNTOP}
  18160.   WVR_ALIGNTOP = $10;
  18161.   {$EXTERNALSYM WVR_ALIGNLEFT}
  18162.   WVR_ALIGNLEFT = $20;
  18163.   {$EXTERNALSYM WVR_ALIGNBOTTOM}
  18164.   WVR_ALIGNBOTTOM = $40;
  18165.   {$EXTERNALSYM WVR_ALIGNRIGHT}
  18166.   WVR_ALIGNRIGHT = $80;
  18167.   {$EXTERNALSYM WVR_HREDRAW}
  18168.   WVR_HREDRAW = $100;
  18169.   {$EXTERNALSYM WVR_VREDRAW}
  18170.   WVR_VREDRAW = $200;
  18171.   {$EXTERNALSYM WVR_REDRAW}
  18172.   WVR_REDRAW = (WVR_HREDRAW or WVR_VREDRAW);
  18173.   {$EXTERNALSYM WVR_VALIDRECTS}
  18174.   WVR_VALIDRECTS = $400;
  18175.  
  18176.   { Key State Masks for Mouse Messages }
  18177.   {$EXTERNALSYM MK_LBUTTON}
  18178.   MK_LBUTTON = 1;
  18179.   {$EXTERNALSYM MK_RBUTTON}
  18180.   MK_RBUTTON = 2;
  18181.   {$EXTERNALSYM MK_SHIFT}
  18182.   MK_SHIFT = 4;
  18183.   {$EXTERNALSYM MK_CONTROL}
  18184.   MK_CONTROL = 8;
  18185.   {$EXTERNALSYM MK_MBUTTON}
  18186.   MK_MBUTTON = $10;
  18187.  
  18188.   {$EXTERNALSYM TME_HOVER}
  18189.   TME_HOVER           = $00000001;
  18190.   {$EXTERNALSYM TME_LEAVE}
  18191.   TME_LEAVE           = $00000002;
  18192.   {$EXTERNALSYM TME_QUERY}
  18193.   TME_QUERY           = $40000000;
  18194.   {$EXTERNALSYM TME_CANCEL}
  18195.   TME_CANCEL          = $80000000;
  18196.  
  18197.   {$EXTERNALSYM HOVER_DEFAULT}
  18198.   HOVER_DEFAULT       = $FFFFFFFF;
  18199.  
  18200. type
  18201.   {$EXTERNALSYM PTrackMouseEvent}
  18202.   PTrackMouseEvent = ^TTrackMouseEvent;
  18203.   {$EXTERNALSYM tagTRACKMOUSEEVENT}
  18204.   tagTRACKMOUSEEVENT = record
  18205.     cbSize: DWORD;
  18206.     dwFlags: DWORD;
  18207.     hwndTrack: HWND;
  18208.     dwHoverTime: DWORD;
  18209.   end;
  18210.   TTrackMouseEvent = tagTRACKMOUSEEVENT;
  18211.   {$EXTERNALSYM TTrackMouseEvent}
  18212.  
  18213. {$EXTERNALSYM TrackMouseEvent}
  18214. function TrackMouseEvent(var EventTrack: TTrackMouseEvent): BOOL; stdcall;
  18215.  
  18216. const
  18217.   { Window Styles }
  18218.   {$EXTERNALSYM WS_OVERLAPPED}
  18219.   WS_OVERLAPPED = 0;
  18220.   {$EXTERNALSYM WS_POPUP}
  18221.   WS_POPUP = $80000000;
  18222.   {$EXTERNALSYM WS_CHILD}
  18223.   WS_CHILD = $40000000;
  18224.   {$EXTERNALSYM WS_MINIMIZE}
  18225.   WS_MINIMIZE = $20000000;
  18226.   {$EXTERNALSYM WS_VISIBLE}
  18227.   WS_VISIBLE = $10000000;
  18228.   {$EXTERNALSYM WS_DISABLED}
  18229.   WS_DISABLED = $8000000;
  18230.   {$EXTERNALSYM WS_CLIPSIBLINGS}
  18231.   WS_CLIPSIBLINGS = $4000000;
  18232.   {$EXTERNALSYM WS_CLIPCHILDREN}
  18233.   WS_CLIPCHILDREN = $2000000;
  18234.   {$EXTERNALSYM WS_MAXIMIZE}
  18235.   WS_MAXIMIZE = $1000000;
  18236.   {$EXTERNALSYM WS_CAPTION}
  18237.   WS_CAPTION = $C00000;      { WS_BORDER or WS_DLGFRAME  }
  18238.   {$EXTERNALSYM WS_BORDER}
  18239.   WS_BORDER = $800000;
  18240.   {$EXTERNALSYM WS_DLGFRAME}
  18241.   WS_DLGFRAME = $400000;
  18242.   {$EXTERNALSYM WS_VSCROLL}
  18243.   WS_VSCROLL = $200000;
  18244.   {$EXTERNALSYM WS_HSCROLL}
  18245.   WS_HSCROLL = $100000;
  18246.   {$EXTERNALSYM WS_SYSMENU}
  18247.   WS_SYSMENU = $80000;
  18248.   {$EXTERNALSYM WS_THICKFRAME}
  18249.   WS_THICKFRAME = $40000;
  18250.   {$EXTERNALSYM WS_GROUP}
  18251.   WS_GROUP = $20000;
  18252.   {$EXTERNALSYM WS_TABSTOP}
  18253.   WS_TABSTOP = $10000;
  18254.  
  18255.   {$EXTERNALSYM WS_MINIMIZEBOX}
  18256.   WS_MINIMIZEBOX = $20000;
  18257.   {$EXTERNALSYM WS_MAXIMIZEBOX}
  18258.   WS_MAXIMIZEBOX = $10000;
  18259.  
  18260.   {$EXTERNALSYM WS_TILED}
  18261.   WS_TILED = WS_OVERLAPPED;
  18262.   {$EXTERNALSYM WS_ICONIC}
  18263.   WS_ICONIC = WS_MINIMIZE;
  18264.   {$EXTERNALSYM WS_SIZEBOX}
  18265.   WS_SIZEBOX = WS_THICKFRAME;
  18266.  
  18267.   { Common Window Styles }
  18268.   {$EXTERNALSYM WS_OVERLAPPEDWINDOW}
  18269.   WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or
  18270.     WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
  18271.   {$EXTERNALSYM WS_TILEDWINDOW}
  18272.   WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW;
  18273.   {$EXTERNALSYM WS_POPUPWINDOW}
  18274.   WS_POPUPWINDOW = (WS_POPUP or WS_BORDER or WS_SYSMENU);
  18275.   {$EXTERNALSYM WS_CHILDWINDOW}
  18276.   WS_CHILDWINDOW = (WS_CHILD);
  18277.  
  18278.   { Extended Window Styles }
  18279.   {$EXTERNALSYM WS_EX_DLGMODALFRAME}
  18280.   WS_EX_DLGMODALFRAME = 1;
  18281.   {$EXTERNALSYM WS_EX_NOPARENTNOTIFY}
  18282.   WS_EX_NOPARENTNOTIFY = 4;
  18283.   {$EXTERNALSYM WS_EX_TOPMOST}
  18284.   WS_EX_TOPMOST = 8;
  18285.   {$EXTERNALSYM WS_EX_ACCEPTFILES}
  18286.   WS_EX_ACCEPTFILES = $10;
  18287.   {$EXTERNALSYM WS_EX_TRANSPARENT}
  18288.   WS_EX_TRANSPARENT = $20;
  18289.   {$EXTERNALSYM WS_EX_MDICHILD}
  18290.   WS_EX_MDICHILD = $40;
  18291.   {$EXTERNALSYM WS_EX_TOOLWINDOW}
  18292.   WS_EX_TOOLWINDOW = $80;
  18293.   {$EXTERNALSYM WS_EX_WINDOWEDGE}
  18294.   WS_EX_WINDOWEDGE = $100;
  18295.   {$EXTERNALSYM WS_EX_CLIENTEDGE}
  18296.   WS_EX_CLIENTEDGE = $200;
  18297.   {$EXTERNALSYM WS_EX_CONTEXTHELP}
  18298.   WS_EX_CONTEXTHELP = $400;
  18299.  
  18300.   {$EXTERNALSYM WS_EX_RIGHT}
  18301.   WS_EX_RIGHT = $1000;
  18302.   {$EXTERNALSYM WS_EX_LEFT}
  18303.   WS_EX_LEFT = 0;
  18304.   {$EXTERNALSYM WS_EX_RTLREADING}
  18305.   WS_EX_RTLREADING = $2000;
  18306.   {$EXTERNALSYM WS_EX_LTRREADING}
  18307.   WS_EX_LTRREADING = 0;
  18308.   {$EXTERNALSYM WS_EX_LEFTSCROLLBAR}
  18309.   WS_EX_LEFTSCROLLBAR = $4000;
  18310.   {$EXTERNALSYM WS_EX_RIGHTSCROLLBAR}
  18311.   WS_EX_RIGHTSCROLLBAR = 0;
  18312.  
  18313.   {$EXTERNALSYM WS_EX_CONTROLPARENT}
  18314.   WS_EX_CONTROLPARENT = $10000;
  18315.   {$EXTERNALSYM WS_EX_STATICEDGE}
  18316.   WS_EX_STATICEDGE = $20000;
  18317.   {$EXTERNALSYM WS_EX_APPWINDOW}
  18318.   WS_EX_APPWINDOW = $40000;
  18319.   {$EXTERNALSYM WS_EX_OVERLAPPEDWINDOW}
  18320.   WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE);
  18321.   {$EXTERNALSYM WS_EX_PALETTEWINDOW}
  18322.   WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE or WS_EX_TOOLWINDOW or WS_EX_TOPMOST);
  18323.  
  18324.   { Class styles }
  18325.   {$EXTERNALSYM CS_VREDRAW}
  18326.   CS_VREDRAW = 1;
  18327.   {$EXTERNALSYM CS_HREDRAW}
  18328.   CS_HREDRAW = 2;
  18329.   {$EXTERNALSYM CS_KEYCVTWINDOW}
  18330.   CS_KEYCVTWINDOW = 4;
  18331.   {$EXTERNALSYM CS_DBLCLKS}
  18332.   CS_DBLCLKS = 8;
  18333.   {$EXTERNALSYM CS_OWNDC}
  18334.   CS_OWNDC = $20;
  18335.   {$EXTERNALSYM CS_CLASSDC}
  18336.   CS_CLASSDC = $40;
  18337.   {$EXTERNALSYM CS_PARENTDC}
  18338.   CS_PARENTDC = $80;
  18339.   {$EXTERNALSYM CS_NOKEYCVT}
  18340.   CS_NOKEYCVT = $100;
  18341.   {$EXTERNALSYM CS_NOCLOSE}
  18342.   CS_NOCLOSE = $200;
  18343.   {$EXTERNALSYM CS_SAVEBITS}
  18344.   CS_SAVEBITS = $800;
  18345.   {$EXTERNALSYM CS_BYTEALIGNCLIENT}
  18346.   CS_BYTEALIGNCLIENT = $1000;
  18347.   {$EXTERNALSYM CS_BYTEALIGNWINDOW}
  18348.   CS_BYTEALIGNWINDOW = $2000;
  18349.   {$EXTERNALSYM CS_GLOBALCLASS}
  18350.   CS_GLOBALCLASS = $4000;
  18351.  
  18352.   {$EXTERNALSYM CS_IME}
  18353.   CS_IME = $10000;
  18354.  
  18355.   { WM_PRINT flags }
  18356.   {$EXTERNALSYM PRF_CHECKVISIBLE}
  18357.   PRF_CHECKVISIBLE = 1;
  18358.   {$EXTERNALSYM PRF_NONCLIENT}
  18359.   PRF_NONCLIENT = 2;
  18360.   {$EXTERNALSYM PRF_CLIENT}
  18361.   PRF_CLIENT = 4;
  18362.   {$EXTERNALSYM PRF_ERASEBKGND}
  18363.   PRF_ERASEBKGND = 8;
  18364.   {$EXTERNALSYM PRF_CHILDREN}
  18365.   PRF_CHILDREN = $10;
  18366.   {$EXTERNALSYM PRF_OWNED}
  18367.   PRF_OWNED = $20;
  18368.  
  18369.   { 3D border styles }
  18370.   {$EXTERNALSYM BDR_RAISEDOUTER}
  18371.   BDR_RAISEDOUTER = 1;
  18372.   {$EXTERNALSYM BDR_SUNKENOUTER}
  18373.   BDR_SUNKENOUTER = 2;
  18374.   {$EXTERNALSYM BDR_RAISEDINNER}
  18375.   BDR_RAISEDINNER = 4;
  18376.   {$EXTERNALSYM BDR_SUNKENINNER}
  18377.   BDR_SUNKENINNER = 8;
  18378.  
  18379.   {$EXTERNALSYM BDR_OUTER}
  18380.   BDR_OUTER = 3;
  18381.   {$EXTERNALSYM BDR_INNER}
  18382.   BDR_INNER = 12;
  18383.   {$EXTERNALSYM BDR_RAISED}
  18384.   BDR_RAISED = 5;
  18385.   {$EXTERNALSYM BDR_SUNKEN}
  18386.   BDR_SUNKEN = 10;
  18387.  
  18388.   {$EXTERNALSYM EDGE_RAISED}
  18389.   EDGE_RAISED = (BDR_RAISEDOUTER or BDR_RAISEDINNER);
  18390.   {$EXTERNALSYM EDGE_SUNKEN}
  18391.   EDGE_SUNKEN = (BDR_SUNKENOUTER or BDR_SUNKENINNER);
  18392.   {$EXTERNALSYM EDGE_ETCHED}
  18393.   EDGE_ETCHED = (BDR_SUNKENOUTER or BDR_RAISEDINNER);
  18394.   {$EXTERNALSYM EDGE_BUMP}
  18395.   EDGE_BUMP = (BDR_RAISEDOUTER or BDR_SUNKENINNER);
  18396.  
  18397.   { Border flags }
  18398.   {$EXTERNALSYM BF_LEFT}
  18399.   BF_LEFT = 1;
  18400.   {$EXTERNALSYM BF_TOP}
  18401.   BF_TOP = 2;
  18402.   {$EXTERNALSYM BF_RIGHT}
  18403.   BF_RIGHT = 4;
  18404.   {$EXTERNALSYM BF_BOTTOM}
  18405.   BF_BOTTOM = 8;
  18406.  
  18407.   {$EXTERNALSYM BF_TOPLEFT}
  18408.   BF_TOPLEFT = (BF_TOP or BF_LEFT);
  18409.   {$EXTERNALSYM BF_TOPRIGHT}
  18410.   BF_TOPRIGHT = (BF_TOP or BF_RIGHT);
  18411.   {$EXTERNALSYM BF_BOTTOMLEFT}
  18412.   BF_BOTTOMLEFT = (BF_BOTTOM or BF_LEFT);
  18413.   {$EXTERNALSYM BF_BOTTOMRIGHT}
  18414.   BF_BOTTOMRIGHT = (BF_BOTTOM or BF_RIGHT);
  18415.   {$EXTERNALSYM BF_RECT}
  18416.   BF_RECT = (BF_LEFT or BF_TOP or BF_RIGHT or BF_BOTTOM);
  18417.  
  18418.   {$EXTERNALSYM BF_DIAGONAL}
  18419.   BF_DIAGONAL = $10;
  18420.  
  18421.   { For diagonal lines, the BF_RECT flags specify the end point of the}
  18422.   { vector bounded by the rectangle parameter.}
  18423.   {$EXTERNALSYM BF_DIAGONAL_ENDTOPRIGHT}
  18424.   BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL or BF_TOP or BF_RIGHT);
  18425.   {$EXTERNALSYM BF_DIAGONAL_ENDTOPLEFT}
  18426.   BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL or BF_TOP or BF_LEFT);
  18427.   {$EXTERNALSYM BF_DIAGONAL_ENDBOTTOMLEFT}
  18428.   BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL or BF_BOTTOM or BF_LEFT);
  18429.   {$EXTERNALSYM BF_DIAGONAL_ENDBOTTOMRIGHT}
  18430.   BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL or BF_BOTTOM or BF_RIGHT);
  18431.  
  18432.   {$EXTERNALSYM BF_MIDDLE}
  18433.   BF_MIDDLE = $800;   { Fill in the middle }
  18434.   {$EXTERNALSYM BF_SOFT}
  18435.   BF_SOFT = $1000;    { For softer buttons }
  18436.   {$EXTERNALSYM BF_ADJUST}
  18437.   BF_ADJUST = $2000;  { Calculate the space left over }
  18438.   {$EXTERNALSYM BF_FLAT}
  18439.   BF_FLAT = $4000;    { For flat rather than 3D borders }
  18440.   {$EXTERNALSYM BF_MONO}
  18441.   BF_MONO = $8000;    { For monochrome borders }
  18442.  
  18443. {$EXTERNALSYM DrawEdge}
  18444. function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; stdcall;
  18445.  
  18446. const
  18447.   { flags for DrawFrameControl }
  18448.   {$EXTERNALSYM DFC_CAPTION}
  18449.   DFC_CAPTION = 1;
  18450.   {$EXTERNALSYM DFC_MENU}
  18451.   DFC_MENU = 2;
  18452.   {$EXTERNALSYM DFC_SCROLL}
  18453.   DFC_SCROLL = 3;
  18454.   {$EXTERNALSYM DFC_BUTTON}
  18455.   DFC_BUTTON = 4;
  18456.  
  18457.   {$EXTERNALSYM DFCS_CAPTIONCLOSE}
  18458.   DFCS_CAPTIONCLOSE = 0;
  18459.   {$EXTERNALSYM DFCS_CAPTIONMIN}
  18460.   DFCS_CAPTIONMIN = 1;
  18461.   {$EXTERNALSYM DFCS_CAPTIONMAX}
  18462.   DFCS_CAPTIONMAX = 2;
  18463.   {$EXTERNALSYM DFCS_CAPTIONRESTORE}
  18464.   DFCS_CAPTIONRESTORE = 3;
  18465.   {$EXTERNALSYM DFCS_CAPTIONHELP}
  18466.   DFCS_CAPTIONHELP = 4;
  18467.  
  18468.   {$EXTERNALSYM DFCS_MENUARROW}
  18469.   DFCS_MENUARROW = 0;
  18470.   {$EXTERNALSYM DFCS_MENUCHECK}
  18471.   DFCS_MENUCHECK = 1;
  18472.   {$EXTERNALSYM DFCS_MENUBULLET}
  18473.   DFCS_MENUBULLET = 2;
  18474.   {$EXTERNALSYM DFCS_MENUARROWRIGHT}
  18475.   DFCS_MENUARROWRIGHT = 4;
  18476.  
  18477.   {$EXTERNALSYM DFCS_SCROLLUP}
  18478.   DFCS_SCROLLUP = 0;
  18479.   {$EXTERNALSYM DFCS_SCROLLDOWN}
  18480.   DFCS_SCROLLDOWN = 1;
  18481.   {$EXTERNALSYM DFCS_SCROLLLEFT}
  18482.   DFCS_SCROLLLEFT = 2;
  18483.   {$EXTERNALSYM DFCS_SCROLLRIGHT}
  18484.   DFCS_SCROLLRIGHT = 3;
  18485.   {$EXTERNALSYM DFCS_SCROLLCOMBOBOX}
  18486.   DFCS_SCROLLCOMBOBOX = 5;
  18487.   {$EXTERNALSYM DFCS_SCROLLSIZEGRIP}
  18488.   DFCS_SCROLLSIZEGRIP = 8;
  18489.   {$EXTERNALSYM DFCS_SCROLLSIZEGRIPRIGHT}
  18490.   DFCS_SCROLLSIZEGRIPRIGHT = $10;
  18491.  
  18492.   {$EXTERNALSYM DFCS_BUTTONCHECK}
  18493.   DFCS_BUTTONCHECK = 0;
  18494.   {$EXTERNALSYM DFCS_BUTTONRADIOIMAGE}
  18495.   DFCS_BUTTONRADIOIMAGE = 1;
  18496.   {$EXTERNALSYM DFCS_BUTTONRADIOMASK}
  18497.   DFCS_BUTTONRADIOMASK = 2;
  18498.   {$EXTERNALSYM DFCS_BUTTONRADIO}
  18499.   DFCS_BUTTONRADIO = 4;
  18500.   {$EXTERNALSYM DFCS_BUTTON3STATE}
  18501.   DFCS_BUTTON3STATE = 8;
  18502.   {$EXTERNALSYM DFCS_BUTTONPUSH}
  18503.   DFCS_BUTTONPUSH = $10;
  18504.  
  18505.   {$EXTERNALSYM DFCS_INACTIVE}
  18506.   DFCS_INACTIVE = $100;
  18507.   {$EXTERNALSYM DFCS_PUSHED}
  18508.   DFCS_PUSHED = $200;
  18509.   {$EXTERNALSYM DFCS_CHECKED}
  18510.   DFCS_CHECKED = $400;
  18511.   {$EXTERNALSYM DFCS_ADJUSTRECT}
  18512.   DFCS_ADJUSTRECT = $2000;
  18513.   {$EXTERNALSYM DFCS_FLAT}
  18514.   DFCS_FLAT = $4000;
  18515.   {$EXTERNALSYM DFCS_MONO}
  18516.   DFCS_MONO = $8000;
  18517.  
  18518. {$EXTERNALSYM DrawFrameControl}
  18519. function DrawFrameControl(DC: HDC; const Rect: TRect; uType, uState: UINT): BOOL; stdcall;
  18520.  
  18521. const
  18522.   { flags for DrawCaption }
  18523.   {$EXTERNALSYM DC_ACTIVE}
  18524.   DC_ACTIVE = 1;
  18525.   {$EXTERNALSYM DC_SMALLCAP}
  18526.   DC_SMALLCAP = 2;
  18527.   {$EXTERNALSYM DC_ICON}
  18528.   DC_ICON = 4;
  18529.   {$EXTERNALSYM DC_TEXT}
  18530.   DC_TEXT = 8;
  18531.   {$EXTERNALSYM DC_INBUTTON}
  18532.   DC_INBUTTON = $10;
  18533.  
  18534. {!!! doesn't match help !!!}
  18535. {$EXTERNALSYM DrawCaption}
  18536. function DrawCaption(p1: HWND; p2: HDC; const p3: TRect; p4: UINT): BOOL; stdcall;
  18537.  
  18538. const
  18539.   {$EXTERNALSYM IDANI_OPEN}
  18540.   IDANI_OPEN = 1;
  18541.   {$EXTERNALSYM IDANI_CLOSE}
  18542.   IDANI_CLOSE = 2;
  18543.   {$EXTERNALSYM IDANI_CAPTION}
  18544.   IDANI_CAPTION = 3;
  18545.  
  18546. {$EXTERNALSYM DrawAnimatedRects}
  18547. function DrawAnimatedRects(hwnd: HWND; idAni: Integer; const lprcFrom, lprcTo: TRect): BOOL; stdcall;
  18548.  
  18549. const
  18550.   { Predefined Clipboard Formats }
  18551.   {$EXTERNALSYM CF_TEXT}
  18552.   CF_TEXT = 1;
  18553.   {$EXTERNALSYM CF_BITMAP}
  18554.   CF_BITMAP = 2;
  18555.   {$EXTERNALSYM CF_METAFILEPICT}
  18556.   CF_METAFILEPICT = 3;
  18557.   {$EXTERNALSYM CF_SYLK}
  18558.   CF_SYLK = 4;
  18559.   {$EXTERNALSYM CF_DIF}
  18560.   CF_DIF = 5;
  18561.   {$EXTERNALSYM CF_TIFF}
  18562.   CF_TIFF = 6;
  18563.   {$EXTERNALSYM CF_OEMTEXT}
  18564.   CF_OEMTEXT = 7;
  18565.   {$EXTERNALSYM CF_DIB}
  18566.   CF_DIB = 8;
  18567.   {$EXTERNALSYM CF_PALETTE}
  18568.   CF_PALETTE = 9;
  18569.   {$EXTERNALSYM CF_PENDATA}
  18570.   CF_PENDATA = 10;
  18571.   {$EXTERNALSYM CF_RIFF}
  18572.   CF_RIFF = 11;
  18573.   {$EXTERNALSYM CF_WAVE}
  18574.   CF_WAVE = 12;
  18575.   {$EXTERNALSYM CF_UNICODETEXT}
  18576.   CF_UNICODETEXT = 13;
  18577.   {$EXTERNALSYM CF_ENHMETAFILE}
  18578.   CF_ENHMETAFILE = 14;
  18579.   {$EXTERNALSYM CF_HDROP}
  18580.   CF_HDROP = 15;
  18581.   {$EXTERNALSYM CF_LOCALE}
  18582.   CF_LOCALE = $10;
  18583.   {$EXTERNALSYM CF_MAX}
  18584.   CF_MAX = 17;
  18585.  
  18586.   {$EXTERNALSYM CF_OWNERDISPLAY}
  18587.   CF_OWNERDISPLAY = 128;
  18588.   {$EXTERNALSYM CF_DSPTEXT}
  18589.   CF_DSPTEXT = 129;
  18590.   {$EXTERNALSYM CF_DSPBITMAP}
  18591.   CF_DSPBITMAP = 130;
  18592.   {$EXTERNALSYM CF_DSPMETAFILEPICT}
  18593.   CF_DSPMETAFILEPICT = 131;
  18594.   {$EXTERNALSYM CF_DSPENHMETAFILE}
  18595.   CF_DSPENHMETAFILE = 142;
  18596.  
  18597.   { "Private" formats don't get GlobalFree()'d }
  18598.   {$EXTERNALSYM CF_PRIVATEFIRST}
  18599.   CF_PRIVATEFIRST = $200;
  18600.   {$EXTERNALSYM CF_PRIVATELAST}
  18601.   CF_PRIVATELAST = 767;
  18602.  
  18603.   { "GDIOBJ" formats do get DeleteObject()'d }
  18604.   {$EXTERNALSYM CF_GDIOBJFIRST}
  18605.   CF_GDIOBJFIRST = 768;
  18606.   {$EXTERNALSYM CF_GDIOBJLAST}
  18607.   CF_GDIOBJLAST = 1023;
  18608.  
  18609.  
  18610.   { Defines for the fVirt field of the Accelerator table structure. }
  18611.   {$EXTERNALSYM FVIRTKEY}
  18612.   FVIRTKEY = 1;
  18613.   {$EXTERNALSYM FNOINVERT}
  18614.   FNOINVERT = 2;
  18615.   {$EXTERNALSYM FSHIFT}
  18616.   FSHIFT = 4;
  18617.   {$EXTERNALSYM FCONTROL}
  18618.   FCONTROL = 8;
  18619.   {$EXTERNALSYM FALT}
  18620.   FALT = $10;
  18621.  
  18622. type
  18623.   PAccel = ^TAccel;
  18624.   {$EXTERNALSYM tagACCEL}
  18625.   tagACCEL = packed record
  18626.     fVirt: Word;     { Also called the flags field }
  18627.     key: Word;
  18628.     cmd: Word;
  18629.   end;
  18630.   TAccel = tagACCEL;
  18631.   {$EXTERNALSYM ACCEL}
  18632.   ACCEL = tagACCEL;
  18633.  
  18634.   PPaintStruct = ^TPaintStruct;
  18635.   {$EXTERNALSYM tagPAINTSTRUCT}
  18636.   tagPAINTSTRUCT = packed record
  18637.     hdc: HDC;
  18638.     fErase: BOOL;
  18639.     rcPaint: TRect;
  18640.     fRestore: BOOL;
  18641.     fIncUpdate: BOOL;
  18642.     rgbReserved: array[0..31] of Byte;
  18643.   end;
  18644.   TPaintStruct = tagPAINTSTRUCT;
  18645.   {$EXTERNALSYM PAINTSTRUCT}
  18646.   PAINTSTRUCT = tagPAINTSTRUCT;
  18647.  
  18648.   PWindowPlacement = ^TWindowPlacement;
  18649.   {$EXTERNALSYM tagWINDOWPLACEMENT}
  18650.   tagWINDOWPLACEMENT = packed record
  18651.     length: UINT;
  18652.     flags: UINT;
  18653.     showCmd: UINT;
  18654.     ptMinPosition: TPoint;
  18655.     ptMaxPosition: TPoint;
  18656.     rcNormalPosition: TRect;
  18657.   end;
  18658.   TWindowPlacement = tagWINDOWPLACEMENT;
  18659.   {$EXTERNALSYM WINDOWPLACEMENT}
  18660.   WINDOWPLACEMENT = tagWINDOWPLACEMENT;
  18661.  
  18662. const
  18663.   {$EXTERNALSYM WPF_SETMINPOSITION}
  18664.   WPF_SETMINPOSITION = 1;
  18665.   {$EXTERNALSYM WPF_RESTORETOMAXIMIZED}
  18666.   WPF_RESTORETOMAXIMIZED = 2;
  18667.  
  18668. type
  18669.   PNMHdr = ^TNMHdr;
  18670.   {$EXTERNALSYM tagNMHDR}
  18671.   tagNMHDR = packed record
  18672.     hwndFrom: HWND;
  18673.     idFrom: UINT;
  18674.     code: Integer;     { NM_ code }
  18675.   end;
  18676.   TNMHdr = tagNMHDR;
  18677.   {$EXTERNALSYM NMHDR}
  18678.   NMHDR = tagNMHDR;
  18679.  
  18680.   PStyleStruct = ^TStyleStruct;
  18681.   {$EXTERNALSYM tagSTYLESTRUCT}
  18682.   tagSTYLESTRUCT = packed record
  18683.     styleOld: DWORD;
  18684.     styleNew: DWORD;
  18685.   end;
  18686.   TStyleStruct = tagSTYLESTRUCT;
  18687.   {$EXTERNALSYM STYLESTRUCT}
  18688.   STYLESTRUCT = tagSTYLESTRUCT;
  18689.  
  18690. const
  18691.   { Owner draw control types }
  18692.   {$EXTERNALSYM ODT_MENU}
  18693.   ODT_MENU = 1;
  18694.   {$EXTERNALSYM ODT_LISTBOX}
  18695.   ODT_LISTBOX = 2;
  18696.   {$EXTERNALSYM ODT_COMBOBOX}
  18697.   ODT_COMBOBOX = 3;
  18698.   {$EXTERNALSYM ODT_BUTTON}
  18699.   ODT_BUTTON = 4;
  18700.   {$EXTERNALSYM ODT_STATIC}
  18701.   ODT_STATIC = 5;
  18702.  
  18703.   { Owner draw actions }
  18704.   {$EXTERNALSYM ODA_DRAWENTIRE}
  18705.   ODA_DRAWENTIRE = 1;
  18706.   {$EXTERNALSYM ODA_SELECT}
  18707.   ODA_SELECT = 2;
  18708.   {$EXTERNALSYM ODA_FOCUS}
  18709.   ODA_FOCUS = 4;
  18710.  
  18711.   { Owner draw state }
  18712.   {$EXTERNALSYM ODS_SELECTED}
  18713.   ODS_SELECTED = 1;
  18714.   {$EXTERNALSYM ODS_GRAYED}
  18715.   ODS_GRAYED = 2;
  18716.   {$EXTERNALSYM ODS_DISABLED}
  18717.   ODS_DISABLED = 4;
  18718.   {$EXTERNALSYM ODS_CHECKED}
  18719.   ODS_CHECKED = 8;
  18720.   {$EXTERNALSYM ODS_FOCUS}
  18721.   ODS_FOCUS = $10;
  18722.   {$EXTERNALSYM ODS_DEFAULT}
  18723.   ODS_DEFAULT = $20;
  18724.   {$EXTERNALSYM ODS_COMBOBOXEDIT}
  18725.   ODS_COMBOBOXEDIT = $1000;
  18726.  
  18727. type
  18728.   { for ownerdraw }
  18729.   PMeasureItemStruct = ^TMeasureItemStruct;
  18730.   {$EXTERNALSYM tagMEASUREITEMSTRUCT}
  18731.   tagMEASUREITEMSTRUCT = packed record
  18732.     CtlType: UINT;
  18733.     CtlID: UINT;
  18734.     itemID: UINT;
  18735.     itemWidth: UINT;
  18736.     itemHeight: UINT;
  18737.     itemData: DWORD;
  18738.   end;
  18739.   TMeasureItemStruct = tagMEASUREITEMSTRUCT;
  18740.   {$EXTERNALSYM MEASUREITEMSTRUCT}
  18741.   MEASUREITEMSTRUCT = tagMEASUREITEMSTRUCT;
  18742.  
  18743.   { for ownerdraw }
  18744.   PDrawItemStruct = ^TDrawItemStruct;
  18745.   {$EXTERNALSYM tagDRAWITEMSTRUCT}
  18746.   tagDRAWITEMSTRUCT = packed record
  18747.     CtlType: UINT;
  18748.     CtlID: UINT;
  18749.     itemID: UINT;
  18750.     itemAction: UINT;
  18751.     itemState: UINT;
  18752.     hwndItem: HWND;
  18753.     hDC: HDC;
  18754.     rcItem: TRect;
  18755.     itemData: DWORD;
  18756.   end;
  18757.   TDrawItemStruct = tagDRAWITEMSTRUCT;
  18758.   {$EXTERNALSYM DRAWITEMSTRUCT}
  18759.   DRAWITEMSTRUCT = tagDRAWITEMSTRUCT;
  18760.  
  18761.   { for ownerdraw }
  18762.   PDeleteItemStruct = ^TDeleteItemStruct;
  18763.   {$EXTERNALSYM tagDELETEITEMSTRUCT}
  18764.   tagDELETEITEMSTRUCT = packed record
  18765.     CtlType: UINT;
  18766.     CtlID: UINT;
  18767.     itemID: UINT;
  18768.     hwndItem: HWND;
  18769.     itemData: UINT;
  18770.   end;
  18771.   TDeleteItemStruct = tagDELETEITEMSTRUCT;
  18772.   {$EXTERNALSYM DELETEITEMSTRUCT}
  18773.   DELETEITEMSTRUCT = tagDELETEITEMSTRUCT;
  18774.  
  18775.   { for ownerdraw sorting }
  18776.   PCompareItemStruct = ^TCompareItemStruct;
  18777.   {$EXTERNALSYM tagCOMPAREITEMSTRUCT}
  18778.   tagCOMPAREITEMSTRUCT = packed record
  18779.     CtlType: UINT;
  18780.     CtlID: UINT;
  18781.     hwndItem: HWND;
  18782.     itemID1: UINT;
  18783.     itemData1: DWORD;
  18784.     itemID2: UINT;
  18785.     itemData2: DWORD;
  18786.     dwLocaleId: DWORD;
  18787.   end;
  18788.   TCompareItemStruct = tagCOMPAREITEMSTRUCT;
  18789.   {$EXTERNALSYM COMPAREITEMSTRUCT}
  18790.   COMPAREITEMSTRUCT = tagCOMPAREITEMSTRUCT;
  18791.  
  18792. { Message Function Templates }
  18793.  
  18794. {$EXTERNALSYM GetMessageA}
  18795. function GetMessageA(var lpMsg: TMsg; hWnd: HWND;
  18796.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  18797. {$EXTERNALSYM GetMessageW}
  18798. function GetMessageW(var lpMsg: TMsg; hWnd: HWND;
  18799.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  18800. {$EXTERNALSYM GetMessage}
  18801. function GetMessage(var lpMsg: TMsg; hWnd: HWND;
  18802.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  18803. {$EXTERNALSYM DispatchMessageA}
  18804. function DispatchMessageA(const lpMsg: TMsg): Longint; stdcall;
  18805. {$EXTERNALSYM DispatchMessageW}
  18806. function DispatchMessageW(const lpMsg: TMsg): Longint; stdcall;
  18807. {$EXTERNALSYM DispatchMessage}
  18808. function DispatchMessage(const lpMsg: TMsg): Longint; stdcall;
  18809. {$EXTERNALSYM TranslateMessage}
  18810. function TranslateMessage(const lpMsg: TMsg): BOOL; stdcall;
  18811. {$EXTERNALSYM SetMessageQueue}
  18812. function SetMessageQueue(cMessagesMax: Integer): BOOL; stdcall;
  18813. {$EXTERNALSYM PeekMessageA}
  18814. function PeekMessageA(var lpMsg: TMsg; hWnd: HWND;
  18815.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  18816. {$EXTERNALSYM PeekMessageW}
  18817. function PeekMessageW(var lpMsg: TMsg; hWnd: HWND;
  18818.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  18819. {$EXTERNALSYM PeekMessage}
  18820. function PeekMessage(var lpMsg: TMsg; hWnd: HWND;
  18821.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  18822.  
  18823. const
  18824.   { PeekMessage() Options }
  18825.   {$EXTERNALSYM PM_NOREMOVE}
  18826.   PM_NOREMOVE = 0;
  18827.   {$EXTERNALSYM PM_REMOVE}
  18828.   PM_REMOVE = 1;
  18829.   {$EXTERNALSYM PM_NOYIELD}
  18830.   PM_NOYIELD = 2;
  18831.  
  18832. {$EXTERNALSYM RegisterHotKey}
  18833. function RegisterHotKey(hWnd: HWND; id: Integer; fsModifiers, vk: UINT): BOOL; stdcall;
  18834. {$EXTERNALSYM UnregisterHotKey}
  18835. function UnregisterHotKey(hWnd: HWND; id: Integer): BOOL; stdcall;
  18836.  
  18837. const
  18838.   {$EXTERNALSYM MOD_ALT}
  18839.   MOD_ALT = 1;
  18840.   {$EXTERNALSYM MOD_CONTROL}
  18841.   MOD_CONTROL = 2;
  18842.   {$EXTERNALSYM MOD_SHIFT}
  18843.   MOD_SHIFT = 4;
  18844.   {$EXTERNALSYM MOD_WIN}
  18845.   MOD_WIN = 8;
  18846.  
  18847.   {$EXTERNALSYM IDHOT_SNAPWINDOW}
  18848.   IDHOT_SNAPWINDOW = -1;    { SHIFT-PRINTSCRN  }
  18849.   {$EXTERNALSYM IDHOT_SNAPDESKTOP}
  18850.   IDHOT_SNAPDESKTOP = -2;   { PRINTSCRN        }
  18851.  
  18852.   {$EXTERNALSYM EW_RESTARTWINDOWS}
  18853.   EW_RESTARTWINDOWS        = $0042;
  18854.   {$EXTERNALSYM EW_REBOOTSYSTEM}
  18855.   EW_REBOOTSYSTEM          = $0043;
  18856.   {$EXTERNALSYM EW_EXITANDEXECAPP}
  18857.   EW_EXITANDEXECAPP        = $0044;
  18858.  
  18859.   {$EXTERNALSYM ENDSESSION_LOGOFF}
  18860.   ENDSESSION_LOGOFF        = $80000000;
  18861.  
  18862.   {$EXTERNALSYM EWX_LOGOFF}
  18863.   EWX_LOGOFF = 0;
  18864.   {$EXTERNALSYM EWX_SHUTDOWN}
  18865.   EWX_SHUTDOWN = 1;
  18866.   {$EXTERNALSYM EWX_REBOOT}
  18867.   EWX_REBOOT = 2;
  18868.   {$EXTERNALSYM EWX_FORCE}
  18869.   EWX_FORCE = 4;
  18870.   {$EXTERNALSYM EWX_POWEROFF}
  18871.   EWX_POWEROFF = 8;
  18872.  
  18873.  
  18874. {$EXTERNALSYM ExitWindows}
  18875. function ExitWindows(dwReserved: DWORD; Code: Word): BOOL;
  18876.  
  18877. {$EXTERNALSYM ExitWindowsEx}
  18878. function ExitWindowsEx(uFlags: UINT; dwReserved: DWORD): BOOL; stdcall;
  18879. {$EXTERNALSYM SwapMouseButton}
  18880. function SwapMouseButton(fSwap: BOOL): BOOL; stdcall;
  18881. {$EXTERNALSYM GetMessagePos}
  18882. function GetMessagePos: DWORD; stdcall;
  18883. {$EXTERNALSYM GetMessageTime}
  18884. function GetMessageTime: Longint; stdcall;
  18885. {$EXTERNALSYM GetMessageExtraInfo}
  18886. function GetMessageExtraInfo: Longint; stdcall;
  18887. {$EXTERNALSYM SetMessageExtraInfo}
  18888. function SetMessageExtraInfo(lParam: LPARAM): LPARAM; stdcall;
  18889.  
  18890. {$EXTERNALSYM SendMessageA}
  18891. function SendMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  18892. {$EXTERNALSYM SendMessageW}
  18893. function SendMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  18894. {$EXTERNALSYM SendMessage}
  18895. function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  18896. {$EXTERNALSYM SendMessageTimeoutA}
  18897. function SendMessageTimeoutA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18898.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  18899. {$EXTERNALSYM SendMessageTimeoutW}
  18900. function SendMessageTimeoutW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18901.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  18902. {$EXTERNALSYM SendMessageTimeout}
  18903. function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18904.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  18905. {$EXTERNALSYM SendNotifyMessageA}
  18906. function SendNotifyMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18907.   lParam: LPARAM): BOOL; stdcall;
  18908. {$EXTERNALSYM SendNotifyMessageW}
  18909. function SendNotifyMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18910.   lParam: LPARAM): BOOL; stdcall;
  18911. {$EXTERNALSYM SendNotifyMessage}
  18912. function SendNotifyMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18913.   lParam: LPARAM): BOOL; stdcall;
  18914. {$EXTERNALSYM SendMessageCallbackA}
  18915. function SendMessageCallbackA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18916.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  18917. {$EXTERNALSYM SendMessageCallbackW}
  18918. function SendMessageCallbackW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18919.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  18920. {$EXTERNALSYM SendMessageCallback}
  18921. function SendMessageCallback(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  18922.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  18923. {$EXTERNALSYM BroadcastSystemMessageA}
  18924. function BroadcastSystemMessageA(Flags: DWORD; Recipients: PDWORD;
  18925.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  18926. {$EXTERNALSYM BroadcastSystemMessageW}
  18927. function BroadcastSystemMessageW(Flags: DWORD; Recipients: PDWORD;
  18928.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  18929. {$EXTERNALSYM BroadcastSystemMessage}
  18930. function BroadcastSystemMessage(Flags: DWORD; Recipients: PDWORD;
  18931.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  18932.  
  18933. const
  18934.   { Broadcast Special Message Recipient list }
  18935.   {$EXTERNALSYM BSM_ALLCOMPONENTS}
  18936.   BSM_ALLCOMPONENTS = $00000000;
  18937.   {$EXTERNALSYM BSM_VXDS}
  18938.   BSM_VXDS = $00000001;
  18939.   {$EXTERNALSYM BSM_NETDRIVER}
  18940.   BSM_NETDRIVER = $00000002;
  18941.   {$EXTERNALSYM BSM_INSTALLABLEDRIVERS}
  18942.   BSM_INSTALLABLEDRIVERS = $00000004;
  18943.   {$EXTERNALSYM BSM_APPLICATIONS}
  18944.   BSM_APPLICATIONS = $00000008;
  18945.   {$EXTERNALSYM BSM_ALLDESKTOPS}
  18946.   BSM_ALLDESKTOPS = $00000010;
  18947.  
  18948.   { Broadcast Special Message Flags }
  18949.   {$EXTERNALSYM BSF_QUERY}
  18950.   BSF_QUERY = $00000001;
  18951.   {$EXTERNALSYM BSF_IGNORECURRENTTASK}
  18952.   BSF_IGNORECURRENTTASK = $00000002;
  18953.   {$EXTERNALSYM BSF_FLUSHDISK}
  18954.   BSF_FLUSHDISK = $00000004;
  18955.   {$EXTERNALSYM BSF_NOHANG}
  18956.   BSF_NOHANG = $00000008;
  18957.   {$EXTERNALSYM BSF_POSTMESSAGE}
  18958.   BSF_POSTMESSAGE = $00000010;
  18959.   {$EXTERNALSYM BSF_FORCEIFHUNG}
  18960.   BSF_FORCEIFHUNG = $00000020;
  18961.   {$EXTERNALSYM BSF_NOTIMEOUTIFNOTHUNG}
  18962.   BSF_NOTIMEOUTIFNOTHUNG = $00000040;
  18963.  
  18964. type
  18965.   PBroadcastSysMsg = ^TBroadcastSysMsg;
  18966.   {$EXTERNALSYM tagBROADCASTSYSMSG}
  18967.   tagBROADCASTSYSMSG = packed record
  18968.     uiMessage: UINT;
  18969.     wParam: WPARAM;
  18970.     lParam: LPARAM;
  18971.   end;
  18972.   TBroadcastSysMsg = tagBROADCASTSYSMSG;
  18973.   {$EXTERNALSYM BROADCASTSYSMSG}
  18974.   BROADCASTSYSMSG = tagBROADCASTSYSMSG;
  18975.  
  18976. const
  18977.   {$EXTERNALSYM DBWF_LPARAMPOINTER}
  18978.   DBWF_LPARAMPOINTER = $8000;
  18979.  
  18980.   {$EXTERNALSYM BROADCAST_QUERY_DENY}
  18981.   BROADCAST_QUERY_DENY = $424D5144;  { Return this value to deny a query. }
  18982.  
  18983. {$EXTERNALSYM PostMessageA}
  18984. function PostMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18985. {$EXTERNALSYM PostMessageW}
  18986. function PostMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18987. {$EXTERNALSYM PostMessage}
  18988. function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18989. {$EXTERNALSYM PostThreadMessageA}
  18990. function PostThreadMessageA(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18991. {$EXTERNALSYM PostThreadMessageW}
  18992. function PostThreadMessageW(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18993. {$EXTERNALSYM PostThreadMessage}
  18994. function PostThreadMessage(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  18995. {$EXTERNALSYM PostAppMessageA}
  18996. function PostAppMessageA(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  18997. {$EXTERNALSYM PostAppMessageW}
  18998. function PostAppMessageW(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  18999. {$EXTERNALSYM PostAppMessage}
  19000. function PostAppMessage(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  19001.  
  19002. const
  19003.   { Special HWND value for use with PostMessage() and SendMessage() }
  19004.   {$EXTERNALSYM HWND_BROADCAST}
  19005.   HWND_BROADCAST = $FFFF;
  19006.   wnd_Broadcast = HWND_BROADCAST;
  19007.  
  19008. {$EXTERNALSYM AttachThreadInput}
  19009. function AttachThreadInput(idAttach, idAttachTo: DWORD; fAttach: BOOL): BOOL; stdcall;
  19010. {$EXTERNALSYM ReplyMessage}
  19011. function ReplyMessage(lResult: LRESULT): BOOL; stdcall;
  19012. {$EXTERNALSYM WaitMessage}
  19013. function WaitMessage: BOOL; stdcall;
  19014. {$EXTERNALSYM WaitForInputIdle}
  19015. function WaitForInputIdle(hProcess: THandle; dwMilliseconds: DWORD): DWORD; stdcall;
  19016. {$EXTERNALSYM DefWindowProcA}
  19017. function DefWindowProcA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19018. {$EXTERNALSYM DefWindowProcW}
  19019. function DefWindowProcW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19020. {$EXTERNALSYM DefWindowProc}
  19021. function DefWindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19022. {$EXTERNALSYM CallWindowProcA}
  19023. function CallWindowProcA(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19024. {$EXTERNALSYM CallWindowProcW}
  19025. function CallWindowProcW(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19026. {$EXTERNALSYM CallWindowProc}
  19027. function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19028. {$EXTERNALSYM PostQuitMessage}
  19029. procedure PostQuitMessage(nExitCode: Integer); stdcall;
  19030. {$EXTERNALSYM InSendMessage}
  19031. function InSendMessage: BOOL; stdcall;
  19032. {$EXTERNALSYM GetDoubleClickTime}
  19033. function GetDoubleClickTime: UINT; stdcall;
  19034. {$EXTERNALSYM SetDoubleClickTime}
  19035. function SetDoubleClickTime(Interval: UINT): BOOL; stdcall;
  19036. {$EXTERNALSYM RegisterClassA}
  19037. function RegisterClassA(const lpWndClass: TWndClassA): ATOM; stdcall;
  19038. {$EXTERNALSYM RegisterClassW}
  19039. function RegisterClassW(const lpWndClass: TWndClassW): ATOM; stdcall;
  19040. {$EXTERNALSYM RegisterClass}
  19041. function RegisterClass(const lpWndClass: TWndClass): ATOM; stdcall;
  19042. {$EXTERNALSYM UnregisterClassA}
  19043. function UnregisterClassA(lpClassName: PAnsiChar; hInstance: HINST): BOOL; stdcall;
  19044. {$EXTERNALSYM UnregisterClassW}
  19045. function UnregisterClassW(lpClassName: PWideChar; hInstance: HINST): BOOL; stdcall;
  19046. {$EXTERNALSYM UnregisterClass}
  19047. function UnregisterClass(lpClassName: PChar; hInstance: HINST): BOOL; stdcall;
  19048. {$EXTERNALSYM GetClassInfoA}
  19049. function GetClassInfoA(hInstance: HINST; lpClassName: PAnsiChar;
  19050.   var lpWndClass: TWndClassA): BOOL; stdcall;
  19051. {$EXTERNALSYM GetClassInfoW}
  19052. function GetClassInfoW(hInstance: HINST; lpClassName: PWideChar;
  19053.   var lpWndClass: TWndClassW): BOOL; stdcall;
  19054. {$EXTERNALSYM GetClassInfo}
  19055. function GetClassInfo(hInstance: HINST; lpClassName: PChar;
  19056.   var lpWndClass: TWndClass): BOOL; stdcall;
  19057. {$EXTERNALSYM RegisterClassExA}
  19058. function RegisterClassExA(const WndClass: TWndClassExA): ATOM; stdcall;
  19059. {$EXTERNALSYM RegisterClassExW}
  19060. function RegisterClassExW(const WndClass: TWndClassExW): ATOM; stdcall;
  19061. {$EXTERNALSYM RegisterClassEx}
  19062. function RegisterClassEx(const WndClass: TWndClassEx): ATOM; stdcall;
  19063. {$EXTERNALSYM GetClassInfoExA}
  19064. function GetClassInfoExA(Instance: HINST; Classname: PAnsiChar; var WndClass: TWndClassExA): BOOL; stdcall;
  19065. {$EXTERNALSYM GetClassInfoExW}
  19066. function GetClassInfoExW(Instance: HINST; Classname: PWideChar; var WndClass: TWndClassExW): BOOL; stdcall;
  19067. {$EXTERNALSYM GetClassInfoEx}
  19068. function GetClassInfoEx(Instance: HINST; Classname: PChar; var WndClass: TWndClassEx): BOOL; stdcall;
  19069.  
  19070. const
  19071.   {$EXTERNALSYM CW_USEDEFAULT}
  19072.   CW_USEDEFAULT = $80000000;
  19073.  
  19074.   { Special value for CreateWindow, et al. }
  19075.   {$EXTERNALSYM HWND_DESKTOP}
  19076.   HWND_DESKTOP = 0;
  19077.  
  19078. {$EXTERNALSYM CreateWindowExA}
  19079. function CreateWindowExA(dwExStyle: DWORD; lpClassName: PAnsiChar;
  19080.   lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  19081.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  19082. {$EXTERNALSYM CreateWindowExW}
  19083. function CreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
  19084.   lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  19085.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  19086. {$EXTERNALSYM CreateWindowEx}
  19087. function CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
  19088.   lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  19089.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  19090. {$EXTERNALSYM CreateWindowA}
  19091. function CreateWindowA(lpClassName: PAnsiChar; lpWindowName: PAnsiChar;
  19092.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  19093.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  19094. {$EXTERNALSYM CreateWindowW}
  19095. function CreateWindowW(lpClassName: PWideChar; lpWindowName: PWideChar;
  19096.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  19097.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  19098. {$EXTERNALSYM CreateWindow}
  19099. function CreateWindow(lpClassName: PChar; lpWindowName: PChar;
  19100.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  19101.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  19102.  
  19103. {$EXTERNALSYM IsWindow}
  19104. function IsWindow(hWnd: HWND): BOOL; stdcall;
  19105. {$EXTERNALSYM IsMenu}
  19106. function IsMenu(hMenu: HMENU): BOOL; stdcall;
  19107. {$EXTERNALSYM IsChild}
  19108. function IsChild(hWndParent, hWnd: HWND): BOOL; stdcall;
  19109. {$EXTERNALSYM DestroyWindow}
  19110. function DestroyWindow(hWnd: HWND): BOOL; stdcall;
  19111. {$EXTERNALSYM ShowWindow}
  19112. function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall;
  19113. {$EXTERNALSYM ShowWindowAsync}
  19114. function ShowWindowAsync(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall;
  19115. {$EXTERNALSYM FlashWindow}
  19116. function FlashWindow(hWnd: HWND; bInvert: BOOL): BOOL; stdcall;
  19117. {$EXTERNALSYM ShowOwnedPopups}
  19118. function ShowOwnedPopups(hWnd: HWND; fShow: BOOL): BOOL; stdcall;
  19119. {$EXTERNALSYM OpenIcon}
  19120. function OpenIcon(hWnd: HWND): BOOL; stdcall;
  19121. {$EXTERNALSYM CloseWindow}
  19122. function CloseWindow(hWnd: HWND): BOOL; stdcall;
  19123. {$EXTERNALSYM MoveWindow}
  19124. function MoveWindow(hWnd: HWND; X, Y, nWidth, nHeight: Integer; bRepaint: BOOL): BOOL; stdcall;
  19125. {$EXTERNALSYM SetWindowPos}
  19126. function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
  19127.   X, Y, cx, cy: Integer; uFlags: UINT): BOOL; stdcall;
  19128. {$EXTERNALSYM GetWindowPlacement}
  19129. function GetWindowPlacement(hWnd: HWND; WindowPlacement: PWindowPlacement): BOOL; stdcall;
  19130. {$EXTERNALSYM SetWindowPlacement}
  19131. function SetWindowPlacement(hWnd: HWND; WindowPlacement: PWindowPlacement): BOOL; stdcall;
  19132. {$EXTERNALSYM BeginDeferWindowPos}
  19133. function BeginDeferWindowPos(nNumWindows: Integer): HDWP; stdcall;
  19134. {$EXTERNALSYM DeferWindowPos}
  19135. function DeferWindowPos(hWinPosInfo: HDWP; hWnd: HWND;
  19136.   hWndInsertAfter: HWND; x, y, cx, cy: Integer; uFlags: UINT): HDWP; stdcall;
  19137. {$EXTERNALSYM EndDeferWindowPos}
  19138. function EndDeferWindowPos(hWinPosInfo: HDWP): BOOL; stdcall;
  19139. {$EXTERNALSYM IsWindowVisible}
  19140. function IsWindowVisible(hWnd: HWND): BOOL; stdcall;
  19141. {$EXTERNALSYM IsIconic}
  19142. function IsIconic(hWnd: HWND): BOOL; stdcall;
  19143. {$EXTERNALSYM AnyPopup}
  19144. function AnyPopup: BOOL; stdcall;
  19145. {$EXTERNALSYM BringWindowToTop}
  19146. function BringWindowToTop(hWnd: HWND): BOOL; stdcall;
  19147. {$EXTERNALSYM IsZoomed}
  19148. function IsZoomed(hWnd: HWND): BOOL; stdcall;
  19149.  
  19150.  
  19151. const
  19152.   { SetWindowPos Flags }
  19153.   {$EXTERNALSYM SWP_NOSIZE}
  19154.   SWP_NOSIZE = 1;
  19155.   {$EXTERNALSYM SWP_NOMOVE}
  19156.   SWP_NOMOVE = 2;
  19157.   {$EXTERNALSYM SWP_NOZORDER}
  19158.   SWP_NOZORDER = 4;
  19159.   {$EXTERNALSYM SWP_NOREDRAW}
  19160.   SWP_NOREDRAW = 8;
  19161.   {$EXTERNALSYM SWP_NOACTIVATE}
  19162.   SWP_NOACTIVATE = $10;
  19163.   {$EXTERNALSYM SWP_FRAMECHANGED}
  19164.   SWP_FRAMECHANGED = $20;    { The frame changed: send WM_NCCALCSIZE }
  19165.   {$EXTERNALSYM SWP_SHOWWINDOW}
  19166.   SWP_SHOWWINDOW = $40;
  19167.   {$EXTERNALSYM SWP_HIDEWINDOW}
  19168.   SWP_HIDEWINDOW = $80;
  19169.   {$EXTERNALSYM SWP_NOCOPYBITS}
  19170.   SWP_NOCOPYBITS = $100;
  19171.   {$EXTERNALSYM SWP_NOOWNERZORDER}
  19172.   SWP_NOOWNERZORDER = $200;  { Don't do owner Z ordering }
  19173.   {$EXTERNALSYM SWP_NOSENDCHANGING}
  19174.   SWP_NOSENDCHANGING = $400;  { Don't send WM_WINDOWPOSCHANGING }
  19175.   {$EXTERNALSYM SWP_DRAWFRAME}
  19176.   SWP_DRAWFRAME = SWP_FRAMECHANGED;
  19177.   {$EXTERNALSYM SWP_NOREPOSITION}
  19178.   SWP_NOREPOSITION = SWP_NOOWNERZORDER;
  19179.   {$EXTERNALSYM SWP_DEFERERASE}
  19180.   SWP_DEFERERASE = $2000;
  19181.   {$EXTERNALSYM SWP_ASYNCWINDOWPOS}
  19182.   SWP_ASYNCWINDOWPOS = $4000;
  19183.  
  19184.   {$EXTERNALSYM HWND_TOP}
  19185.   HWND_TOP = 0;
  19186.   {$EXTERNALSYM HWND_BOTTOM}
  19187.   HWND_BOTTOM = 1;
  19188.   {$EXTERNALSYM HWND_TOPMOST}
  19189.   HWND_TOPMOST = -1;
  19190.   {$EXTERNALSYM HWND_NOTOPMOST}
  19191.   HWND_NOTOPMOST = -2;
  19192.  
  19193.  
  19194. type
  19195.   PDlgTemplate = ^TDlgTemplate;
  19196.   {$EXTERNALSYM DLGTEMPLATE}
  19197.   DLGTEMPLATE = packed record
  19198.     style: DWORD;
  19199.     dwExtendedStyle: DWORD;
  19200.     cdit: Word;
  19201.     x: SHORT;
  19202.     y: SHORT;
  19203.     cx: SHORT;
  19204.     cy: SHORT;
  19205.   end;
  19206.   TDlgTemplate = DLGTEMPLATE;
  19207.  
  19208.   { 32 bit Dialog item template. }
  19209.   PDlgItemTemplate = ^TDlgItemTemplate;
  19210.   {$EXTERNALSYM DLGITEMTEMPLATE}
  19211.   DLGITEMTEMPLATE = packed record
  19212.     style: DWORD;
  19213.     dwExtendedStyle: DWORD;
  19214.     x: SHORT;
  19215.     y: SHORT;
  19216.     cx: SHORT;
  19217.     cy: SHORT;
  19218.     id: Word;
  19219.   end;
  19220.   TDlgItemTemplate = DLGITEMTEMPLATE;
  19221.  
  19222. {$EXTERNALSYM CreateDialogParamA}
  19223. function CreateDialogParamA(hInstance: HINST; lpTemplateName: PAnsiChar;
  19224.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19225. {$EXTERNALSYM CreateDialogParamW}
  19226. function CreateDialogParamW(hInstance: HINST; lpTemplateName: PWideChar;
  19227.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19228. {$EXTERNALSYM CreateDialogParam}
  19229. function CreateDialogParam(hInstance: HINST; lpTemplateName: PChar;
  19230.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19231. {$EXTERNALSYM CreateDialogIndirectParamA}
  19232. function CreateDialogIndirectParamA(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19233.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19234. {$EXTERNALSYM CreateDialogIndirectParamW}
  19235. function CreateDialogIndirectParamW(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19236.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19237. {$EXTERNALSYM CreateDialogIndirectParam}
  19238. function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19239.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  19240. {$EXTERNALSYM CreateDialogA}
  19241. function CreateDialogA(hInstance: HINST; lpTemplateName: PAnsiChar;
  19242.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19243. {$EXTERNALSYM CreateDialogW}
  19244. function CreateDialogW(hInstance: HINST; lpTemplateName: PWideChar;
  19245.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19246. {$EXTERNALSYM CreateDialog}
  19247. function CreateDialog(hInstance: HINST; lpTemplateName: PChar;
  19248.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19249. {$EXTERNALSYM CreateDialogIndirectA}
  19250. function CreateDialogIndirectA(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19251.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19252. {$EXTERNALSYM CreateDialogIndirectW}
  19253. function CreateDialogIndirectW(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19254.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19255. {$EXTERNALSYM CreateDialogIndirect}
  19256. function CreateDialogIndirect(hInstance: HINST; const lpTemplate: TDlgTemplate;
  19257.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  19258. {$EXTERNALSYM DialogBoxParamA}
  19259. function DialogBoxParamA(hInstance: HINST; lpTemplateName: PAnsiChar;
  19260.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19261. {$EXTERNALSYM DialogBoxParamW}
  19262. function DialogBoxParamW(hInstance: HINST; lpTemplateName: PWideChar;
  19263.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19264. {$EXTERNALSYM DialogBoxParam}
  19265. function DialogBoxParam(hInstance: HINST; lpTemplateName: PChar;
  19266.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19267. {$EXTERNALSYM DialogBoxIndirectParamA}
  19268. function DialogBoxIndirectParamA(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19269.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19270. {$EXTERNALSYM DialogBoxIndirectParamW}
  19271. function DialogBoxIndirectParamW(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19272.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19273. {$EXTERNALSYM DialogBoxIndirectParam}
  19274. function DialogBoxIndirectParam(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19275.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  19276. {$EXTERNALSYM DialogBoxA}
  19277. function DialogBoxA(hInstance: HINST; lpTemplate: PAnsiChar;
  19278.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19279. {$EXTERNALSYM DialogBoxW}
  19280. function DialogBoxW(hInstance: HINST; lpTemplate: PWideChar;
  19281.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19282. {$EXTERNALSYM DialogBox}
  19283. function DialogBox(hInstance: HINST; lpTemplate: PChar;
  19284.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19285. {$EXTERNALSYM DialogBoxIndirectA}
  19286. function DialogBoxIndirectA(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19287.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19288. {$EXTERNALSYM DialogBoxIndirectW}
  19289. function DialogBoxIndirectW(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19290.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19291. {$EXTERNALSYM DialogBoxIndirect}
  19292. function DialogBoxIndirect(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  19293.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  19294. {$EXTERNALSYM EndDialog}
  19295. function EndDialog(hDlg: HWND; nResult: Integer): BOOL; stdcall;
  19296. {$EXTERNALSYM GetDlgItem}
  19297. function GetDlgItem(hDlg: HWND; nIDDlgItem: Integer): HWND; stdcall;
  19298. {$EXTERNALSYM SetDlgItemInt}
  19299. function SetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer; uValue: UINT; bSigned: BOOL): BOOL; stdcall;
  19300. {$EXTERNALSYM GetDlgItemInt}
  19301. function GetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer;
  19302.   var lpTranslated: BOOL; bSigned: BOOL): UINT; stdcall;
  19303. {$EXTERNALSYM SetDlgItemTextA}
  19304. function SetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer; lpString: PAnsiChar): BOOL; stdcall;
  19305. {$EXTERNALSYM SetDlgItemTextW}
  19306. function SetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer; lpString: PWideChar): BOOL; stdcall;
  19307. {$EXTERNALSYM SetDlgItemText}
  19308. function SetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: PChar): BOOL; stdcall;
  19309. {$EXTERNALSYM GetDlgItemTextA}
  19310. function GetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer;
  19311.   lpString: PAnsiChar; nMaxCount: Integer): UINT; stdcall;
  19312. {$EXTERNALSYM GetDlgItemTextW}
  19313. function GetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer;
  19314.   lpString: PWideChar; nMaxCount: Integer): UINT; stdcall;
  19315. {$EXTERNALSYM GetDlgItemText}
  19316. function GetDlgItemText(hDlg: HWND; nIDDlgItem: Integer;
  19317.   lpString: PChar; nMaxCount: Integer): UINT; stdcall;
  19318. {$EXTERNALSYM CheckDlgButton}
  19319. function CheckDlgButton(hDlg: HWND; nIDButton: Integer; uCheck: UINT): BOOL; stdcall;
  19320. {$EXTERNALSYM CheckRadioButton}
  19321. function CheckRadioButton(hDlg: HWND; nIDFirstButton, nIDLastButton, nIDCheckButton: Integer): BOOL; stdcall;
  19322. {$EXTERNALSYM IsDlgButtonChecked}
  19323. function IsDlgButtonChecked(hDlg: HWND; nIDButton: Integer): UINT; stdcall;
  19324. {$EXTERNALSYM SendDlgItemMessageA}
  19325. function SendDlgItemMessageA(hDlg: HWND; nIDDlgItem: Integer;
  19326.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19327. {$EXTERNALSYM SendDlgItemMessageW}
  19328. function SendDlgItemMessageW(hDlg: HWND; nIDDlgItem: Integer;
  19329.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19330. {$EXTERNALSYM SendDlgItemMessage}
  19331. function SendDlgItemMessage(hDlg: HWND; nIDDlgItem: Integer;
  19332.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19333. {$EXTERNALSYM GetNextDlgGroupItem}
  19334. function GetNextDlgGroupItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  19335. {$EXTERNALSYM GetNextDlgTabItem}
  19336. function GetNextDlgTabItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  19337. {$EXTERNALSYM GetDlgCtrlID}
  19338. function GetDlgCtrlID(hWnd: HWND): Integer; stdcall;
  19339. {$EXTERNALSYM GetDialogBaseUnits}
  19340. function GetDialogBaseUnits: Longint; stdcall;
  19341. {$EXTERNALSYM DefDlgProcA}
  19342. function DefDlgProcA(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19343. {$EXTERNALSYM DefDlgProcW}
  19344. function DefDlgProcW(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19345. {$EXTERNALSYM DefDlgProc}
  19346. function DefDlgProc(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19347.  
  19348. const
  19349.   { Window extra byted needed for private dialog classes. }
  19350.   {$EXTERNALSYM DLGWINDOWEXTRA}
  19351.   DLGWINDOWEXTRA = 30;
  19352.  
  19353. {$EXTERNALSYM CallMsgFilterA}
  19354. function CallMsgFilterA(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  19355. {$EXTERNALSYM CallMsgFilterW}
  19356. function CallMsgFilterW(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  19357. {$EXTERNALSYM CallMsgFilter}
  19358. function CallMsgFilter(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  19359.  
  19360. { Clipboard Manager Functions }
  19361.  
  19362. {$EXTERNALSYM OpenClipboard}
  19363. function OpenClipboard(hWndNewOwner: HWND): BOOL; stdcall;
  19364. {$EXTERNALSYM CloseClipboard}
  19365. function CloseClipboard: BOOL; stdcall;
  19366. {$EXTERNALSYM GetClipboardOwner}
  19367. function GetClipboardOwner: HWND; stdcall;
  19368. {$EXTERNALSYM SetClipboardViewer}
  19369. function SetClipboardViewer(hWndNewViewer: HWND): HWND; stdcall;
  19370. {$EXTERNALSYM GetClipboardViewer}
  19371. function GetClipboardViewer: HWND; stdcall;
  19372. {$EXTERNALSYM ChangeClipboardChain}
  19373. function ChangeClipboardChain(hWndRemove, hWndNewNext: HWND): BOOL; stdcall;
  19374. {$EXTERNALSYM SetClipboardData}
  19375. function SetClipboardData(uFormat: UINT; hMem: THandle): THandle; stdcall;
  19376. {$EXTERNALSYM GetClipboardData}
  19377. function GetClipboardData(uFormat: UINT): THandle; stdcall;
  19378. {$EXTERNALSYM RegisterClipboardFormatA}
  19379. function RegisterClipboardFormatA(lpszFormat: PAnsiChar): UINT; stdcall;
  19380. {$EXTERNALSYM RegisterClipboardFormatW}
  19381. function RegisterClipboardFormatW(lpszFormat: PWideChar): UINT; stdcall;
  19382. {$EXTERNALSYM RegisterClipboardFormat}
  19383. function RegisterClipboardFormat(lpszFormat: PChar): UINT; stdcall;
  19384. {$EXTERNALSYM CountClipboardFormats}
  19385. function CountClipboardFormats: Integer; stdcall;
  19386. {$EXTERNALSYM EnumClipboardFormats}
  19387. function EnumClipboardFormats(format: UINT): UINT; stdcall;
  19388. {$EXTERNALSYM GetClipboardFormatNameA}
  19389. function GetClipboardFormatNameA(format: UINT; lpszFormatName: PAnsiChar;
  19390.   cchMaxCount: Integer): Integer; stdcall;
  19391. {$EXTERNALSYM GetClipboardFormatNameW}
  19392. function GetClipboardFormatNameW(format: UINT; lpszFormatName: PWideChar;
  19393.   cchMaxCount: Integer): Integer; stdcall;
  19394. {$EXTERNALSYM GetClipboardFormatName}
  19395. function GetClipboardFormatName(format: UINT; lpszFormatName: PChar;
  19396.   cchMaxCount: Integer): Integer; stdcall;
  19397. {$EXTERNALSYM EmptyClipboard}
  19398. function EmptyClipboard: BOOL; stdcall;
  19399. {$EXTERNALSYM IsClipboardFormatAvailable}
  19400. function IsClipboardFormatAvailable(format: UINT): BOOL; stdcall;
  19401. {$EXTERNALSYM GetPriorityClipboardFormat}
  19402. function GetPriorityClipboardFormat(var paFormatPriorityList; cFormats: Integer): Integer; stdcall;
  19403. {$EXTERNALSYM GetOpenClipboardWindow}
  19404. function GetOpenClipboardWindow: HWND; stdcall;
  19405.  
  19406. { Character Translation Routines }
  19407.  
  19408. {$EXTERNALSYM CharToOemA}
  19409. function CharToOemA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar): BOOL; stdcall;
  19410. {$EXTERNALSYM CharToOemW}
  19411. function CharToOemW(lpszSrc: PWideChar; lpszDst: PWideChar): BOOL; stdcall;
  19412. {$EXTERNALSYM CharToOem}
  19413. function CharToOem(lpszSrc: PChar; lpszDst: PChar): BOOL; stdcall;
  19414. {$EXTERNALSYM OemToCharA}
  19415. function OemToCharA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar): BOOL; stdcall;
  19416. {$EXTERNALSYM OemToCharW}
  19417. function OemToCharW(lpszSrc: PWideChar; lpszDst: PWideChar): BOOL; stdcall;
  19418. {$EXTERNALSYM OemToChar}
  19419. function OemToChar(lpszSrc: PChar; lpszDst: PChar): BOOL; stdcall;
  19420. {$EXTERNALSYM CharToOemBuffA}
  19421. function CharToOemBuffA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar; cchDstLength: DWORD): BOOL; stdcall;
  19422. {$EXTERNALSYM CharToOemBuffW}
  19423. function CharToOemBuffW(lpszSrc: PWideChar; lpszDst: PWideChar; cchDstLength: DWORD): BOOL; stdcall;
  19424. {$EXTERNALSYM CharToOemBuff}
  19425. function CharToOemBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL; stdcall;
  19426. {$EXTERNALSYM OemToCharBuffA}
  19427. function OemToCharBuffA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar; cchDstLength: DWORD): BOOL; stdcall;
  19428. {$EXTERNALSYM OemToCharBuffW}
  19429. function OemToCharBuffW(lpszSrc: PWideChar; lpszDst: PWideChar; cchDstLength: DWORD): BOOL; stdcall;
  19430. {$EXTERNALSYM OemToCharBuff}
  19431. function OemToCharBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL; stdcall;
  19432. {$EXTERNALSYM CharUpperA}
  19433. function CharUpperA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  19434. {$EXTERNALSYM CharUpperW}
  19435. function CharUpperW(lpsz: PWideChar): PWideChar; stdcall;
  19436. {$EXTERNALSYM CharUpper}
  19437. function CharUpper(lpsz: PChar): PChar; stdcall;
  19438. {$EXTERNALSYM CharUpperBuffA}
  19439. function CharUpperBuffA(lpsz: PAnsiChar; cchLength: DWORD): DWORD; stdcall;
  19440. {$EXTERNALSYM CharUpperBuffW}
  19441. function CharUpperBuffW(lpsz: PWideChar; cchLength: DWORD): DWORD; stdcall;
  19442. {$EXTERNALSYM CharUpperBuff}
  19443. function CharUpperBuff(lpsz: PChar; cchLength: DWORD): DWORD; stdcall;
  19444. {$EXTERNALSYM CharLowerA}
  19445. function CharLowerA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  19446. {$EXTERNALSYM CharLowerW}
  19447. function CharLowerW(lpsz: PWideChar): PWideChar; stdcall;
  19448. {$EXTERNALSYM CharLower}
  19449. function CharLower(lpsz: PChar): PChar; stdcall;
  19450. {$EXTERNALSYM CharLowerBuffA}
  19451. function CharLowerBuffA(lpsz: PAnsiChar; cchLength: DWORD): DWORD; stdcall;
  19452. {$EXTERNALSYM CharLowerBuffW}
  19453. function CharLowerBuffW(lpsz: PWideChar; cchLength: DWORD): DWORD; stdcall;
  19454. {$EXTERNALSYM CharLowerBuff}
  19455. function CharLowerBuff(lpsz: PChar; cchLength: DWORD): DWORD; stdcall;
  19456. {$EXTERNALSYM CharNextA}
  19457. function CharNextA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  19458. {$EXTERNALSYM CharNextW}
  19459. function CharNextW(lpsz: PWideChar): PWideChar; stdcall;
  19460. {$EXTERNALSYM CharNext}
  19461. function CharNext(lpsz: PChar): PChar; stdcall;
  19462. {$EXTERNALSYM CharPrevA}
  19463. function CharPrevA(lpszStart: PAnsiChar; lpszCurrent: PAnsiChar): PAnsiChar; stdcall;
  19464. {$EXTERNALSYM CharPrevW}
  19465. function CharPrevW(lpszStart: PWideChar; lpszCurrent: PWideChar): PWideChar; stdcall;
  19466. {$EXTERNALSYM CharPrev}
  19467. function CharPrev(lpszStart: PChar; lpszCurrent: PChar): PChar; stdcall;
  19468.  
  19469. {$EXTERNALSYM CharNextExA}
  19470. function CharNextExA(CodePage: Word; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  19471. {$EXTERNALSYM CharNextEx}
  19472. function CharNextEx(CodePage: Word; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  19473. {$EXTERNALSYM CharPrevEx}
  19474. function CharPrevEx(CodePage: Word; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  19475. {$EXTERNALSYM CharPrevExA}
  19476. function CharPrevExA(CodePage: Word; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  19477.  
  19478. { Compatibility defines for character translation routines }
  19479.  
  19480. {$EXTERNALSYM AnsiToOem}
  19481. function AnsiToOem(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  19482. {$EXTERNALSYM OemToAnsi}
  19483. function OemToAnsi(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  19484. {$EXTERNALSYM AnsiToOemBuff}
  19485. function AnsiToOemBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  19486. {$EXTERNALSYM OemToAnsiBuff}
  19487. function OemToAnsiBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  19488. {$EXTERNALSYM AnsiUpper}
  19489. function AnsiUpper(lpsz: LPSTR): LPSTR; stdcall;
  19490. {$EXTERNALSYM AnsiUpperBuff}
  19491. function AnsiUpperBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  19492. {$EXTERNALSYM AnsiLower}
  19493. function AnsiLower(lpsz: LPSTR): LPSTR; stdcall;
  19494. {$EXTERNALSYM AnsiLowerBuff}
  19495. function AnsiLowerBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  19496. {$EXTERNALSYM AnsiNext}
  19497. function AnsiNext(const lpsz: LPCSTR): LPSTR; stdcall;
  19498. {$EXTERNALSYM AnsiPrev}
  19499. function AnsiPrev(const lpszStart: LPCSTR; const lpszCurrent: LPCSTR): LPSTR; stdcall;
  19500.  
  19501. { Language dependent Routines }
  19502.  
  19503. {$EXTERNALSYM IsCharAlphaA}
  19504. function IsCharAlphaA(ch: AnsiChar): BOOL; stdcall;
  19505. {$EXTERNALSYM IsCharAlphaW}
  19506. function IsCharAlphaW(ch: WideChar): BOOL; stdcall;
  19507. {$EXTERNALSYM IsCharAlpha}
  19508. function IsCharAlpha(ch: Char): BOOL; stdcall;
  19509. {$EXTERNALSYM IsCharAlphaNumericA}
  19510. function IsCharAlphaNumericA(ch: AnsiChar): BOOL; stdcall;
  19511. {$EXTERNALSYM IsCharAlphaNumericW}
  19512. function IsCharAlphaNumericW(ch: WideChar): BOOL; stdcall;
  19513. {$EXTERNALSYM IsCharAlphaNumeric}
  19514. function IsCharAlphaNumeric(ch: Char): BOOL; stdcall;
  19515. {$EXTERNALSYM IsCharUpperA}
  19516. function IsCharUpperA(ch: AnsiChar): BOOL; stdcall;
  19517. {$EXTERNALSYM IsCharUpperW}
  19518. function IsCharUpperW(ch: WideChar): BOOL; stdcall;
  19519. {$EXTERNALSYM IsCharUpper}
  19520. function IsCharUpper(ch: Char): BOOL; stdcall;
  19521. {$EXTERNALSYM IsCharLowerA}
  19522. function IsCharLowerA(ch: AnsiChar): BOOL; stdcall;
  19523. {$EXTERNALSYM IsCharLowerW}
  19524. function IsCharLowerW(ch: WideChar): BOOL; stdcall;
  19525. {$EXTERNALSYM IsCharLower}
  19526. function IsCharLower(ch: Char): BOOL; stdcall;
  19527.  
  19528. {$EXTERNALSYM SetFocus}
  19529. function SetFocus(hWnd: HWND): HWND; stdcall;
  19530. {$EXTERNALSYM GetActiveWindow}
  19531. function GetActiveWindow: HWND; stdcall;
  19532. {$EXTERNALSYM GetFocus}
  19533. function GetFocus: HWND; stdcall;
  19534. {$EXTERNALSYM GetKBCodePage}
  19535. function GetKBCodePage: UINT; stdcall;
  19536. {$EXTERNALSYM GetKeyState}
  19537. function GetKeyState(nVirtKey: Integer): SHORT; stdcall;
  19538. {$EXTERNALSYM GetAsyncKeyState}
  19539. function GetAsyncKeyState(vKey: Integer): SHORT; stdcall;
  19540.  
  19541. type
  19542.   PKeyboardState = ^TKeyboardState;
  19543.   TKeyboardState = array[0..255] of Byte;
  19544.  
  19545. {$EXTERNALSYM GetKeyboardState}
  19546. function GetKeyboardState(var KeyState: TKeyboardState): BOOL; stdcall;
  19547. {$EXTERNALSYM SetKeyboardState}
  19548. function SetKeyboardState(var KeyState: TKeyboardState): BOOL; stdcall;
  19549. {$EXTERNALSYM GetKeyNameTextA}
  19550. function GetKeyNameTextA(lParam: Longint; lpString: PAnsiChar; nSize: Integer): Integer; stdcall;
  19551. {$EXTERNALSYM GetKeyNameTextW}
  19552. function GetKeyNameTextW(lParam: Longint; lpString: PWideChar; nSize: Integer): Integer; stdcall;
  19553. {$EXTERNALSYM GetKeyNameText}
  19554. function GetKeyNameText(lParam: Longint; lpString: PChar; nSize: Integer): Integer; stdcall;
  19555. {$EXTERNALSYM GetKeyboardType}
  19556. function GetKeyboardType(nTypeFlag: Integer): Integer; stdcall;
  19557. {$EXTERNALSYM ToAscii}
  19558. function ToAscii(uVirtKey, uScanCode: UINT; const KeyState: TKeyboardState;
  19559.   lpChar: PChar; uFlags: UINT): Integer; stdcall;
  19560. {$EXTERNALSYM ToAsciiEx}
  19561. function ToAsciiEx(uVirtKey: UINT; uScanCode: UINT; const KeyState: TKeyboardState;
  19562.   lpChar: PChar; uFlags: UINT; dwhkl: HKL): Integer; stdcall;
  19563. {$EXTERNALSYM ToUnicode}
  19564. function ToUnicode(wVirtKey, wScanCode: UINT; const KeyState: TKeyboardState;
  19565.   var pwszBuff; cchBuff: Integer; wFlags: UINT): Integer; stdcall;
  19566. {$EXTERNALSYM OemKeyScan}
  19567. function OemKeyScan(wOemChar: Word): DWORD; stdcall;
  19568.  
  19569. {$EXTERNALSYM VkKeyScanA}
  19570. function VkKeyScanA(ch: AnsiChar): SHORT; stdcall;
  19571. {$EXTERNALSYM VkKeyScanW}
  19572. function VkKeyScanW(ch: WideChar): SHORT; stdcall;
  19573. {$EXTERNALSYM VkKeyScan}
  19574. function VkKeyScan(ch: Char): SHORT; stdcall;
  19575. {$EXTERNALSYM VkKeyScanExA}
  19576. function VkKeyScanExA(ch: AnsiChar; dwhkl: HKL): SHORT; stdcall;
  19577. {$EXTERNALSYM VkKeyScanExW}
  19578. function VkKeyScanExW(ch: WideChar; dwhkl: HKL): SHORT; stdcall;
  19579. {$EXTERNALSYM VkKeyScanEx}
  19580. function VkKeyScanEx(ch: Char; dwhkl: HKL): SHORT; stdcall;
  19581.  
  19582. const
  19583.   {$EXTERNALSYM KEYEVENTF_EXTENDEDKEY}
  19584.   KEYEVENTF_EXTENDEDKEY = 1;
  19585.   {$EXTERNALSYM KEYEVENTF_KEYUP}
  19586.   KEYEVENTF_KEYUP = 2;
  19587.  
  19588. {$EXTERNALSYM keybd_event}
  19589. procedure keybd_event(bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD); stdcall;
  19590.  
  19591. const
  19592.   {$EXTERNALSYM MOUSEEVENTF_MOVE}
  19593.   MOUSEEVENTF_MOVE            = $0001; { mouse move }
  19594.   {$EXTERNALSYM MOUSEEVENTF_LEFTDOWN}
  19595.   MOUSEEVENTF_LEFTDOWN        = $0002; { left button down }
  19596.   {$EXTERNALSYM MOUSEEVENTF_LEFTUP}
  19597.   MOUSEEVENTF_LEFTUP          = $0004; { left button up }
  19598.   {$EXTERNALSYM MOUSEEVENTF_RIGHTDOWN}
  19599.   MOUSEEVENTF_RIGHTDOWN       = $0008; { right button down }
  19600.   {$EXTERNALSYM MOUSEEVENTF_RIGHTUP}
  19601.   MOUSEEVENTF_RIGHTUP         = $0010; { right button up }
  19602.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEDOWN}
  19603.   MOUSEEVENTF_MIDDLEDOWN      = $0020; { middle button down }
  19604.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEUP}
  19605.   MOUSEEVENTF_MIDDLEUP        = $0040; { middle button up }
  19606.   {$EXTERNALSYM MOUSEEVENTF_WHEEL}
  19607.   MOUSEEVENTF_WHEEL           = $0800; { wheel button rolled }
  19608.   {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  19609.   MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }
  19610.  
  19611. {$EXTERNALSYM mouse_event}
  19612. procedure mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); stdcall;
  19613. {$EXTERNALSYM MapVirtualKeyA}
  19614. function MapVirtualKeyA(uCode, uMapType: UINT): UINT; stdcall;
  19615. {$EXTERNALSYM MapVirtualKeyW}
  19616. function MapVirtualKeyW(uCode, uMapType: UINT): UINT; stdcall;
  19617. {$EXTERNALSYM MapVirtualKey}
  19618. function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;
  19619. {$EXTERNALSYM MapVirtualKeyExA}
  19620. function MapVirtualKeyExA(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  19621. {$EXTERNALSYM MapVirtualKeyExW}
  19622. function MapVirtualKeyExW(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  19623. {$EXTERNALSYM MapVirtualKeyEx}
  19624. function MapVirtualKeyEx(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  19625. {$EXTERNALSYM GetInputState}
  19626. function GetInputState: BOOL; stdcall;
  19627. {$EXTERNALSYM GetQueueStatus}
  19628. function GetQueueStatus(flags: UINT): DWORD; stdcall;
  19629. {$EXTERNALSYM GetCapture}
  19630. function GetCapture: HWND; stdcall;
  19631. {$EXTERNALSYM SetCapture}
  19632. function SetCapture(hWnd: HWND): HWND; stdcall;
  19633. {$EXTERNALSYM ReleaseCapture}
  19634. function ReleaseCapture: BOOL; stdcall;
  19635. {$EXTERNALSYM MsgWaitForMultipleObjects}
  19636. function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles;
  19637.   fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD; stdcall;
  19638. {$EXTERNALSYM MsgWaitForMultipleObjectsEx}
  19639. function MsgWaitForMultipleObjectsEx(nCount: DWORD; var pHandles;
  19640.   dwMilliseconds, dwWakeMask, dwFlags: DWORD): DWORD; stdcall;
  19641.  
  19642. const
  19643.   {$EXTERNALSYM MWMO_WAITALL}
  19644.   MWMO_WAITALL = $0001;
  19645.   {$EXTERNALSYM MWMO_ALERTABLE}
  19646.   MWMO_ALERTABLE = $0002;
  19647.  
  19648.   { Queue status flags for GetQueueStatus() and MsgWaitForMultipleObjects() }
  19649.   {$EXTERNALSYM QS_KEY}
  19650.   QS_KEY                  = $0001;
  19651.   {$EXTERNALSYM QS_MOUSEMOVE}
  19652.   QS_MOUSEMOVE            = $0002;
  19653.   {$EXTERNALSYM QS_MOUSEBUTTON}
  19654.   QS_MOUSEBUTTON          = $0004;
  19655.   {$EXTERNALSYM QS_POSTMESSAGE}
  19656.   QS_POSTMESSAGE          = $0008;
  19657.   {$EXTERNALSYM QS_TIMER}
  19658.   QS_TIMER                = $0010;
  19659.   {$EXTERNALSYM QS_PAINT}
  19660.   QS_PAINT                = $0020;
  19661.   {$EXTERNALSYM QS_SENDMESSAGE}
  19662.   QS_SENDMESSAGE          = $0040;
  19663.   {$EXTERNALSYM QS_HOTKEY}
  19664.   QS_HOTKEY               = $0080;
  19665.   {$EXTERNALSYM QS_ALLPOSTMESSAGE}
  19666.   QS_ALLPOSTMESSAGE       = $0100;
  19667.  
  19668.   {$EXTERNALSYM QS_MOUSE}
  19669.   QS_MOUSE = (QS_MOUSEMOVE or QS_MOUSEBUTTON);
  19670.   {$EXTERNALSYM QS_INPUT}
  19671.   QS_INPUT = (QS_MOUSE or QS_KEY);
  19672.   {$EXTERNALSYM QS_ALLEVENTS}
  19673.   QS_ALLEVENTS = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT
  19674.     or QS_HOTKEY);
  19675.   {$EXTERNALSYM QS_ALLINPUT}
  19676.   QS_ALLINPUT = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT
  19677.     or QS_HOTKEY or QS_SENDMESSAGE);
  19678.  
  19679.  
  19680. { Windows Functions }
  19681.  
  19682. {$EXTERNALSYM SetTimer}
  19683. function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT;
  19684.   lpTimerFunc: TFNTimerProc): UINT; stdcall;
  19685. {$EXTERNALSYM KillTimer}
  19686. function KillTimer(hWnd: HWND; uIDEvent: UINT): BOOL; stdcall;
  19687. {$EXTERNALSYM IsWindowUnicode}
  19688. function IsWindowUnicode(hWnd: HWND): BOOL; stdcall;
  19689. {$EXTERNALSYM EnableWindow}
  19690. function EnableWindow(hWnd: HWND; bEnable: BOOL): BOOL; stdcall;
  19691. {$EXTERNALSYM IsWindowEnabled}
  19692. function IsWindowEnabled(hWnd: HWND): BOOL; stdcall;
  19693. {$EXTERNALSYM LoadAcceleratorsA}
  19694. function LoadAcceleratorsA(hInstance: HINST; lpTableName: PAnsiChar): HACCEL; stdcall;
  19695. {$EXTERNALSYM LoadAcceleratorsW}
  19696. function LoadAcceleratorsW(hInstance: HINST; lpTableName: PWideChar): HACCEL; stdcall;
  19697. {$EXTERNALSYM LoadAccelerators}
  19698. function LoadAccelerators(hInstance: HINST; lpTableName: PChar): HACCEL; stdcall;
  19699. {$EXTERNALSYM CreateAcceleratorTableA}
  19700. function CreateAcceleratorTableA(var Accel; Count: Integer): HACCEL; stdcall;
  19701. {$EXTERNALSYM CreateAcceleratorTableW}
  19702. function CreateAcceleratorTableW(var Accel; Count: Integer): HACCEL; stdcall;
  19703. {$EXTERNALSYM CreateAcceleratorTable}
  19704. function CreateAcceleratorTable(var Accel; Count: Integer): HACCEL; stdcall;
  19705. {$EXTERNALSYM CopyAcceleratorTableA}
  19706. function CopyAcceleratorTableA(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  19707. {$EXTERNALSYM CopyAcceleratorTableW}
  19708. function CopyAcceleratorTableW(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  19709. {$EXTERNALSYM CopyAcceleratorTable}
  19710. function CopyAcceleratorTable(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  19711. {$EXTERNALSYM TranslateAcceleratorA}
  19712. function TranslateAcceleratorA(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  19713. {$EXTERNALSYM TranslateAcceleratorW}
  19714. function TranslateAcceleratorW(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  19715. {$EXTERNALSYM TranslateAccelerator}
  19716. function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  19717. {$EXTERNALSYM DestroyAcceleratorTable}
  19718. function DestroyAcceleratorTable(hAccel: HACCEL): BOOL; stdcall;
  19719.  
  19720. const
  19721.   { GetSystemMetrics() codes }
  19722.   {$EXTERNALSYM SM_CXSCREEN}
  19723.   SM_CXSCREEN = 0;
  19724.   {$EXTERNALSYM SM_CYSCREEN}
  19725.   SM_CYSCREEN = 1;
  19726.   {$EXTERNALSYM SM_CXVSCROLL}
  19727.   SM_CXVSCROLL = 2;
  19728.   {$EXTERNALSYM SM_CYHSCROLL}
  19729.   SM_CYHSCROLL = 3;
  19730.   {$EXTERNALSYM SM_CYCAPTION}
  19731.   SM_CYCAPTION = 4;
  19732.   {$EXTERNALSYM SM_CXBORDER}
  19733.   SM_CXBORDER = 5;
  19734.   {$EXTERNALSYM SM_CYBORDER}
  19735.   SM_CYBORDER = 6;
  19736.   {$EXTERNALSYM SM_CXDLGFRAME}
  19737.   SM_CXDLGFRAME = 7;
  19738.   {$EXTERNALSYM SM_CYDLGFRAME}
  19739.   SM_CYDLGFRAME = 8;
  19740.   {$EXTERNALSYM SM_CYVTHUMB}
  19741.   SM_CYVTHUMB = 9;
  19742.   {$EXTERNALSYM SM_CXHTHUMB}
  19743.   SM_CXHTHUMB = 10;
  19744.   {$EXTERNALSYM SM_CXICON}
  19745.   SM_CXICON = 11;
  19746.   {$EXTERNALSYM SM_CYICON}
  19747.   SM_CYICON = 12;
  19748.   {$EXTERNALSYM SM_CXCURSOR}
  19749.   SM_CXCURSOR = 13;
  19750.   {$EXTERNALSYM SM_CYCURSOR}
  19751.   SM_CYCURSOR = 14;
  19752.   {$EXTERNALSYM SM_CYMENU}
  19753.   SM_CYMENU = 15;
  19754.   {$EXTERNALSYM SM_CXFULLSCREEN}
  19755.   SM_CXFULLSCREEN = $10;
  19756.   {$EXTERNALSYM SM_CYFULLSCREEN}
  19757.   SM_CYFULLSCREEN = 17;
  19758.   {$EXTERNALSYM SM_CYKANJIWINDOW}
  19759.   SM_CYKANJIWINDOW = 18;
  19760.   {$EXTERNALSYM SM_MOUSEPRESENT}
  19761.   SM_MOUSEPRESENT = 19;
  19762.   {$EXTERNALSYM SM_CYVSCROLL}
  19763.   SM_CYVSCROLL = 20;
  19764.   {$EXTERNALSYM SM_CXHSCROLL}
  19765.   SM_CXHSCROLL = 21;
  19766.   {$EXTERNALSYM SM_DEBUG}
  19767.   SM_DEBUG = 22;
  19768.   {$EXTERNALSYM SM_SWAPBUTTON}
  19769.   SM_SWAPBUTTON = 23;
  19770.   {$EXTERNALSYM SM_RESERVED1}
  19771.   SM_RESERVED1 = 24;
  19772.   {$EXTERNALSYM SM_RESERVED2}
  19773.   SM_RESERVED2 = 25;
  19774.   {$EXTERNALSYM SM_RESERVED3}
  19775.   SM_RESERVED3 = 26;
  19776.   {$EXTERNALSYM SM_RESERVED4}
  19777.   SM_RESERVED4 = 27;
  19778.   {$EXTERNALSYM SM_CXMIN}
  19779.   SM_CXMIN = 28;
  19780.   {$EXTERNALSYM SM_CYMIN}
  19781.   SM_CYMIN = 29;
  19782.   {$EXTERNALSYM SM_CXSIZE}
  19783.   SM_CXSIZE = 30;
  19784.   {$EXTERNALSYM SM_CYSIZE}
  19785.   SM_CYSIZE = 31;
  19786.   {$EXTERNALSYM SM_CXFRAME}
  19787.   SM_CXFRAME = $20;
  19788.   {$EXTERNALSYM SM_CYFRAME}
  19789.   SM_CYFRAME = 33;
  19790.   {$EXTERNALSYM SM_CXMINTRACK}
  19791.   SM_CXMINTRACK = 34;
  19792.   {$EXTERNALSYM SM_CYMINTRACK}
  19793.   SM_CYMINTRACK = 35;
  19794.   {$EXTERNALSYM SM_CXDOUBLECLK}
  19795.   SM_CXDOUBLECLK = 36;
  19796.   {$EXTERNALSYM SM_CYDOUBLECLK}
  19797.   SM_CYDOUBLECLK = 37;
  19798.   {$EXTERNALSYM SM_CXICONSPACING}
  19799.   SM_CXICONSPACING = 38;
  19800.   {$EXTERNALSYM SM_CYICONSPACING}
  19801.   SM_CYICONSPACING = 39;
  19802.   {$EXTERNALSYM SM_MENUDROPALIGNMENT}
  19803.   SM_MENUDROPALIGNMENT = 40;
  19804.   {$EXTERNALSYM SM_PENWINDOWS}
  19805.   SM_PENWINDOWS = 41;
  19806.   {$EXTERNALSYM SM_DBCSENABLED}
  19807.   SM_DBCSENABLED = 42;
  19808.   {$EXTERNALSYM SM_CMOUSEBUTTONS}
  19809.   SM_CMOUSEBUTTONS = 43;
  19810.  
  19811.   {$EXTERNALSYM SM_CXFIXEDFRAME}
  19812.   SM_CXFIXEDFRAME = SM_CXDLGFRAME; { win40 name change }
  19813.   {$EXTERNALSYM SM_CYFIXEDFRAME}
  19814.   SM_CYFIXEDFRAME = SM_CYDLGFRAME; { win40 name change }
  19815.   {$EXTERNALSYM SM_CXSIZEFRAME}
  19816.   SM_CXSIZEFRAME = SM_CXFRAME;     { win40 name change }
  19817.   {$EXTERNALSYM SM_CYSIZEFRAME}
  19818.   SM_CYSIZEFRAME = SM_CYFRAME;     { win40 name change }
  19819.  
  19820.   {$EXTERNALSYM SM_SECURE}
  19821.   SM_SECURE = 44;
  19822.   {$EXTERNALSYM SM_CXEDGE}
  19823.   SM_CXEDGE = 45;
  19824.   {$EXTERNALSYM SM_CYEDGE}
  19825.   SM_CYEDGE = 46;
  19826.   {$EXTERNALSYM SM_CXMINSPACING}
  19827.   SM_CXMINSPACING = 47;
  19828.   {$EXTERNALSYM SM_CYMINSPACING}
  19829.   SM_CYMINSPACING = 48;
  19830.   {$EXTERNALSYM SM_CXSMICON}
  19831.   SM_CXSMICON = 49;
  19832.   {$EXTERNALSYM SM_CYSMICON}
  19833.   SM_CYSMICON = 50;
  19834.   {$EXTERNALSYM SM_CYSMCAPTION}
  19835.   SM_CYSMCAPTION = 51;
  19836.   {$EXTERNALSYM SM_CXSMSIZE}
  19837.   SM_CXSMSIZE = 52;
  19838.   {$EXTERNALSYM SM_CYSMSIZE}
  19839.   SM_CYSMSIZE = 53;
  19840.   {$EXTERNALSYM SM_CXMENUSIZE}
  19841.   SM_CXMENUSIZE = 54;
  19842.   {$EXTERNALSYM SM_CYMENUSIZE}
  19843.   SM_CYMENUSIZE = 55;
  19844.   {$EXTERNALSYM SM_ARRANGE}
  19845.   SM_ARRANGE = 56;
  19846.   {$EXTERNALSYM SM_CXMINIMIZED}
  19847.   SM_CXMINIMIZED = 57;
  19848.   {$EXTERNALSYM SM_CYMINIMIZED}
  19849.   SM_CYMINIMIZED = 58;
  19850.   {$EXTERNALSYM SM_CXMAXTRACK}
  19851.   SM_CXMAXTRACK = 59;
  19852.   {$EXTERNALSYM SM_CYMAXTRACK}
  19853.   SM_CYMAXTRACK = 60;
  19854.   {$EXTERNALSYM SM_CXMAXIMIZED}
  19855.   SM_CXMAXIMIZED = 61;
  19856.   {$EXTERNALSYM SM_CYMAXIMIZED}
  19857.   SM_CYMAXIMIZED = 62;
  19858.   {$EXTERNALSYM SM_NETWORK}
  19859.   SM_NETWORK = 63;
  19860.   {$EXTERNALSYM SM_CLEANBOOT}
  19861.   SM_CLEANBOOT = 67;
  19862.   {$EXTERNALSYM SM_CXDRAG}
  19863.   SM_CXDRAG = 68;
  19864.   {$EXTERNALSYM SM_CYDRAG}
  19865.   SM_CYDRAG = 69;
  19866.   {$EXTERNALSYM SM_SHOWSOUNDS}
  19867.   SM_SHOWSOUNDS = 70;
  19868.   {$EXTERNALSYM SM_CXMENUCHECK}
  19869.   SM_CXMENUCHECK = 71;     { Use instead of GetMenuCheckMarkDimensions()! }
  19870.   {$EXTERNALSYM SM_CYMENUCHECK}
  19871.   SM_CYMENUCHECK = 72;
  19872.   {$EXTERNALSYM SM_SLOWMACHINE}
  19873.   SM_SLOWMACHINE = 73;
  19874.   {$EXTERNALSYM SM_MIDEASTENABLED}
  19875.   SM_MIDEASTENABLED = 74;
  19876.   {$EXTERNALSYM SM_MOUSEWHEELPRESENT}
  19877.   SM_MOUSEWHEELPRESENT = 75;
  19878.   {$EXTERNALSYM SM_CMETRICS}
  19879.   SM_CMETRICS = 76;
  19880.  
  19881. {$EXTERNALSYM GetSystemMetrics}
  19882. function GetSystemMetrics(nIndex: Integer): Integer; stdcall;
  19883. {$EXTERNALSYM LoadMenuA}
  19884. function LoadMenuA(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  19885. {$EXTERNALSYM LoadMenuW}
  19886. function LoadMenuW(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  19887. {$EXTERNALSYM LoadMenu}
  19888. function LoadMenu(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  19889. {$EXTERNALSYM LoadMenuIndirectA}
  19890. function LoadMenuIndirectA(lpMenuTemplate: Pointer): HMENU; stdcall;
  19891. {$EXTERNALSYM LoadMenuIndirectW}
  19892. function LoadMenuIndirectW(lpMenuTemplate: Pointer): HMENU; stdcall;
  19893. {$EXTERNALSYM LoadMenuIndirect}
  19894. function LoadMenuIndirect(lpMenuTemplate: Pointer): HMENU; stdcall;
  19895. {$EXTERNALSYM GetMenu}
  19896. function GetMenu(hWnd: HWND): HMENU; stdcall;
  19897. {$EXTERNALSYM SetMenu}
  19898. function SetMenu(hWnd: HWND; hMenu: HMENU): BOOL; stdcall;
  19899. {$EXTERNALSYM ChangeMenuA}
  19900. function ChangeMenuA(hMenu: HMENU; cmd: UINT; lpszNewItem: PAnsiChar;
  19901.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  19902. {$EXTERNALSYM ChangeMenuW}
  19903. function ChangeMenuW(hMenu: HMENU; cmd: UINT; lpszNewItem: PWideChar;
  19904.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  19905. {$EXTERNALSYM ChangeMenu}
  19906. function ChangeMenu(hMenu: HMENU; cmd: UINT; lpszNewItem: PChar;
  19907.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  19908. {$EXTERNALSYM HiliteMenuItem}
  19909. function HiliteMenuItem(hWnd: HWND; hMenu: HMENU; uIDHiliteItem: UINT;
  19910.   uHilite: UINT): BOOL; stdcall;
  19911. {$EXTERNALSYM GetMenuStringA}
  19912. function GetMenuStringA(hMenu: HMENU; uIDItem: UINT; lpString: PAnsiChar;
  19913.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  19914. {$EXTERNALSYM GetMenuStringW}
  19915. function GetMenuStringW(hMenu: HMENU; uIDItem: UINT; lpString: PWideChar;
  19916.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  19917. {$EXTERNALSYM GetMenuString}
  19918. function GetMenuString(hMenu: HMENU; uIDItem: UINT; lpString: PChar;
  19919.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  19920. {$EXTERNALSYM GetMenuState}
  19921. function GetMenuState(hMenu: HMENU; uId, uFlags: UINT): UINT; stdcall;
  19922. {$EXTERNALSYM DrawMenuBar}
  19923. function DrawMenuBar(hWnd: HWND): BOOL; stdcall;
  19924. {$EXTERNALSYM GetSystemMenu}
  19925. function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; stdcall;
  19926. {$EXTERNALSYM CreateMenu}
  19927. function CreateMenu: HMENU; stdcall;
  19928. {$EXTERNALSYM CreatePopupMenu}
  19929. function CreatePopupMenu: HMENU; stdcall;
  19930. {$EXTERNALSYM DestroyMenu}
  19931. function DestroyMenu(hMenu: HMENU): BOOL; stdcall;
  19932. {$EXTERNALSYM CheckMenuItem}
  19933. function CheckMenuItem(hMenu: HMENU; uIDCheckItem, uCheck: UINT): DWORD; stdcall;
  19934. {$EXTERNALSYM EnableMenuItem}
  19935. function EnableMenuItem(hMenu: HMENU; uIDEnableItem, uEnable: UINT): BOOL; stdcall;
  19936. {$EXTERNALSYM GetSubMenu}
  19937. function GetSubMenu(hMenu: HMENU; nPos: Integer): HMENU; stdcall;
  19938. {$EXTERNALSYM GetMenuItemID}
  19939. function GetMenuItemID(hMenu: HMENU; nPos: Integer): UINT; stdcall;
  19940. {$EXTERNALSYM GetMenuItemCount}
  19941. function GetMenuItemCount(hMenu: HMENU): Integer; stdcall;
  19942. {$EXTERNALSYM InsertMenuA}
  19943. function InsertMenuA(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19944.   lpNewItem: PAnsiChar): BOOL; stdcall;
  19945. {$EXTERNALSYM InsertMenuW}
  19946. function InsertMenuW(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19947.   lpNewItem: PWideChar): BOOL; stdcall;
  19948. {$EXTERNALSYM InsertMenu}
  19949. function InsertMenu(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19950.   lpNewItem: PChar): BOOL; stdcall;
  19951. {$EXTERNALSYM AppendMenuA}
  19952. function AppendMenuA(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  19953.   lpNewItem: PAnsiChar): BOOL; stdcall;
  19954. {$EXTERNALSYM AppendMenuW}
  19955. function AppendMenuW(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  19956.   lpNewItem: PWideChar): BOOL; stdcall;
  19957. {$EXTERNALSYM AppendMenu}
  19958. function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  19959.   lpNewItem: PChar): BOOL; stdcall;
  19960. {$EXTERNALSYM ModifyMenuA}
  19961. function ModifyMenuA(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19962.   lpNewItem: PAnsiChar): BOOL; stdcall;
  19963. {$EXTERNALSYM ModifyMenuW}
  19964. function ModifyMenuW(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19965.   lpNewItem: PWideChar): BOOL; stdcall;
  19966. {$EXTERNALSYM ModifyMenu}
  19967. function ModifyMenu(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  19968.   lpNewItem: PChar): BOOL; stdcall;
  19969. {$EXTERNALSYM RemoveMenu}
  19970. function RemoveMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; stdcall;
  19971. {$EXTERNALSYM DeleteMenu}
  19972. function DeleteMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; stdcall;
  19973. {$EXTERNALSYM SetMenuItemBitmaps}
  19974. function SetMenuItemBitmaps(hMenu: HMENU; uPosition, uFlags: UINT;
  19975.   hBitmapUnchecked: HBITMAP; hBitmapChecked: HBITMAP): BOOL; stdcall;
  19976. {$EXTERNALSYM GetMenuCheckMarkDimensions}
  19977. function GetMenuCheckMarkDimensions: Longint; stdcall;
  19978. {$EXTERNALSYM TrackPopupMenu}
  19979. function TrackPopupMenu(hMenu: HMENU; uFlags: UINT; x, y, nReserved: Integer;
  19980.   hWnd: HWND; prcRect: PRect): BOOL; stdcall;
  19981.  
  19982.  
  19983. const
  19984.   { return codes for WM_MENUCHAR }
  19985.   {$EXTERNALSYM MNC_IGNORE}
  19986.   MNC_IGNORE = 0;
  19987.   {$EXTERNALSYM MNC_CLOSE}
  19988.   MNC_CLOSE = 1;
  19989.   {$EXTERNALSYM MNC_EXECUTE}
  19990.   MNC_EXECUTE = 2;
  19991.   {$EXTERNALSYM MNC_SELECT}
  19992.   MNC_SELECT = 3;
  19993.  
  19994. type
  19995.   PTPMParams = ^TTPMParams;
  19996.   {$EXTERNALSYM tagTPMPARAMS}
  19997.   tagTPMPARAMS = packed record
  19998.     cbSize: UINT;     { Size of structure }
  19999.     rcExclude: TRect; { Screen coordinates of rectangle to exclude when positioning }
  20000.   end;
  20001.   TTPMParams = tagTPMPARAMS;
  20002.   {$EXTERNALSYM TPMPARAMS}
  20003.   TPMPARAMS = tagTPMPARAMS;
  20004.  
  20005. {$EXTERNALSYM TrackPopupMenuEx}
  20006. function TrackPopupMenuEx(hMenu: HMENU; Flags: UINT; x, y: Integer;
  20007.   Wnd: HWND; TPMParams: PTPMParams): BOOL; stdcall;
  20008.  
  20009. const
  20010.   {$EXTERNALSYM MIIM_STATE}
  20011.   MIIM_STATE = 1;
  20012.   {$EXTERNALSYM MIIM_ID}
  20013.   MIIM_ID = 2;
  20014.   {$EXTERNALSYM MIIM_SUBMENU}
  20015.   MIIM_SUBMENU = 4;
  20016.   {$EXTERNALSYM MIIM_CHECKMARKS}
  20017.   MIIM_CHECKMARKS = 8;
  20018.   {$EXTERNALSYM MIIM_TYPE}
  20019.   MIIM_TYPE = $10;
  20020.   {$EXTERNALSYM MIIM_DATA}
  20021.   MIIM_DATA = $20;
  20022.  
  20023. type
  20024.   PMenuItemInfoA = ^TMenuItemInfoA;
  20025.   PMenuItemInfoW = ^TMenuItemInfoW;
  20026.   PMenuItemInfo = PMenuItemInfoA;
  20027.   {$EXTERNALSYM tagMENUITEMINFOA}
  20028.   tagMENUITEMINFOA = packed record
  20029.     cbSize: UINT;
  20030.     fMask: UINT;
  20031.     fType: UINT;             { used if MIIM_TYPE}
  20032.     fState: UINT;            { used if MIIM_STATE}
  20033.     wID: UINT;               { used if MIIM_ID}
  20034.     hSubMenu: HMENU;         { used if MIIM_SUBMENU}
  20035.     hbmpChecked: HBITMAP;    { used if MIIM_CHECKMARKS}
  20036.     hbmpUnchecked: HBITMAP;  { used if MIIM_CHECKMARKS}
  20037.     dwItemData: DWORD;       { used if MIIM_DATA}
  20038.     dwTypeData: PAnsiChar;      { used if MIIM_TYPE}
  20039.     cch: UINT;               { used if MIIM_TYPE}
  20040.   end;
  20041.   {$EXTERNALSYM tagMENUITEMINFOW}
  20042.   tagMENUITEMINFOW = packed record
  20043.     cbSize: UINT;
  20044.     fMask: UINT;
  20045.     fType: UINT;             { used if MIIM_TYPE}
  20046.     fState: UINT;            { used if MIIM_STATE}
  20047.     wID: UINT;               { used if MIIM_ID}
  20048.     hSubMenu: HMENU;         { used if MIIM_SUBMENU}
  20049.     hbmpChecked: HBITMAP;    { used if MIIM_CHECKMARKS}
  20050.     hbmpUnchecked: HBITMAP;  { used if MIIM_CHECKMARKS}
  20051.     dwItemData: DWORD;       { used if MIIM_DATA}
  20052.     dwTypeData: PWideChar;      { used if MIIM_TYPE}
  20053.     cch: UINT;               { used if MIIM_TYPE}
  20054.   end;
  20055.   {$EXTERNALSYM tagMENUITEMINFO}
  20056.   tagMENUITEMINFO = tagMENUITEMINFOA;
  20057.   TMenuItemInfoA = tagMENUITEMINFOA;
  20058.   TMenuItemInfoW = tagMENUITEMINFOW;
  20059.   TMenuItemInfo = TMenuItemInfoA;
  20060.   {$EXTERNALSYM MENUITEMINFOA}
  20061.   MENUITEMINFOA = tagMENUITEMINFOA;
  20062.   {$EXTERNALSYM MENUITEMINFOW}
  20063.   MENUITEMINFOW = tagMENUITEMINFOW;
  20064.   {$EXTERNALSYM MENUITEMINFO}
  20065.   MENUITEMINFO = MENUITEMINFOA;
  20066.  
  20067. {$EXTERNALSYM InsertMenuItemA}
  20068. function InsertMenuItemA(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoA): BOOL; stdcall;
  20069. {$EXTERNALSYM InsertMenuItemW}
  20070. function InsertMenuItemW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; stdcall;
  20071. {$EXTERNALSYM InsertMenuItem}
  20072. function InsertMenuItem(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;
  20073. {$EXTERNALSYM GetMenuItemInfoA}
  20074. function GetMenuItemInfoA(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoA): BOOL; stdcall;
  20075. {$EXTERNALSYM GetMenuItemInfoW}
  20076. function GetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoW): BOOL; stdcall;
  20077. {$EXTERNALSYM GetMenuItemInfo}
  20078. function GetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfo): BOOL; stdcall;
  20079. {$EXTERNALSYM SetMenuItemInfoA}
  20080. function SetMenuItemInfoA(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoA): BOOL; stdcall;
  20081. {$EXTERNALSYM SetMenuItemInfoW}
  20082. function SetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; stdcall;
  20083. {$EXTERNALSYM SetMenuItemInfo}
  20084. function SetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;
  20085.  
  20086. const
  20087.   {$EXTERNALSYM GMDI_USEDISABLED}
  20088.   GMDI_USEDISABLED = 1;
  20089.   {$EXTERNALSYM GMDI_GOINTOPOPUPS}
  20090.   GMDI_GOINTOPOPUPS = 2;
  20091.  
  20092. {$EXTERNALSYM GetMenuDefaultItem}
  20093. function GetMenuDefaultItem(hMenu: HMENU; fByPos, gmdiFlags: UINT): UINT; stdcall;
  20094. {$EXTERNALSYM SetMenuDefaultItem}
  20095. function SetMenuDefaultItem(hMenu: HMENU; uItem, fByPos: UINT): BOOL; stdcall;
  20096. {$EXTERNALSYM GetMenuItemRect}
  20097. function GetMenuItemRect(hWnd: HWND; hMenu: HMENU; uItem: UINT;
  20098.   var lprcItem: TRect): BOOL; stdcall;
  20099. {$EXTERNALSYM MenuItemFromPoint}
  20100. function MenuItemFromPoint(hWnd: HWND; hMenu: HMENU; ptScreen: TPoint): BOOL; stdcall;
  20101.  
  20102. const
  20103.   { Flags for TrackPopupMenu }
  20104.   {$EXTERNALSYM TPM_LEFTBUTTON}
  20105.   TPM_LEFTBUTTON = 0;
  20106.   {$EXTERNALSYM TPM_RIGHTBUTTON}
  20107.   TPM_RIGHTBUTTON = 2;
  20108.   {$EXTERNALSYM TPM_LEFTALIGN}
  20109.   TPM_LEFTALIGN = 0;
  20110.   {$EXTERNALSYM TPM_CENTERALIGN}
  20111.   TPM_CENTERALIGN = 4;
  20112.   {$EXTERNALSYM TPM_RIGHTALIGN}
  20113.   TPM_RIGHTALIGN = 8;
  20114.   {$EXTERNALSYM TPM_TOPALIGN}
  20115.   TPM_TOPALIGN = 0;
  20116.   {$EXTERNALSYM TPM_VCENTERALIGN}
  20117.   TPM_VCENTERALIGN = $10;
  20118.   {$EXTERNALSYM TPM_BOTTOMALIGN}
  20119.   TPM_BOTTOMALIGN = $20;
  20120.  
  20121.   {$EXTERNALSYM TPM_HORIZONTAL}
  20122.   TPM_HORIZONTAL = 0;   { Horz alignment matters more }
  20123.   {$EXTERNALSYM TPM_VERTICAL}
  20124.   TPM_VERTICAL = $40;   { Vert alignment matters more }
  20125.   {$EXTERNALSYM TPM_NONOTIFY}
  20126.   TPM_NONOTIFY = $80;   { Don't send any notification msgs }
  20127.   {$EXTERNALSYM TPM_RETURNCMD}
  20128.   TPM_RETURNCMD = $100;
  20129.  
  20130.  
  20131. { Drag-and-drop support }
  20132.  
  20133. type
  20134.   PDropStruct = ^TDropStruct;
  20135.   {$EXTERNALSYM tagDROPSTRUCT}
  20136.   tagDROPSTRUCT = packed record
  20137.     hwndSource: HWND;
  20138.     hwndSink: HWND;
  20139.     wFmt: DWORD;
  20140.     dwData: DWORD;
  20141.     ptDrop: TPoint;
  20142.     dwControlData: DWORD;
  20143.   end;
  20144.   TDropStruct = tagDROPSTRUCT;
  20145.   {$EXTERNALSYM DROPSTRUCT}
  20146.   DROPSTRUCT = tagDROPSTRUCT;
  20147.  
  20148. const
  20149.   {$EXTERNALSYM DOF_EXECUTABLE}
  20150.   DOF_EXECUTABLE = 32769;
  20151.   {$EXTERNALSYM DOF_DOCUMENT}
  20152.   DOF_DOCUMENT = 32770;
  20153.   {$EXTERNALSYM DOF_DIRECTORY}
  20154.   DOF_DIRECTORY = 32771;
  20155.   {$EXTERNALSYM DOF_MULTIPLE}
  20156.   DOF_MULTIPLE = 32772;
  20157.   {$EXTERNALSYM DOF_PROGMAN}
  20158.   DOF_PROGMAN = 1;
  20159.   {$EXTERNALSYM DOF_SHELLDATA}
  20160.   DOF_SHELLDATA = 2;
  20161.  
  20162.   {$EXTERNALSYM DO_DROPFILE}
  20163.   DO_DROPFILE = $454C4946;
  20164.   {$EXTERNALSYM DO_PRINTFILE}
  20165.   DO_PRINTFILE = $544E5250;
  20166.  
  20167. {$EXTERNALSYM DragObject}
  20168. function DragObject(p1, p2: HWND; p3: UINT; p4: DWORD;
  20169.   p5: HICON): DWORD; stdcall;
  20170. {$EXTERNALSYM DragDetect}
  20171. function DragDetect(p1: HWND; p2: TPoint): BOOL; stdcall;
  20172. {$EXTERNALSYM DrawIcon}
  20173. function DrawIcon(hDC: HDC; X, Y: Integer; hIcon: HICON): BOOL; stdcall;
  20174.  
  20175. const
  20176.   { DrawText() Format Flags }
  20177.   {$EXTERNALSYM DT_TOP}
  20178.   DT_TOP = 0;
  20179.   {$EXTERNALSYM DT_LEFT}
  20180.   DT_LEFT = 0;
  20181.   {$EXTERNALSYM DT_CENTER}
  20182.   DT_CENTER = 1;
  20183.   {$EXTERNALSYM DT_RIGHT}
  20184.   DT_RIGHT = 2;
  20185.   {$EXTERNALSYM DT_VCENTER}
  20186.   DT_VCENTER = 4;
  20187.   {$EXTERNALSYM DT_BOTTOM}
  20188.   DT_BOTTOM = 8;
  20189.   {$EXTERNALSYM DT_WORDBREAK}
  20190.   DT_WORDBREAK = $10;
  20191.   {$EXTERNALSYM DT_SINGLELINE}
  20192.   DT_SINGLELINE = $20;
  20193.   {$EXTERNALSYM DT_EXPANDTABS}
  20194.   DT_EXPANDTABS = $40;
  20195.   {$EXTERNALSYM DT_TABSTOP}
  20196.   DT_TABSTOP = $80;
  20197.   {$EXTERNALSYM DT_NOCLIP}
  20198.   DT_NOCLIP = $100;
  20199.   {$EXTERNALSYM DT_EXTERNALLEADING}
  20200.   DT_EXTERNALLEADING = $200;
  20201.   {$EXTERNALSYM DT_CALCRECT}
  20202.   DT_CALCRECT = $400;
  20203.   {$EXTERNALSYM DT_NOPREFIX}
  20204.   DT_NOPREFIX = $800;
  20205.   {$EXTERNALSYM DT_INTERNAL}
  20206.   DT_INTERNAL = $1000;
  20207.  
  20208.   {$EXTERNALSYM DT_EDITCONTROL}
  20209.   DT_EDITCONTROL = $2000;
  20210.   {$EXTERNALSYM DT_PATH_ELLIPSIS}
  20211.   DT_PATH_ELLIPSIS = $4000;
  20212.   {$EXTERNALSYM DT_END_ELLIPSIS}
  20213.   DT_END_ELLIPSIS = $8000;
  20214.   {$EXTERNALSYM DT_MODIFYSTRING}
  20215.   DT_MODIFYSTRING = $10000;
  20216.   {$EXTERNALSYM DT_RTLREADING}
  20217.   DT_RTLREADING = $20000;
  20218.   {$EXTERNALSYM DT_WORD_ELLIPSIS}
  20219.   DT_WORD_ELLIPSIS = $40000;
  20220.  
  20221. type
  20222.   PDrawTextParams = ^TDrawTextParams;
  20223.   {$EXTERNALSYM tagDRAWTEXTPARAMS}
  20224.   tagDRAWTEXTPARAMS = packed record
  20225.     cbSize: UINT;
  20226.     iTabLength: Integer;
  20227.     iLeftMargin: Integer;
  20228.     iRightMargin: Integer;
  20229.     uiLengthDrawn: UINT;
  20230.   end;
  20231.   TDrawTextParams = tagDRAWTEXTPARAMS;
  20232.   {$EXTERNALSYM DRAWTEXTPARAMS}
  20233.   DRAWTEXTPARAMS = tagDRAWTEXTPARAMS;
  20234.  
  20235. {$EXTERNALSYM DrawTextA}
  20236. function DrawTextA(hDC: HDC; lpString: PAnsiChar; nCount: Integer;
  20237.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  20238. {$EXTERNALSYM DrawTextW}
  20239. function DrawTextW(hDC: HDC; lpString: PWideChar; nCount: Integer;
  20240.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  20241. {$EXTERNALSYM DrawText}
  20242. function DrawText(hDC: HDC; lpString: PChar; nCount: Integer;
  20243.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  20244. {$EXTERNALSYM DrawTextExA}
  20245. function DrawTextExA(DC: HDC; lpchText: PAnsiChar; cchText: Integer; var p4: TRect;
  20246.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  20247. {$EXTERNALSYM DrawTextExW}
  20248. function DrawTextExW(DC: HDC; lpchText: PWideChar; cchText: Integer; var p4: TRect;
  20249.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  20250. {$EXTERNALSYM DrawTextEx}
  20251. function DrawTextEx(DC: HDC; lpchText: PChar; cchText: Integer; var p4: TRect;
  20252.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  20253. {$EXTERNALSYM GrayStringA}
  20254. function GrayStringA(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  20255.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  20256. {$EXTERNALSYM GrayStringW}
  20257. function GrayStringW(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  20258.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  20259. {$EXTERNALSYM GrayString}
  20260. function GrayString(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  20261.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  20262.  
  20263.  
  20264. { Monolithic state-drawing routine }
  20265.  
  20266. const
  20267.   { Image type }
  20268.   {$EXTERNALSYM DST_COMPLEX}
  20269.   DST_COMPLEX = 0;
  20270.   {$EXTERNALSYM DST_TEXT}
  20271.   DST_TEXT = 1;
  20272.   {$EXTERNALSYM DST_PREFIXTEXT}
  20273.   DST_PREFIXTEXT = 2;
  20274.   {$EXTERNALSYM DST_ICON}
  20275.   DST_ICON = 3;
  20276.   {$EXTERNALSYM DST_BITMAP}
  20277.   DST_BITMAP = 4;
  20278.  
  20279.   { State type }
  20280.   {$EXTERNALSYM DSS_NORMAL}
  20281.   DSS_NORMAL = 0;
  20282.   {$EXTERNALSYM DSS_UNION}
  20283.   DSS_UNION = $10;     { Gray string appearance }
  20284.   {$EXTERNALSYM DSS_DISABLED}
  20285.   DSS_DISABLED = $20;
  20286.   {$EXTERNALSYM DSS_MONO}
  20287.   DSS_MONO = $80;
  20288.   {$EXTERNALSYM DSS_RIGHT}
  20289.   DSS_RIGHT = $8000;
  20290.  
  20291. {$EXTERNALSYM DrawStateA}
  20292. function DrawStateA(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  20293.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  20294. {$EXTERNALSYM DrawStateW}
  20295. function DrawStateW(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  20296.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  20297. {$EXTERNALSYM DrawState}
  20298. function DrawState(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  20299.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  20300. {$EXTERNALSYM TabbedTextOutA}
  20301. function TabbedTextOutA(hDC: HDC; X, Y: Integer; lpString: PAnsiChar; nCount, nTabPositions: Integer;
  20302.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  20303. {$EXTERNALSYM TabbedTextOutW}
  20304. function TabbedTextOutW(hDC: HDC; X, Y: Integer; lpString: PWideChar; nCount, nTabPositions: Integer;
  20305.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  20306. {$EXTERNALSYM TabbedTextOut}
  20307. function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: PChar; nCount, nTabPositions: Integer;
  20308.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  20309. {$EXTERNALSYM GetTabbedTextExtentA}
  20310. function GetTabbedTextExtentA(hDC: HDC; lpString: PAnsiChar;
  20311.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  20312. {$EXTERNALSYM GetTabbedTextExtentW}
  20313. function GetTabbedTextExtentW(hDC: HDC; lpString: PWideChar;
  20314.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  20315. {$EXTERNALSYM GetTabbedTextExtent}
  20316. function GetTabbedTextExtent(hDC: HDC; lpString: PChar;
  20317.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  20318. {$EXTERNALSYM UpdateWindow}
  20319. function UpdateWindow(hWnd: HWND): BOOL; stdcall;
  20320. {$EXTERNALSYM SetActiveWindow}
  20321. function SetActiveWindow(hWnd: HWND): HWND; stdcall;
  20322. {$EXTERNALSYM GetForegroundWindow}
  20323. function GetForegroundWindow: HWND; stdcall;
  20324. {$EXTERNALSYM PaintDesktop}
  20325. function PaintDesktop(hdc: HDC): BOOL; stdcall;
  20326. {$EXTERNALSYM SetForegroundWindow}
  20327. function SetForegroundWindow(hWnd: HWND): BOOL; stdcall;
  20328. {$EXTERNALSYM WindowFromDC}
  20329. function WindowFromDC(hDC: HDC): HWND; stdcall;
  20330. {$EXTERNALSYM GetDC}
  20331. function GetDC(hWnd: HWND): HDC; stdcall;
  20332. {$EXTERNALSYM GetDCEx}
  20333. function GetDCEx(hWnd: HWND; hrgnClip: HRGN; flags: DWORD): HDC; stdcall;
  20334.  
  20335. const
  20336.   { GetDCEx() flags }
  20337.   {$EXTERNALSYM DCX_WINDOW}
  20338.   DCX_WINDOW = 1;
  20339.   {$EXTERNALSYM DCX_CACHE}
  20340.   DCX_CACHE = 2;
  20341.   {$EXTERNALSYM DCX_NORESETATTRS}
  20342.   DCX_NORESETATTRS = 4;
  20343.   {$EXTERNALSYM DCX_CLIPCHILDREN}
  20344.   DCX_CLIPCHILDREN = 8;
  20345.   {$EXTERNALSYM DCX_CLIPSIBLINGS}
  20346.   DCX_CLIPSIBLINGS = $10;
  20347.   {$EXTERNALSYM DCX_PARENTCLIP}
  20348.   DCX_PARENTCLIP = $20;
  20349.   {$EXTERNALSYM DCX_EXCLUDERGN}
  20350.   DCX_EXCLUDERGN = $40;
  20351.   {$EXTERNALSYM DCX_INTERSECTRGN}
  20352.   DCX_INTERSECTRGN = $80;
  20353.   {$EXTERNALSYM DCX_EXCLUDEUPDATE}
  20354.   DCX_EXCLUDEUPDATE = $100;
  20355.   {$EXTERNALSYM DCX_INTERSECTUPDATE}
  20356.   DCX_INTERSECTUPDATE = $200;
  20357.   {$EXTERNALSYM DCX_LOCKWINDOWUPDATE}
  20358.   DCX_LOCKWINDOWUPDATE = $400;
  20359.   {$EXTERNALSYM DCX_VALIDATE}
  20360.   DCX_VALIDATE = $200000;
  20361.  
  20362. {$EXTERNALSYM GetWindowDC}
  20363. function GetWindowDC(hWnd: HWND): HDC; stdcall;
  20364. {$EXTERNALSYM ReleaseDC}
  20365. function ReleaseDC(hWnd: HWND; hDC: HDC): Integer; stdcall;
  20366. {$EXTERNALSYM BeginPaint}
  20367. function BeginPaint(hWnd: HWND; var lpPaint: TPaintStruct): HDC; stdcall;
  20368. {$EXTERNALSYM EndPaint}
  20369. function EndPaint(hWnd: HWND; const lpPaint: TPaintStruct): BOOL; stdcall;
  20370. {$EXTERNALSYM GetUpdateRect}
  20371. function GetUpdateRect(hWnd: HWND; var lpRect: TRect; bErase: BOOL): BOOL; stdcall;
  20372. {$EXTERNALSYM GetUpdateRgn}
  20373. function GetUpdateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): Integer; stdcall;
  20374. {$EXTERNALSYM SetWindowRgn}
  20375. function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): BOOL; stdcall;
  20376. {$EXTERNALSYM GetWindowRgn}
  20377. function GetWindowRgn(hWnd: HWND; hRgn: HRGN): BOOL; stdcall;
  20378. {$EXTERNALSYM ExcludeUpdateRgn}
  20379. function ExcludeUpdateRgn(hDC: HDC; hWnd: HWND): Integer; stdcall;
  20380. {$EXTERNALSYM InvalidateRect}
  20381. function InvalidateRect(hWnd: HWND; lpRect: PRect; bErase: BOOL): BOOL; stdcall;
  20382. {$EXTERNALSYM ValidateRect}
  20383. function ValidateRect(hWnd: HWND; lpRect: PRect): BOOL; stdcall;
  20384. {$EXTERNALSYM InvalidateRgn}
  20385. function InvalidateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): BOOL; stdcall;
  20386. {$EXTERNALSYM ValidateRgn}
  20387. function ValidateRgn(hWnd: HWND; hRgn: HRGN): BOOL; stdcall;
  20388. {$EXTERNALSYM RedrawWindow}
  20389. function RedrawWindow(hWnd: HWND; lprcUpdate: PRect; hrgnUpdate: HRGN; flags: UINT): BOOL; stdcall;
  20390.  
  20391. const
  20392.   { RedrawWindow() flags }
  20393.   {$EXTERNALSYM RDW_INVALIDATE}
  20394.   RDW_INVALIDATE = 1;
  20395.   {$EXTERNALSYM RDW_INTERNALPAINT}
  20396.   RDW_INTERNALPAINT = 2;
  20397.   {$EXTERNALSYM RDW_ERASE}
  20398.   RDW_ERASE = 4;
  20399.   {$EXTERNALSYM RDW_VALIDATE}
  20400.   RDW_VALIDATE = 8;
  20401.   {$EXTERNALSYM RDW_NOINTERNALPAINT}
  20402.   RDW_NOINTERNALPAINT = $10;
  20403.   {$EXTERNALSYM RDW_NOERASE}
  20404.   RDW_NOERASE = $20;
  20405.   {$EXTERNALSYM RDW_NOCHILDREN}
  20406.   RDW_NOCHILDREN = $40;
  20407.   {$EXTERNALSYM RDW_ALLCHILDREN}
  20408.   RDW_ALLCHILDREN = $80;
  20409.   {$EXTERNALSYM RDW_UPDATENOW}
  20410.   RDW_UPDATENOW = $100;
  20411.   {$EXTERNALSYM RDW_ERASENOW}
  20412.   RDW_ERASENOW = $200;
  20413.   {$EXTERNALSYM RDW_FRAME}
  20414.   RDW_FRAME = $400;
  20415.   {$EXTERNALSYM RDW_NOFRAME}
  20416.   RDW_NOFRAME = $800;
  20417.  
  20418.  
  20419. { LockWindowUpdate API }
  20420.  
  20421. {$EXTERNALSYM LockWindowUpdate}
  20422. function LockWindowUpdate(hWndLock: HWND): BOOL; stdcall;
  20423. {$EXTERNALSYM ScrollWindow}
  20424. function ScrollWindow(hWnd: HWND; XAmount, YAmount: Integer;
  20425.   Rect, ClipRect: PRect): BOOL; stdcall;
  20426. {$EXTERNALSYM ScrollDC}
  20427. function ScrollDC(DC: HDC; DX, DY: Integer; var Scroll, Clip: TRect; Rgn: HRGN;
  20428.   Update: PRect): BOOL; stdcall;
  20429. {$EXTERNALSYM ScrollWindowEx}
  20430. function ScrollWindowEx(hWnd: HWND; dx, dy: Integer;
  20431.   prcScroll, prcClip: PRect;
  20432.   hrgnUpdate: HRGN; prcUpdate: PRect; flags: UINT): BOOL; stdcall;
  20433.  
  20434. const
  20435.   {$EXTERNALSYM SW_SCROLLCHILDREN}
  20436.   SW_SCROLLCHILDREN = 1;  { Scroll children within lprcScroll. }
  20437.   {$EXTERNALSYM SW_INVALIDATE}
  20438.   SW_INVALIDATE = 2;      { Invalidate after scrolling }
  20439.   {$EXTERNALSYM SW_ERASE}
  20440.   SW_ERASE = 4;           { If SW_INVALIDATE, don't send WM_ERASEBACKGROUND }
  20441.  
  20442. {$EXTERNALSYM SetScrollPos}
  20443. function SetScrollPos(hWnd: HWND; nBar, nPos: Integer; bRedraw: BOOL): Integer; stdcall;
  20444. {$EXTERNALSYM GetScrollPos}
  20445. function GetScrollPos(hWnd: HWND; nBar: Integer): Integer; stdcall;
  20446. {$EXTERNALSYM SetScrollRange}
  20447. function SetScrollRange(hWnd: HWND; nBar, nMinPos, nMaxPos: Integer; bRedraw: BOOL): BOOL; stdcall;
  20448. {$EXTERNALSYM GetScrollRange}
  20449. function GetScrollRange(hWnd: HWND; nBar: Integer; var lpMinPos, lpMaxPos: Integer): BOOL; stdcall;
  20450. {$EXTERNALSYM ShowScrollBar}
  20451. function ShowScrollBar(hWnd: HWND; wBar: Integer; bShow: BOOL): BOOL; stdcall;
  20452. {$EXTERNALSYM EnableScrollBar}
  20453. function EnableScrollBar(hWnd: HWND; wSBflags, wArrows: UINT): BOOL; stdcall;
  20454.  
  20455.  
  20456. const
  20457.   { EnableScrollBar() flags }
  20458.   {$EXTERNALSYM ESB_ENABLE_BOTH}
  20459.   ESB_ENABLE_BOTH = 0;
  20460.   {$EXTERNALSYM ESB_DISABLE_BOTH}
  20461.   ESB_DISABLE_BOTH = 3;
  20462.   {$EXTERNALSYM ESB_DISABLE_LEFT}
  20463.   ESB_DISABLE_LEFT = 1;
  20464.   {$EXTERNALSYM ESB_DISABLE_RIGHT}
  20465.   ESB_DISABLE_RIGHT = 2;
  20466.   {$EXTERNALSYM ESB_DISABLE_UP}
  20467.   ESB_DISABLE_UP = 1;
  20468.   {$EXTERNALSYM ESB_DISABLE_DOWN}
  20469.   ESB_DISABLE_DOWN = 2;
  20470.   {$EXTERNALSYM ESB_DISABLE_LTUP}
  20471.   ESB_DISABLE_LTUP = ESB_DISABLE_LEFT;
  20472.   {$EXTERNALSYM ESB_DISABLE_RTDN}
  20473.   ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT;
  20474.  
  20475. {$EXTERNALSYM SetPropA}
  20476. function SetPropA(hWnd: HWND; lpString: PAnsiChar; hData: THandle): BOOL; stdcall;
  20477. {$EXTERNALSYM SetPropW}
  20478. function SetPropW(hWnd: HWND; lpString: PWideChar; hData: THandle): BOOL; stdcall;
  20479. {$EXTERNALSYM SetProp}
  20480. function SetProp(hWnd: HWND; lpString: PChar; hData: THandle): BOOL; stdcall;
  20481. {$EXTERNALSYM GetPropA}
  20482. function GetPropA(hWnd: HWND; lpString: PAnsiChar): THandle; stdcall;
  20483. {$EXTERNALSYM GetPropW}
  20484. function GetPropW(hWnd: HWND; lpString: PWideChar): THandle; stdcall;
  20485. {$EXTERNALSYM GetProp}
  20486. function GetProp(hWnd: HWND; lpString: PChar): THandle; stdcall;
  20487. {$EXTERNALSYM RemovePropA}
  20488. function RemovePropA(hWnd: HWND; lpString: PAnsiChar): THandle; stdcall;
  20489. {$EXTERNALSYM RemovePropW}
  20490. function RemovePropW(hWnd: HWND; lpString: PWideChar): THandle; stdcall;
  20491. {$EXTERNALSYM RemoveProp}
  20492. function RemoveProp(hWnd: HWND; lpString: PChar): THandle; stdcall;
  20493. {$EXTERNALSYM EnumPropsExA}
  20494. function EnumPropsExA(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  20495. {$EXTERNALSYM EnumPropsExW}
  20496. function EnumPropsExW(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  20497. {$EXTERNALSYM EnumPropsEx}
  20498. function EnumPropsEx(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  20499. {$EXTERNALSYM EnumPropsA}
  20500. function EnumPropsA(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  20501. {$EXTERNALSYM EnumPropsW}
  20502. function EnumPropsW(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  20503. {$EXTERNALSYM EnumProps}
  20504. function EnumProps(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  20505. {$EXTERNALSYM SetWindowTextA}
  20506. function SetWindowTextA(hWnd: HWND; lpString: PAnsiChar): BOOL; stdcall;
  20507. {$EXTERNALSYM SetWindowTextW}
  20508. function SetWindowTextW(hWnd: HWND; lpString: PWideChar): BOOL; stdcall;
  20509. {$EXTERNALSYM SetWindowText}
  20510. function SetWindowText(hWnd: HWND; lpString: PChar): BOOL; stdcall;
  20511. {$EXTERNALSYM GetWindowTextA}
  20512. function GetWindowTextA(hWnd: HWND; lpString: PAnsiChar; nMaxCount: Integer): Integer; stdcall;
  20513. {$EXTERNALSYM GetWindowTextW}
  20514. function GetWindowTextW(hWnd: HWND; lpString: PWideChar; nMaxCount: Integer): Integer; stdcall;
  20515. {$EXTERNALSYM GetWindowText}
  20516. function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall;
  20517. {$EXTERNALSYM GetWindowTextLengthA}
  20518. function GetWindowTextLengthA(hWnd: HWND): Integer; stdcall;
  20519. {$EXTERNALSYM GetWindowTextLengthW}
  20520. function GetWindowTextLengthW(hWnd: HWND): Integer; stdcall;
  20521. {$EXTERNALSYM GetWindowTextLength}
  20522. function GetWindowTextLength(hWnd: HWND): Integer; stdcall;
  20523.  
  20524. {$EXTERNALSYM GetClientRect}
  20525. function GetClientRect(hWnd: HWND; var lpRect: TRect): BOOL; stdcall;
  20526. {$EXTERNALSYM GetWindowRect}
  20527. function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; stdcall;
  20528. {$EXTERNALSYM AdjustWindowRect}
  20529. function AdjustWindowRect(var lpRect: TRect; dwStyle: DWORD; bMenu: BOOL): BOOL; stdcall;
  20530. {$EXTERNALSYM AdjustWindowRectEx}
  20531. function AdjustWindowRectEx(var lpRect: TRect; dwStyle: DWORD; bMenu: BOOL;
  20532.   dwExStyle: DWORD): BOOL; stdcall;
  20533.  
  20534. const
  20535.   {$EXTERNALSYM HELPINFO_WINDOW}
  20536.   HELPINFO_WINDOW = 1;
  20537.   {$EXTERNALSYM HELPINFO_MENUITEM}
  20538.   HELPINFO_MENUITEM = 2;
  20539. type
  20540.   PHelpInfo = ^THelpInfo;
  20541.   {$EXTERNALSYM tagHELPINFO}
  20542.   tagHELPINFO = packed record       { Structure pointed to by lParam of WM_HELP }
  20543.     cbSize: UINT;          { Size in bytes of this struct  }
  20544.     iContextType: Integer; { Either HELPINFO_WINDOW or HELPINFO_MENUITEM }
  20545.     iCtrlId: Integer;      { Control Id or a Menu item Id. }
  20546.     hItemHandle: THandle;  { hWnd of control or hMenu.     }
  20547.     dwContextId: DWORD;    { Context Id associated with this item }
  20548.     MousePos: TPoint;      { Mouse Position in screen co-ordinates }
  20549.   end;
  20550.   THelpInfo = tagHELPINFO;
  20551.   {$EXTERNALSYM HELPINFO}
  20552.   HELPINFO = tagHELPINFO;
  20553.  
  20554. {$EXTERNALSYM SetWindowContextHelpId}
  20555. function SetWindowContextHelpId(hWnd: HWND; HelpID: DWORD): BOOL; stdcall;
  20556. {$EXTERNALSYM GetWindowContextHelpId}
  20557. function GetWindowContextHelpId(hWnd: HWND): DWORD; stdcall;
  20558. {$EXTERNALSYM SetMenuContextHelpId}
  20559. function SetMenuContextHelpId(hMenu: HMENU; HelpID: DWORD): BOOL; stdcall;
  20560. {$EXTERNALSYM GetMenuContextHelpId}
  20561. function GetMenuContextHelpId(hMenu: HMENU): DWORD; stdcall;
  20562.  
  20563. const
  20564.   { MessageBox() Flags }
  20565.   {$EXTERNALSYM MB_OK}
  20566.   MB_OK = $00000000;
  20567.   {$EXTERNALSYM MB_OKCANCEL}
  20568.   MB_OKCANCEL = $00000001;
  20569.   {$EXTERNALSYM MB_ABORTRETRYIGNORE}
  20570.   MB_ABORTRETRYIGNORE = $00000002;
  20571.   {$EXTERNALSYM MB_YESNOCANCEL}
  20572.   MB_YESNOCANCEL = $00000003;
  20573.   {$EXTERNALSYM MB_YESNO}
  20574.   MB_YESNO = $00000004;
  20575.   {$EXTERNALSYM MB_RETRYCANCEL}
  20576.   MB_RETRYCANCEL = $00000005;
  20577.  
  20578.   {$EXTERNALSYM MB_ICONHAND}
  20579.   MB_ICONHAND = $00000010;
  20580.   {$EXTERNALSYM MB_ICONQUESTION}
  20581.   MB_ICONQUESTION = $00000020;
  20582.   {$EXTERNALSYM MB_ICONEXCLAMATION}
  20583.   MB_ICONEXCLAMATION = $00000030;
  20584.   {$EXTERNALSYM MB_ICONASTERISK}
  20585.   MB_ICONASTERISK = $00000040;
  20586.   {$EXTERNALSYM MB_USERICON}
  20587.   MB_USERICON = $00000080;
  20588.   {$EXTERNALSYM MB_ICONWARNING}
  20589.   MB_ICONWARNING                 = MB_ICONEXCLAMATION;
  20590.   {$EXTERNALSYM MB_ICONERROR}
  20591.   MB_ICONERROR                   = MB_ICONHAND;
  20592.   {$EXTERNALSYM MB_ICONINFORMATION}
  20593.   MB_ICONINFORMATION             = MB_ICONASTERISK;
  20594.   {$EXTERNALSYM MB_ICONSTOP}
  20595.   MB_ICONSTOP                    = MB_ICONHAND;
  20596.  
  20597.   {$EXTERNALSYM MB_DEFBUTTON1}
  20598.   MB_DEFBUTTON1 = $00000000;
  20599.   {$EXTERNALSYM MB_DEFBUTTON2}
  20600.   MB_DEFBUTTON2 = $00000100;
  20601.   {$EXTERNALSYM MB_DEFBUTTON3}
  20602.   MB_DEFBUTTON3 = $00000200;
  20603.   {$EXTERNALSYM MB_DEFBUTTON4}
  20604.   MB_DEFBUTTON4 = $00000300;
  20605.  
  20606.   {$EXTERNALSYM MB_APPLMODAL}
  20607.   MB_APPLMODAL = $00000000;
  20608.   {$EXTERNALSYM MB_SYSTEMMODAL}
  20609.   MB_SYSTEMMODAL = $00001000;
  20610.   {$EXTERNALSYM MB_TASKMODAL}
  20611.   MB_TASKMODAL = $00002000;
  20612.   {$EXTERNALSYM MB_HELP}
  20613.   MB_HELP = $00004000;                          { Help Button }
  20614.  
  20615.   {$EXTERNALSYM MB_NOFOCUS}
  20616.   MB_NOFOCUS = $00008000;
  20617.   {$EXTERNALSYM MB_SETFOREGROUND}
  20618.   MB_SETFOREGROUND = $00010000;
  20619.   {$EXTERNALSYM MB_DEFAULT_DESKTOP_ONLY}
  20620.   MB_DEFAULT_DESKTOP_ONLY = $00020000;
  20621.  
  20622.   {$EXTERNALSYM MB_TOPMOST}
  20623.   MB_TOPMOST = $00040000;
  20624.   {$EXTERNALSYM MB_RIGHT}
  20625.   MB_RIGHT = $00080000;
  20626.   {$EXTERNALSYM MB_RTLREADING}
  20627.   MB_RTLREADING = $00100000;
  20628.  
  20629.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION}
  20630.   MB_SERVICE_NOTIFICATION = $00200000;
  20631.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION_NT3X}
  20632.   MB_SERVICE_NOTIFICATION_NT3X = $00040000;
  20633.  
  20634.   {$EXTERNALSYM MB_TYPEMASK}
  20635.   MB_TYPEMASK = $0000000F;
  20636.   {$EXTERNALSYM MB_ICONMASK}
  20637.   MB_ICONMASK = $000000F0;
  20638.   {$EXTERNALSYM MB_DEFMASK}
  20639.   MB_DEFMASK = $00000F00;
  20640.   {$EXTERNALSYM MB_MODEMASK}
  20641.   MB_MODEMASK = $00003000;
  20642.   {$EXTERNALSYM MB_MISCMASK}
  20643.   MB_MISCMASK = $0000C000;
  20644.  
  20645.  
  20646. {$EXTERNALSYM MessageBoxA}
  20647. function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
  20648. {$EXTERNALSYM MessageBoxW}
  20649. function MessageBoxW(hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;
  20650. {$EXTERNALSYM MessageBox}
  20651. function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
  20652. {$EXTERNALSYM MessageBoxExA}
  20653. function MessageBoxExA(hWnd: HWND; lpText, lpCaption: PAnsiChar;
  20654.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  20655. {$EXTERNALSYM MessageBoxExW}
  20656. function MessageBoxExW(hWnd: HWND; lpText, lpCaption: PWideChar;
  20657.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  20658. {$EXTERNALSYM MessageBoxEx}
  20659. function MessageBoxEx(hWnd: HWND; lpText, lpCaption: PChar;
  20660.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  20661.  
  20662. type
  20663.   TPRMsgBoxCallback = procedure(var lpHelpInfo: THelpInfo);
  20664.  
  20665.   PMsgBoxParamsA = ^TMsgBoxParamsA;
  20666.   PMsgBoxParamsW = ^TMsgBoxParamsW;
  20667.   PMsgBoxParams = PMsgBoxParamsA;
  20668.   {$EXTERNALSYM tagMSGBOXPARAMSA}
  20669.   tagMSGBOXPARAMSA = packed record
  20670.     cbSize: UINT;
  20671.     hwndOwner: HWND;
  20672.     hInstance: HINST;
  20673.     lpszText: PAnsiChar;
  20674.     lpszCaption: PAnsiChar;
  20675.     dwStyle: DWORD;
  20676.     lpszIcon: PAnsiChar;
  20677.     dwContextHelpId: DWORD;
  20678.     lpfnMsgBoxCallback: TPRMsgBoxCallback;
  20679.     dwLanguageId: DWORD;
  20680.   end;
  20681.   {$EXTERNALSYM tagMSGBOXPARAMSW}
  20682.   tagMSGBOXPARAMSW = packed record
  20683.     cbSize: UINT;
  20684.     hwndOwner: HWND;
  20685.     hInstance: HINST;
  20686.     lpszText: PWideChar;
  20687.     lpszCaption: PWideChar;
  20688.     dwStyle: DWORD;
  20689.     lpszIcon: PWideChar;
  20690.     dwContextHelpId: DWORD;
  20691.     lpfnMsgBoxCallback: TPRMsgBoxCallback;
  20692.     dwLanguageId: DWORD;
  20693.   end;
  20694.   {$EXTERNALSYM tagMSGBOXPARAMS}
  20695.   tagMSGBOXPARAMS = tagMSGBOXPARAMSA;
  20696.   TMsgBoxParamsA = tagMSGBOXPARAMSA;
  20697.   TMsgBoxParamsW = tagMSGBOXPARAMSW;
  20698.   TMsgBoxParams = TMsgBoxParamsA;
  20699.   {$EXTERNALSYM MSGBOXPARAMSA}
  20700.   MSGBOXPARAMSA = tagMSGBOXPARAMSA;
  20701.   {$EXTERNALSYM MSGBOXPARAMSW}
  20702.   MSGBOXPARAMSW = tagMSGBOXPARAMSW;
  20703.   {$EXTERNALSYM MSGBOXPARAMS}
  20704.   MSGBOXPARAMS = MSGBOXPARAMSA;
  20705.  
  20706. {$EXTERNALSYM MessageBoxIndirectA}
  20707. function MessageBoxIndirectA(const MsgBoxParams: TMsgBoxParamsA): BOOL; stdcall;
  20708. {$EXTERNALSYM MessageBoxIndirectW}
  20709. function MessageBoxIndirectW(const MsgBoxParams: TMsgBoxParamsW): BOOL; stdcall;
  20710. {$EXTERNALSYM MessageBoxIndirect}
  20711. function MessageBoxIndirect(const MsgBoxParams: TMsgBoxParams): BOOL; stdcall;
  20712.  
  20713. {$EXTERNALSYM MessageBeep}
  20714. function MessageBeep(uType: UINT): BOOL; stdcall;
  20715. {$EXTERNALSYM ShowCursor}
  20716. function ShowCursor(bShow: BOOL): Integer; stdcall;
  20717. {$EXTERNALSYM SetCursorPos}
  20718. function SetCursorPos(X, Y: Integer): BOOL; stdcall;
  20719. {$EXTERNALSYM SetCursor}
  20720. function SetCursor(hCursor: HICON): HCURSOR; stdcall;
  20721. {$EXTERNALSYM GetCursorPos}
  20722. function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
  20723. {$EXTERNALSYM ClipCursor}
  20724. function ClipCursor(lpRect: PRect): BOOL; stdcall;
  20725. {$EXTERNALSYM GetClipCursor}
  20726. function GetClipCursor(var lpRect: TRect): BOOL; stdcall;
  20727. {$EXTERNALSYM GetCursor}
  20728. function GetCursor: HCURSOR; stdcall;
  20729. {$EXTERNALSYM CreateCaret}
  20730. function CreateCaret(hWnd: HWND; hBitmap: HBITMAP; nWidth, nHeight: Integer): BOOL; stdcall;
  20731. {$EXTERNALSYM GetCaretBlinkTime}
  20732. function GetCaretBlinkTime: UINT; stdcall;
  20733. {$EXTERNALSYM SetCaretBlinkTime}
  20734. function SetCaretBlinkTime(uMSeconds: UINT): BOOL; stdcall;
  20735. {$EXTERNALSYM DestroyCaret}
  20736. function DestroyCaret: BOOL; stdcall;
  20737. {$EXTERNALSYM HideCaret}
  20738. function HideCaret(hWnd: HWND): BOOL; stdcall;
  20739. {$EXTERNALSYM ShowCaret}
  20740. function ShowCaret(hWnd: HWND): BOOL; stdcall;
  20741. {$EXTERNALSYM SetCaretPos}
  20742. function SetCaretPos(X, Y: Integer): BOOL; stdcall;
  20743. {$EXTERNALSYM GetCaretPos}
  20744. function GetCaretPos(var lpPoint: TPoint): BOOL; stdcall;
  20745. {$EXTERNALSYM ClientToScreen}
  20746. function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall;
  20747. {$EXTERNALSYM ScreenToClient}
  20748. function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall;
  20749. {$EXTERNALSYM MapWindowPoints}
  20750. function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer; stdcall;
  20751. {$EXTERNALSYM WindowFromPoint}
  20752. function WindowFromPoint(Point: TPoint): HWND; stdcall;
  20753. {$EXTERNALSYM ChildWindowFromPoint}
  20754. function ChildWindowFromPoint(hWndParent: HWND; Point: TPoint): HWND; stdcall;
  20755.  
  20756. const
  20757.   {$EXTERNALSYM CWP_ALL}
  20758.   CWP_ALL = 0;
  20759.   {$EXTERNALSYM CWP_SKIPINVISIBLE}
  20760.   CWP_SKIPINVISIBLE = 1;
  20761.   {$EXTERNALSYM CWP_SKIPDISABLED}
  20762.   CWP_SKIPDISABLED = 2;
  20763.   {$EXTERNALSYM CWP_SKIPTRANSPARENT}
  20764.   CWP_SKIPTRANSPARENT = 4;
  20765.  
  20766. {$EXTERNALSYM ChildWindowFromPointEx}
  20767. function ChildWindowFromPointEx(hWnd: HWND; Point: TPoint; Flags: UINT): HWND; stdcall;
  20768.  
  20769. const
  20770.   { Color Types }
  20771.   {$EXTERNALSYM CTLCOLOR_MSGBOX}
  20772.   CTLCOLOR_MSGBOX = 0;
  20773.   {$EXTERNALSYM CTLCOLOR_EDIT}
  20774.   CTLCOLOR_EDIT = 1;
  20775.   {$EXTERNALSYM CTLCOLOR_LISTBOX}
  20776.   CTLCOLOR_LISTBOX = 2;
  20777.   {$EXTERNALSYM CTLCOLOR_BTN}
  20778.   CTLCOLOR_BTN = 3;
  20779.   {$EXTERNALSYM CTLCOLOR_DLG}
  20780.   CTLCOLOR_DLG = 4;
  20781.   {$EXTERNALSYM CTLCOLOR_SCROLLBAR}
  20782.   CTLCOLOR_SCROLLBAR = 5;
  20783.   {$EXTERNALSYM CTLCOLOR_STATIC}
  20784.   CTLCOLOR_STATIC = 6;
  20785.   {$EXTERNALSYM CTLCOLOR_MAX}
  20786.   CTLCOLOR_MAX = 7;
  20787.  
  20788.   {$EXTERNALSYM COLOR_SCROLLBAR}
  20789.   COLOR_SCROLLBAR = 0;
  20790.   {$EXTERNALSYM COLOR_BACKGROUND}
  20791.   COLOR_BACKGROUND = 1;
  20792.   {$EXTERNALSYM COLOR_ACTIVECAPTION}
  20793.   COLOR_ACTIVECAPTION = 2;
  20794.   {$EXTERNALSYM COLOR_INACTIVECAPTION}
  20795.   COLOR_INACTIVECAPTION = 3;
  20796.   {$EXTERNALSYM COLOR_MENU}
  20797.   COLOR_MENU = 4;
  20798.   {$EXTERNALSYM COLOR_WINDOW}
  20799.   COLOR_WINDOW = 5;
  20800.   {$EXTERNALSYM COLOR_WINDOWFRAME}
  20801.   COLOR_WINDOWFRAME = 6;
  20802.   {$EXTERNALSYM COLOR_MENUTEXT}
  20803.   COLOR_MENUTEXT = 7;
  20804.   {$EXTERNALSYM COLOR_WINDOWTEXT}
  20805.   COLOR_WINDOWTEXT = 8;
  20806.   {$EXTERNALSYM COLOR_CAPTIONTEXT}
  20807.   COLOR_CAPTIONTEXT = 9;
  20808.   {$EXTERNALSYM COLOR_ACTIVEBORDER}
  20809.   COLOR_ACTIVEBORDER = 10;
  20810.   {$EXTERNALSYM COLOR_INACTIVEBORDER}
  20811.   COLOR_INACTIVEBORDER = 11;
  20812.   {$EXTERNALSYM COLOR_APPWORKSPACE}
  20813.   COLOR_APPWORKSPACE = 12;
  20814.   {$EXTERNALSYM COLOR_HIGHLIGHT}
  20815.   COLOR_HIGHLIGHT = 13;
  20816.   {$EXTERNALSYM COLOR_HIGHLIGHTTEXT}
  20817.   COLOR_HIGHLIGHTTEXT = 14;
  20818.   {$EXTERNALSYM COLOR_BTNFACE}
  20819.   COLOR_BTNFACE = 15;
  20820.   {$EXTERNALSYM COLOR_BTNSHADOW}
  20821.   COLOR_BTNSHADOW = $10;
  20822.   {$EXTERNALSYM COLOR_GRAYTEXT}
  20823.   COLOR_GRAYTEXT = 17;
  20824.   {$EXTERNALSYM COLOR_BTNTEXT}
  20825.   COLOR_BTNTEXT = 18;
  20826.   {$EXTERNALSYM COLOR_INACTIVECAPTIONTEXT}
  20827.   COLOR_INACTIVECAPTIONTEXT = 19;
  20828.   {$EXTERNALSYM COLOR_BTNHIGHLIGHT}
  20829.   COLOR_BTNHIGHLIGHT = 20;
  20830.  
  20831.   {$EXTERNALSYM COLOR_3DDKSHADOW}
  20832.   COLOR_3DDKSHADOW = 21;
  20833.   {$EXTERNALSYM COLOR_3DLIGHT}
  20834.   COLOR_3DLIGHT = 22;
  20835.   {$EXTERNALSYM COLOR_INFOTEXT}
  20836.   COLOR_INFOTEXT = 23;
  20837.   {$EXTERNALSYM COLOR_INFOBK}
  20838.   COLOR_INFOBK = 24;
  20839.   COLOR_ENDCOLORS = COLOR_INFOBK;
  20840.   {$EXTERNALSYM COLOR_DESKTOP}
  20841.   COLOR_DESKTOP = COLOR_BACKGROUND;
  20842.   {$EXTERNALSYM COLOR_3DFACE}
  20843.   COLOR_3DFACE = COLOR_BTNFACE;
  20844.   {$EXTERNALSYM COLOR_3DSHADOW}
  20845.   COLOR_3DSHADOW = COLOR_BTNSHADOW;
  20846.   {$EXTERNALSYM COLOR_3DHIGHLIGHT}
  20847.   COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;
  20848.   {$EXTERNALSYM COLOR_3DHILIGHT}
  20849.   COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;
  20850.   {$EXTERNALSYM COLOR_BTNHILIGHT}
  20851.   COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
  20852.  
  20853. {$EXTERNALSYM GetSysColor}
  20854. function GetSysColor(nIndex: Integer): DWORD; stdcall;
  20855. {$EXTERNALSYM GetSysColorBrush}
  20856. function GetSysColorBrush(nIndex: Integer): HBRUSH; stdcall;
  20857. {$EXTERNALSYM SetSysColors}
  20858. function SetSysColors(cElements: Integer; const lpaElements;
  20859.   const lpaRgbValues): BOOL; stdcall;
  20860. {$EXTERNALSYM DrawFocusRect}
  20861. function DrawFocusRect(hDC: HDC; const lprc: TRect): BOOL; stdcall;
  20862. {$EXTERNALSYM FillRect}
  20863. function FillRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
  20864. {$EXTERNALSYM FrameRect}
  20865. function FrameRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
  20866. {$EXTERNALSYM InvertRect}
  20867. function InvertRect(hDC: HDC; const lprc: TRect): BOOL; stdcall;
  20868. {$EXTERNALSYM SetRect}
  20869. function SetRect(var lprc: TRect; xLeft, yTop, xRight, yBottom: Integer): BOOL; stdcall;
  20870. {$EXTERNALSYM SetRectEmpty}
  20871. function SetRectEmpty(var lprc: TRect): BOOL; stdcall;
  20872. {$EXTERNALSYM CopyRect}
  20873. function CopyRect(var lprcDst: TRect; const lprcSrc: TRect): BOOL; stdcall;
  20874. {$EXTERNALSYM InflateRect}
  20875. function InflateRect(var lprc: TRect; dx, dy: Integer): BOOL; stdcall;
  20876. {$EXTERNALSYM IntersectRect}
  20877. function IntersectRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  20878. {$EXTERNALSYM UnionRect}
  20879. function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  20880. {$EXTERNALSYM SubtractRect}
  20881. function SubtractRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  20882. {$EXTERNALSYM OffsetRect}
  20883. function OffsetRect(var lprc: TRect; dx, dy: Integer): BOOL; stdcall;
  20884. {$EXTERNALSYM IsRectEmpty}
  20885. function IsRectEmpty(const lprc: TRect): BOOL; stdcall;
  20886. {$EXTERNALSYM EqualRect}
  20887. function EqualRect(const lprc1, lprc2: TRect): BOOL; stdcall;
  20888. {$EXTERNALSYM PtInRect}
  20889. function PtInRect(const lprc: TRect; pt: TPoint): BOOL; stdcall;
  20890. {$EXTERNALSYM GetWindowWord}
  20891. function GetWindowWord(hWnd: HWND; nIndex: Integer): Word; stdcall;
  20892. {$EXTERNALSYM SetWindowWord}
  20893. function SetWindowWord(hWnd: HWND; nIndex: Integer; wNewWord: Word): Word; stdcall;
  20894. {$EXTERNALSYM GetWindowLongA}
  20895. function GetWindowLongA(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  20896. {$EXTERNALSYM GetWindowLongW}
  20897. function GetWindowLongW(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  20898. {$EXTERNALSYM GetWindowLong}
  20899. function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  20900. {$EXTERNALSYM SetWindowLongA}
  20901. function SetWindowLongA(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  20902. {$EXTERNALSYM SetWindowLongW}
  20903. function SetWindowLongW(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  20904. {$EXTERNALSYM SetWindowLong}
  20905. function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  20906. {$EXTERNALSYM GetClassWord}
  20907. function GetClassWord(hWnd: HWND; nIndex: Integer): Word; stdcall;
  20908. {$EXTERNALSYM SetClassWord}
  20909. function SetClassWord(hWnd: HWND; nIndex: Integer; wNewWord: Word): Word; stdcall;
  20910. {$EXTERNALSYM GetClassLongA}
  20911. function GetClassLongA(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  20912. {$EXTERNALSYM GetClassLongW}
  20913. function GetClassLongW(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  20914. {$EXTERNALSYM GetClassLong}
  20915. function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  20916. {$EXTERNALSYM SetClassLongA}
  20917. function SetClassLongA(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  20918. {$EXTERNALSYM SetClassLongW}
  20919. function SetClassLongW(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  20920. {$EXTERNALSYM SetClassLong}
  20921. function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  20922. {$EXTERNALSYM GetDesktopWindow}
  20923. function GetDesktopWindow: HWND; stdcall;
  20924. {$EXTERNALSYM GetParent}
  20925. function GetParent(hWnd: HWND): HWND; stdcall;
  20926. {$EXTERNALSYM SetParent}
  20927. function SetParent(hWndChild, hWndNewParent: HWND): HWND; stdcall;
  20928. {$EXTERNALSYM EnumChildWindows}
  20929. function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNWndEnumProc;
  20930.   lParam: LPARAM): BOOL; stdcall;
  20931. {$EXTERNALSYM FindWindowA}
  20932. function FindWindowA(lpClassName, lpWindowName: PAnsiChar): HWND; stdcall;
  20933. {$EXTERNALSYM FindWindowW}
  20934. function FindWindowW(lpClassName, lpWindowName: PWideChar): HWND; stdcall;
  20935. {$EXTERNALSYM FindWindow}
  20936. function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
  20937. {$EXTERNALSYM FindWindowExA}
  20938. function FindWindowExA(Parent, Child: HWND; ClassName, WindowName: PAnsiChar): HWND; stdcall;
  20939. {$EXTERNALSYM FindWindowExW}
  20940. function FindWindowExW(Parent, Child: HWND; ClassName, WindowName: PWideChar): HWND; stdcall;
  20941. {$EXTERNALSYM FindWindowEx}
  20942. function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; stdcall;
  20943. {$EXTERNALSYM EnumWindows}
  20944. function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  20945. {$EXTERNALSYM EnumThreadWindows}
  20946. function EnumThreadWindows(dwThreadId: DWORD; lpfn: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  20947. {$EXTERNALSYM EnumTaskWindows}
  20948. function EnumTaskWindows(hTask: THandle; lpfn: FARPROC; lParam: LPARAM): BOOL;
  20949. {$EXTERNALSYM GetClassNameA}
  20950. function GetClassNameA(hWnd: HWND; lpClassName: PAnsiChar; nMaxCount: Integer): Integer; stdcall;
  20951. {$EXTERNALSYM GetClassNameW}
  20952. function GetClassNameW(hWnd: HWND; lpClassName: PWideChar; nMaxCount: Integer): Integer; stdcall;
  20953. {$EXTERNALSYM GetClassName}
  20954. function GetClassName(hWnd: HWND; lpClassName: PChar; nMaxCount: Integer): Integer; stdcall;
  20955. {$EXTERNALSYM GetTopWindow}
  20956. function GetTopWindow(hWnd: HWND): HWND; stdcall;
  20957. {$EXTERNALSYM GetNextWindow}
  20958. function GetNextWindow(hWnd: HWND; uCmd: UINT): HWND; stdcall;
  20959. {$EXTERNALSYM GetWindowThreadProcessId}
  20960. function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: Pointer): DWORD; stdcall;
  20961. {$EXTERNALSYM GetWindowTask}
  20962. function GetWindowTask(hWnd: HWND): THandle;
  20963. {$EXTERNALSYM GetLastActivePopup}
  20964. function GetLastActivePopup(hWnd: HWND): HWND; stdcall;
  20965.  
  20966. const
  20967.   { GetWindow() Constants }
  20968.   {$EXTERNALSYM GW_HWNDFIRST}
  20969.   GW_HWNDFIRST = 0;
  20970.   {$EXTERNALSYM GW_HWNDLAST}
  20971.   GW_HWNDLAST = 1;
  20972.   {$EXTERNALSYM GW_HWNDNEXT}
  20973.   GW_HWNDNEXT = 2;
  20974.   {$EXTERNALSYM GW_HWNDPREV}
  20975.   GW_HWNDPREV = 3;
  20976.   {$EXTERNALSYM GW_OWNER}
  20977.   GW_OWNER = 4;
  20978.   {$EXTERNALSYM GW_CHILD}
  20979.   GW_CHILD = 5;
  20980.   {$EXTERNALSYM GW_MAX}
  20981.   GW_MAX = 5;
  20982.  
  20983. {$EXTERNALSYM GetWindow}
  20984. function GetWindow(hWnd: HWND; uCmd: UINT): HWND; stdcall;
  20985. {$EXTERNALSYM SetWindowsHookA}
  20986. function SetWindowsHookA(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  20987. {$EXTERNALSYM SetWindowsHookW}
  20988. function SetWindowsHookW(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  20989. {$EXTERNALSYM SetWindowsHook}
  20990. function SetWindowsHook(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  20991. {$EXTERNALSYM SetWindowsHookExA}
  20992. function SetWindowsHookExA(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  20993. {$EXTERNALSYM SetWindowsHookExW}
  20994. function SetWindowsHookExW(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  20995. {$EXTERNALSYM SetWindowsHookEx}
  20996. function SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  20997. {$EXTERNALSYM UnhookWindowsHook}
  20998. function UnhookWindowsHook(nCode: Integer; pfnFilterProc: TFNHookProc): BOOL; stdcall;
  20999. {$EXTERNALSYM UnhookWindowsHookEx}
  21000. function UnhookWindowsHookEx(hhk: HHOOK): BOOL; stdcall;
  21001. {$EXTERNALSYM CallNextHookEx}
  21002. function CallNextHookEx(hhk: HHOOK; nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  21003.  
  21004. { Macros for source-level compatibility with old functions. }
  21005.  
  21006. {$EXTERNALSYM DefHookProc}
  21007. function DefHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM; phhk: FARPROC): LRESULT;
  21008.  
  21009. const
  21010. { Menu flags for AddCheckEnableMenuItem() }
  21011.  
  21012.   {$EXTERNALSYM MF_INSERT}
  21013.   MF_INSERT = 0;
  21014.   {$EXTERNALSYM MF_CHANGE}
  21015.   MF_CHANGE = $80;
  21016.   {$EXTERNALSYM MF_APPEND}
  21017.   MF_APPEND = $100;
  21018.   {$EXTERNALSYM MF_DELETE}
  21019.   MF_DELETE = $200;
  21020.   {$EXTERNALSYM MF_REMOVE}
  21021.   MF_REMOVE = $1000;
  21022.  
  21023.   {$EXTERNALSYM MF_BYCOMMAND}
  21024.   MF_BYCOMMAND = 0;
  21025.   {$EXTERNALSYM MF_BYPOSITION}
  21026.   MF_BYPOSITION = $400;
  21027.  
  21028.   {$EXTERNALSYM MF_SEPARATOR}
  21029.   MF_SEPARATOR = $800;
  21030.  
  21031.   {$EXTERNALSYM MF_ENABLED}
  21032.   MF_ENABLED = 0;
  21033.   {$EXTERNALSYM MF_GRAYED}
  21034.   MF_GRAYED = 1;
  21035.   {$EXTERNALSYM MF_DISABLED}
  21036.   MF_DISABLED = 2;
  21037.  
  21038.   {$EXTERNALSYM MF_UNCHECKED}
  21039.   MF_UNCHECKED = 0;
  21040.   {$EXTERNALSYM MF_CHECKED}
  21041.   MF_CHECKED = 8;
  21042.   {$EXTERNALSYM MF_USECHECKBITMAPS}
  21043.   MF_USECHECKBITMAPS = $200;
  21044.  
  21045.   {$EXTERNALSYM MF_STRING}
  21046.   MF_STRING = 0;
  21047.   {$EXTERNALSYM MF_BITMAP}
  21048.   MF_BITMAP = 4;
  21049.   {$EXTERNALSYM MF_OWNERDRAW}
  21050.   MF_OWNERDRAW = $100;
  21051.  
  21052.   {$EXTERNALSYM MF_POPUP}
  21053.   MF_POPUP = $10;
  21054.   {$EXTERNALSYM MF_MENUBARBREAK}
  21055.   MF_MENUBARBREAK = $20;
  21056.   {$EXTERNALSYM MF_MENUBREAK}
  21057.   MF_MENUBREAK = $40;
  21058.  
  21059.   {$EXTERNALSYM MF_UNHILITE}
  21060.   MF_UNHILITE = 0;
  21061.   {$EXTERNALSYM MF_HILITE}
  21062.   MF_HILITE = $80;
  21063.  
  21064.   {$EXTERNALSYM MF_DEFAULT}
  21065.   MF_DEFAULT = $1000;
  21066.   {$EXTERNALSYM MF_SYSMENU}
  21067.   MF_SYSMENU = $2000;
  21068.   {$EXTERNALSYM MF_HELP}
  21069.   MF_HELP = $4000;
  21070.   {$EXTERNALSYM MF_RIGHTJUSTIFY}
  21071.   MF_RIGHTJUSTIFY = $4000;
  21072.  
  21073.   {$EXTERNALSYM MF_MOUSESELECT}
  21074.   MF_MOUSESELECT = $8000;
  21075.   {$EXTERNALSYM MF_END}
  21076.   MF_END = $80;            { Obsolete -- only used by old RES files }
  21077.  
  21078.   {$EXTERNALSYM MFT_STRING}
  21079.   MFT_STRING = MF_STRING;
  21080.   {$EXTERNALSYM MFT_BITMAP}
  21081.   MFT_BITMAP = MF_BITMAP;
  21082.   {$EXTERNALSYM MFT_MENUBARBREAK}
  21083.   MFT_MENUBARBREAK = MF_MENUBARBREAK;
  21084.   {$EXTERNALSYM MFT_MENUBREAK}
  21085.   MFT_MENUBREAK = MF_MENUBREAK;
  21086.   {$EXTERNALSYM MFT_OWNERDRAW}
  21087.   MFT_OWNERDRAW = MF_OWNERDRAW;
  21088.   {$EXTERNALSYM MFT_RADIOCHECK}
  21089.   MFT_RADIOCHECK = $200;
  21090.   {$EXTERNALSYM MFT_SEPARATOR}
  21091.   MFT_SEPARATOR = MF_SEPARATOR;
  21092.   {$EXTERNALSYM MFT_RIGHTORDER}
  21093.   MFT_RIGHTORDER = $2000;
  21094.   {$EXTERNALSYM MFT_RIGHTJUSTIFY}
  21095.   MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY;
  21096.  
  21097.   { Menu flags for AddCheckEnableMenuItem() }
  21098.   {$EXTERNALSYM MFS_GRAYED}
  21099.   MFS_GRAYED = 3;
  21100.   {$EXTERNALSYM MFS_DISABLED}
  21101.   MFS_DISABLED = MFS_GRAYED;
  21102.   {$EXTERNALSYM MFS_CHECKED}
  21103.   MFS_CHECKED = MF_CHECKED;
  21104.   {$EXTERNALSYM MFS_HILITE}
  21105.   MFS_HILITE = MF_HILITE;
  21106.   {$EXTERNALSYM MFS_ENABLED}
  21107.   MFS_ENABLED = MF_ENABLED;
  21108.   {$EXTERNALSYM MFS_UNCHECKED}
  21109.   MFS_UNCHECKED = MF_UNCHECKED;
  21110.   {$EXTERNALSYM MFS_UNHILITE}
  21111.   MFS_UNHILITE = MF_UNHILITE;
  21112.   {$EXTERNALSYM MFS_DEFAULT}
  21113.   MFS_DEFAULT = MF_DEFAULT;
  21114.  
  21115. {$EXTERNALSYM CheckMenuRadioItem}
  21116. function CheckMenuRadioItem(hMenu: HMENU; First, Last, Check, Flags: UINT): BOOL; stdcall;
  21117.  
  21118. type
  21119.   { Menu item resource format }
  21120.   PMenuItemTemplateHeader = ^TMenuItemTemplateHeader;
  21121.   {$EXTERNALSYM MENUITEMTEMPLATEHEADER}
  21122.   MENUITEMTEMPLATEHEADER = packed record
  21123.     versionNumber: Word;
  21124.     offset: Word;
  21125.   end;
  21126.   TMenuItemTemplateHeader = MENUITEMTEMPLATEHEADER;
  21127.  
  21128.   PMenuItemTemplate = ^TMenuItemTemplate;
  21129.   {$EXTERNALSYM MENUITEMTEMPLATE}
  21130.   MENUITEMTEMPLATE = packed record {Version 0}
  21131.     mtOption: Word;
  21132.     mtID: Word;
  21133.     mtString: array[0..0] of WCHAR;
  21134.   end;
  21135.   TMenuItemTemplate = MENUITEMTEMPLATE;
  21136.  
  21137.  
  21138. const
  21139.   { System Menu Command Values }
  21140.   {$EXTERNALSYM SC_SIZE}
  21141.   SC_SIZE = 61440;
  21142.   {$EXTERNALSYM SC_MOVE}
  21143.   SC_MOVE = 61456;
  21144.   {$EXTERNALSYM SC_MINIMIZE}
  21145.   SC_MINIMIZE = 61472;
  21146.   {$EXTERNALSYM SC_MAXIMIZE}
  21147.   SC_MAXIMIZE = 61488;
  21148.   {$EXTERNALSYM SC_NEXTWINDOW}
  21149.   SC_NEXTWINDOW = 61504;
  21150.   {$EXTERNALSYM SC_PREVWINDOW}
  21151.   SC_PREVWINDOW = 61520;
  21152.   {$EXTERNALSYM SC_CLOSE}
  21153.   SC_CLOSE = 61536;
  21154.   {$EXTERNALSYM SC_VSCROLL}
  21155.   SC_VSCROLL = 61552;
  21156.   {$EXTERNALSYM SC_HSCROLL}
  21157.   SC_HSCROLL = 61568;
  21158.   {$EXTERNALSYM SC_MOUSEMENU}
  21159.   SC_MOUSEMENU = 61584;
  21160.   {$EXTERNALSYM SC_KEYMENU}
  21161.   SC_KEYMENU = 61696;
  21162.   {$EXTERNALSYM SC_ARRANGE}
  21163.   SC_ARRANGE = 61712;
  21164.   {$EXTERNALSYM SC_RESTORE}
  21165.   SC_RESTORE = 61728;
  21166.   {$EXTERNALSYM SC_TASKLIST}
  21167.   SC_TASKLIST = 61744;
  21168.   {$EXTERNALSYM SC_SCREENSAVE}
  21169.   SC_SCREENSAVE = 61760;
  21170.   {$EXTERNALSYM SC_HOTKEY}
  21171.   SC_HOTKEY = 61776;
  21172.   {$EXTERNALSYM SC_DEFAULT}
  21173.   SC_DEFAULT = 61792;
  21174.   {$EXTERNALSYM SC_MONITORPOWER}
  21175.   SC_MONITORPOWER = 61808;
  21176.   {$EXTERNALSYM SC_CONTEXTHELP}
  21177.   SC_CONTEXTHELP = 61824;
  21178.   {$EXTERNALSYM SC_SEPARATOR}
  21179.   SC_SEPARATOR = 61455;
  21180.  
  21181.   { Obsolete names }
  21182.   {$EXTERNALSYM SC_ICON}
  21183.   SC_ICON = SC_MINIMIZE;
  21184.   {$EXTERNALSYM SC_ZOOM}
  21185.   SC_ZOOM = SC_MAXIMIZE;
  21186.  
  21187. { Resource Loading Routines }
  21188.  
  21189. {$EXTERNALSYM LoadBitmapA}
  21190. function LoadBitmapA(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  21191. {$EXTERNALSYM LoadBitmapW}
  21192. function LoadBitmapW(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  21193. {$EXTERNALSYM LoadBitmap}
  21194. function LoadBitmap(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  21195. {$EXTERNALSYM LoadCursorA}
  21196. function LoadCursorA(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  21197. {$EXTERNALSYM LoadCursorW}
  21198. function LoadCursorW(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  21199. {$EXTERNALSYM LoadCursor}
  21200. function LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  21201. {$EXTERNALSYM LoadCursorFromFileA}
  21202. function LoadCursorFromFileA(lpFileName: PAnsiChar): HCURSOR; stdcall;
  21203. {$EXTERNALSYM LoadCursorFromFileW}
  21204. function LoadCursorFromFileW(lpFileName: PAnsiChar): HCURSOR; stdcall;
  21205. {$EXTERNALSYM LoadCursorFromFile}
  21206. function LoadCursorFromFile(lpFileName: PAnsiChar): HCURSOR; stdcall;
  21207. {$EXTERNALSYM CreateCursor}
  21208. function CreateCursor(hInst: HINST; xHotSpot, yHotSpot, nWidth, nHeight: Integer;
  21209.   pvANDPlaneter, pvXORPlane: Pointer): HCURSOR; stdcall;
  21210. {$EXTERNALSYM DestroyCursor}
  21211. function DestroyCursor(hCursor: HICON): BOOL; stdcall;
  21212.  
  21213. const
  21214.   { Standard Cursor IDs }
  21215.   {$EXTERNALSYM IDC_ARROW}
  21216.   IDC_ARROW = MakeIntResource(32512);
  21217.   {$EXTERNALSYM IDC_IBEAM}
  21218.   IDC_IBEAM = MakeIntResource(32513);
  21219.   {$EXTERNALSYM IDC_WAIT}
  21220.   IDC_WAIT = MakeIntResource(32514);
  21221.   {$EXTERNALSYM IDC_CROSS}
  21222.   IDC_CROSS = MakeIntResource(32515);
  21223.   {$EXTERNALSYM IDC_UPARROW}
  21224.   IDC_UPARROW = MakeIntResource(32516);
  21225.   {$EXTERNALSYM IDC_SIZE}
  21226.   IDC_SIZE = MakeIntResource(32640);
  21227.   {$EXTERNALSYM IDC_ICON}
  21228.   IDC_ICON = MakeIntResource(32641);
  21229.   {$EXTERNALSYM IDC_SIZENWSE}
  21230.   IDC_SIZENWSE = MakeIntResource(32642);
  21231.   {$EXTERNALSYM IDC_SIZENESW}
  21232.   IDC_SIZENESW = MakeIntResource(32643);
  21233.   {$EXTERNALSYM IDC_SIZEWE}
  21234.   IDC_SIZEWE = MakeIntResource(32644);
  21235.   {$EXTERNALSYM IDC_SIZENS}
  21236.   IDC_SIZENS = MakeIntResource(32645);
  21237.   {$EXTERNALSYM IDC_SIZEALL}
  21238.   IDC_SIZEALL = MakeIntResource(32646);
  21239.   {$EXTERNALSYM IDC_NO}
  21240.   IDC_NO = MakeIntResource(32648);
  21241.   {$EXTERNALSYM IDC_APPSTARTING}
  21242.   IDC_APPSTARTING = MakeIntResource(32650);
  21243.   {$EXTERNALSYM IDC_HELP}
  21244.   IDC_HELP = MakeIntResource(32651);
  21245.  
  21246. {$EXTERNALSYM SetSystemCursor}
  21247. function SetSystemCursor(hcur: HICON; id: DWORD): BOOL; stdcall;
  21248.  
  21249. type
  21250.   PIconInfo = ^TIconInfo;
  21251.   {$EXTERNALSYM _ICONINFO}
  21252.   _ICONINFO = packed record
  21253.     fIcon: BOOL;
  21254.     xHotspot: DWORD;
  21255.     yHotspot: DWORD;
  21256.     hbmMask: HBITMAP;
  21257.     hbmColor: HBITMAP;
  21258.   end;
  21259.   TIconInfo = _ICONINFO;
  21260.   {$EXTERNALSYM ICONINFO}
  21261.   ICONINFO = _ICONINFO;
  21262.  
  21263. {$EXTERNALSYM LoadIconA}
  21264. function LoadIconA(hInstance: HINST; lpIconName: PAnsiChar): HICON; stdcall;
  21265. {$EXTERNALSYM LoadIconW}
  21266. function LoadIconW(hInstance: HINST; lpIconName: PWideChar): HICON; stdcall;
  21267. {$EXTERNALSYM LoadIcon}
  21268. function LoadIcon(hInstance: HINST; lpIconName: PChar): HICON; stdcall;
  21269. {$EXTERNALSYM CreateIcon}
  21270. function CreateIcon(hInstance: HINST; nWidth, nHeight: Integer;
  21271.   cPlanes, cBitsPixel: Byte; lpbANDbits, lpbXORbits: Pointer): HICON; stdcall;
  21272. {$EXTERNALSYM DestroyIcon}
  21273. function DestroyIcon(hIcon: HICON): BOOL; stdcall;
  21274. {$EXTERNALSYM LookupIconIdFromDirectory}
  21275. function LookupIconIdFromDirectory(presbits: PByte; fIcon: BOOL): Integer; stdcall;
  21276. {$EXTERNALSYM LookupIconIdFromDirectoryEx}
  21277. function LookupIconIdFromDirectoryEx(presbits: PByte; fIcon: BOOL;
  21278.   cxDesired, cyDesired: Integer; Flags: UINT): Integer; stdcall;
  21279. {$EXTERNALSYM CreateIconFromResource}
  21280. function CreateIconFromResource(presbits: PByte; dwResSize: DWORD;
  21281.   fIcon: BOOL; dwVer: DWORD): HICON; stdcall;
  21282. {$EXTERNALSYM CreateIconFromResourceEx}
  21283. function CreateIconFromResourceEx(presbits: PByte; dwResSize: DWORD;
  21284.   fIcon: BOOL; dwVer: DWORD; cxDesired, cyDesired: Integer; Flags: UINT): HICON; stdcall;
  21285.  
  21286.  
  21287. type
  21288.   { IconCursor header }
  21289.   PCursorShape = ^TCursorShape;
  21290.   {$EXTERNALSYM tagCURSORSHAPE}
  21291.   tagCURSORSHAPE = record
  21292.     xHotSpot: Integer;
  21293.     yHotSpot: Integer;
  21294.     cx: Integer;
  21295.     cy: Integer;
  21296.     cbWidth: Integer;
  21297.     Planes: Byte;
  21298.     BitsPixel: Byte;
  21299.   end;
  21300.   TCursorShape = tagCURSORSHAPE;
  21301.   {$EXTERNALSYM CURSORSHAPE}
  21302.   CURSORSHAPE = tagCURSORSHAPE;
  21303.  
  21304. const
  21305.   {$EXTERNALSYM IMAGE_BITMAP}
  21306.   IMAGE_BITMAP = 0;
  21307.   {$EXTERNALSYM IMAGE_ICON}
  21308.   IMAGE_ICON = 1;
  21309.   {$EXTERNALSYM IMAGE_CURSOR}
  21310.   IMAGE_CURSOR = 2;
  21311.   {$EXTERNALSYM IMAGE_ENHMETAFILE}
  21312.   IMAGE_ENHMETAFILE = 3;
  21313.  
  21314.   {$EXTERNALSYM LR_DEFAULTCOLOR}
  21315.   LR_DEFAULTCOLOR = $0000;
  21316.   {$EXTERNALSYM LR_MONOCHROME}
  21317.   LR_MONOCHROME = $0001;
  21318.   {$EXTERNALSYM LR_COLOR}
  21319.   LR_COLOR = $0002;
  21320.   {$EXTERNALSYM LR_COPYRETURNORG}
  21321.   LR_COPYRETURNORG = $0004;
  21322.   {$EXTERNALSYM LR_COPYDELETEORG}
  21323.   LR_COPYDELETEORG = $0008;
  21324.   {$EXTERNALSYM LR_LOADFROMFILE}
  21325.   LR_LOADFROMFILE = $0010;
  21326.   {$EXTERNALSYM LR_LOADTRANSPARENT}
  21327.   LR_LOADTRANSPARENT = $0020;
  21328.   {$EXTERNALSYM LR_DEFAULTSIZE}
  21329.   LR_DEFAULTSIZE = $0040;
  21330.   {$EXTERNALSYM LR_VGACOLOR}
  21331.   LR_VGACOLOR = $0080;
  21332.   {$EXTERNALSYM LR_LOADMAP3DCOLORS}
  21333.   LR_LOADMAP3DCOLORS = $1000;
  21334.   {$EXTERNALSYM LR_CREATEDIBSECTION}
  21335.   LR_CREATEDIBSECTION = $2000;
  21336.   {$EXTERNALSYM LR_COPYFROMRESOURCE}
  21337.   LR_COPYFROMRESOURCE = $4000;
  21338.   {$EXTERNALSYM LR_SHARED}
  21339.   LR_SHARED = $8000;
  21340.  
  21341. {$EXTERNALSYM LoadImageA}
  21342. function LoadImageA(hInst: HINST; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  21343. {$EXTERNALSYM LoadImageW}
  21344. function LoadImageW(hInst: HINST; ImageName: PWideChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  21345. {$EXTERNALSYM LoadImage}
  21346. function LoadImage(hInst: HINST; ImageName: PChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  21347. {$EXTERNALSYM CopyImage}
  21348. function CopyImage(hImage: THandle; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  21349.  
  21350. const
  21351.   {$EXTERNALSYM DI_MASK}
  21352.   DI_MASK = 1;
  21353.   {$EXTERNALSYM DI_IMAGE}
  21354.   DI_IMAGE = 2;
  21355.   {$EXTERNALSYM DI_NORMAL}
  21356.   DI_NORMAL = 3;
  21357.   {$EXTERNALSYM DI_COMPAT}
  21358.   DI_COMPAT = 4;
  21359.   {$EXTERNALSYM DI_DEFAULTSIZE}
  21360.   DI_DEFAULTSIZE = 8;
  21361.  
  21362. {$EXTERNALSYM DrawIconEx}
  21363. function DrawIconEx(hdc: HDC; xLeft, yTop: Integer; hIcon: HICON;
  21364.   cxWidth, cyWidth: Integer; istepIfAniCur: UINT;
  21365.   hbrFlickerFreeDraw: HBRUSH; diFlags: UINT): BOOL; stdcall;
  21366. {$EXTERNALSYM CreateIconIndirect}
  21367. function CreateIconIndirect(var piconinfo: TIconInfo): HICON; stdcall;
  21368. {$EXTERNALSYM CopyIcon}
  21369. function CopyIcon(hIcon: HICON): HICON; stdcall;
  21370. {$EXTERNALSYM GetIconInfo}
  21371. function GetIconInfo(hIcon: HICON; var piconinfo: TIconInfo): BOOL; stdcall;
  21372.  
  21373. const
  21374.   {$EXTERNALSYM OBM_CLOSE}
  21375.   OBM_CLOSE               = 32754;
  21376.   {$EXTERNALSYM OBM_UPARROW}
  21377.   OBM_UPARROW             = 32753;
  21378.   {$EXTERNALSYM OBM_DNARROW}
  21379.   OBM_DNARROW             = 32752;
  21380.   {$EXTERNALSYM OBM_RGARROW}
  21381.   OBM_RGARROW             = 32751;
  21382.   {$EXTERNALSYM OBM_LFARROW}
  21383.   OBM_LFARROW             = 32750;
  21384.   {$EXTERNALSYM OBM_REDUCE}
  21385.   OBM_REDUCE              = 32749;
  21386.   {$EXTERNALSYM OBM_ZOOM}
  21387.   OBM_ZOOM                = 32748;
  21388.   {$EXTERNALSYM OBM_RESTORE}
  21389.   OBM_RESTORE             = 32747;
  21390.   {$EXTERNALSYM OBM_REDUCED}
  21391.   OBM_REDUCED             = 32746;
  21392.   {$EXTERNALSYM OBM_ZOOMD}
  21393.   OBM_ZOOMD               = 32745;
  21394.   {$EXTERNALSYM OBM_RESTORED}
  21395.   OBM_RESTORED            = 32744;
  21396.   {$EXTERNALSYM OBM_UPARROWD}
  21397.   OBM_UPARROWD            = 32743;
  21398.   {$EXTERNALSYM OBM_DNARROWD}
  21399.   OBM_DNARROWD            = 32742;
  21400.   {$EXTERNALSYM OBM_RGARROWD}
  21401.   OBM_RGARROWD            = 32741;
  21402.   {$EXTERNALSYM OBM_LFARROWD}
  21403.   OBM_LFARROWD            = 32740;
  21404.   {$EXTERNALSYM OBM_MNARROW}
  21405.   OBM_MNARROW             = 32739;
  21406.   {$EXTERNALSYM OBM_COMBO}
  21407.   OBM_COMBO               = 32738;
  21408.   {$EXTERNALSYM OBM_UPARROWI}
  21409.   OBM_UPARROWI            = 32737;
  21410.   {$EXTERNALSYM OBM_DNARROWI}
  21411.   OBM_DNARROWI            = 32736;
  21412.   {$EXTERNALSYM OBM_RGARROWI}
  21413.   OBM_RGARROWI            = 32735;
  21414.   {$EXTERNALSYM OBM_LFARROWI}
  21415.   OBM_LFARROWI            = 32734;
  21416.  
  21417.   {$EXTERNALSYM OBM_OLD_CLOSE}
  21418.   OBM_OLD_CLOSE           = 32767;
  21419.   {$EXTERNALSYM OBM_SIZE}
  21420.   OBM_SIZE                = 32766;
  21421.   {$EXTERNALSYM OBM_OLD_UPARROW}
  21422.   OBM_OLD_UPARROW         = 32765;
  21423.   {$EXTERNALSYM OBM_OLD_DNARROW}
  21424.   OBM_OLD_DNARROW         = 32764;
  21425.   {$EXTERNALSYM OBM_OLD_RGARROW}
  21426.   OBM_OLD_RGARROW         = 32763;
  21427.   {$EXTERNALSYM OBM_OLD_LFARROW}
  21428.   OBM_OLD_LFARROW         = 32762;
  21429.   {$EXTERNALSYM OBM_BTSIZE}
  21430.   OBM_BTSIZE              = 32761;
  21431.   {$EXTERNALSYM OBM_CHECK}
  21432.   OBM_CHECK               = 32760;
  21433.   {$EXTERNALSYM OBM_CHECKBOXES}
  21434.   OBM_CHECKBOXES          = 32759;
  21435.   {$EXTERNALSYM OBM_BTNCORNERS}
  21436.   OBM_BTNCORNERS          = 32758;
  21437.   {$EXTERNALSYM OBM_OLD_REDUCE}
  21438.   OBM_OLD_REDUCE          = 32757;
  21439.   {$EXTERNALSYM OBM_OLD_ZOOM}
  21440.   OBM_OLD_ZOOM            = 32756;
  21441.   {$EXTERNALSYM OBM_OLD_RESTORE}
  21442.   OBM_OLD_RESTORE         = 32755;
  21443.  
  21444.   {$EXTERNALSYM OCR_NORMAL}
  21445.   OCR_NORMAL              = 32512;
  21446.   {$EXTERNALSYM OCR_IBEAM}
  21447.   OCR_IBEAM               = 32513;
  21448.   {$EXTERNALSYM OCR_WAIT}
  21449.   OCR_WAIT                = 32514;
  21450.   {$EXTERNALSYM OCR_CROSS}
  21451.   OCR_CROSS               = 32515;
  21452.   {$EXTERNALSYM OCR_UP}
  21453.   OCR_UP                  = 32516;
  21454.   {$EXTERNALSYM OCR_SIZE}
  21455.   OCR_SIZE                = 32640;  { OBSOLETE: use OCR_SIZEALL }
  21456.   {$EXTERNALSYM OCR_ICON}
  21457.   OCR_ICON                = 32641;  { OBSOLETE: use OCR_NORMAL }
  21458.   {$EXTERNALSYM OCR_SIZENWSE}
  21459.   OCR_SIZENWSE            = 32642;
  21460.   {$EXTERNALSYM OCR_SIZENESW}
  21461.   OCR_SIZENESW            = 32643;
  21462.   {$EXTERNALSYM OCR_SIZEWE}
  21463.   OCR_SIZEWE              = 32644;
  21464.   {$EXTERNALSYM OCR_SIZENS}
  21465.   OCR_SIZENS              = 32645;
  21466.   {$EXTERNALSYM OCR_SIZEALL}
  21467.   OCR_SIZEALL             = 32646;
  21468.   {$EXTERNALSYM OCR_ICOCUR}
  21469.   OCR_ICOCUR              = 32647;  { OBSOLETE: use OIC_WINLOGO }
  21470.   {$EXTERNALSYM OCR_NO}
  21471.   OCR_NO                  = 32648;
  21472.   {$EXTERNALSYM OCR_APPSTARTING}
  21473.   OCR_APPSTARTING         = 32650;
  21474.  
  21475.   {$EXTERNALSYM OIC_SAMPLE}
  21476.   OIC_SAMPLE              = 32512;
  21477.   {$EXTERNALSYM OIC_HAND}
  21478.   OIC_HAND                = 32513;
  21479.   {$EXTERNALSYM OIC_QUES}
  21480.   OIC_QUES                = 32514;
  21481.   {$EXTERNALSYM OIC_BANG}
  21482.   OIC_BANG                = 32515;
  21483.   {$EXTERNALSYM OIC_NOTE}
  21484.   OIC_NOTE                = 32516;
  21485.   {$EXTERNALSYM OIC_WINLOGO}
  21486.   OIC_WINLOGO             = 32517;
  21487.   {$EXTERNALSYM OIC_WARNING}
  21488.   OIC_WARNING             = OIC_BANG;
  21489.   {$EXTERNALSYM OIC_ERROR}
  21490.   OIC_ERROR               = OIC_HAND;
  21491.   {$EXTERNALSYM OIC_INFORMATION}
  21492.   OIC_INFORMATION         = OIC_NOTE;
  21493.  
  21494.   {$EXTERNALSYM RES_ICON}
  21495.   RES_ICON = 1;
  21496.   {$EXTERNALSYM RES_CURSOR}
  21497.   RES_CURSOR = 2;
  21498.  
  21499.   { The ordinal number for the entry point of language drivers. }
  21500.   {$EXTERNALSYM ORD_LANGDRIVER}
  21501.   ORD_LANGDRIVER = 1;
  21502.  
  21503.   { Standard Icon IDs }
  21504.   {$EXTERNALSYM IDI_APPLICATION}
  21505.   IDI_APPLICATION = MakeIntResource(32512);
  21506.   {$EXTERNALSYM IDI_HAND}
  21507.   IDI_HAND = MakeIntResource(32513);
  21508.   {$EXTERNALSYM IDI_QUESTION}
  21509.   IDI_QUESTION = MakeIntResource(32514);
  21510.   {$EXTERNALSYM IDI_EXCLAMATION}
  21511.   IDI_EXCLAMATION = MakeIntResource(32515);
  21512.   {$EXTERNALSYM IDI_ASTERISK}
  21513.   IDI_ASTERISK = MakeIntResource(32516);
  21514.   {$EXTERNALSYM IDI_WINLOGO}
  21515.   IDI_WINLOGO = MakeIntResource(32517);
  21516.   {$EXTERNALSYM IDI_WARNING}
  21517.   IDI_WARNING = IDI_EXCLAMATION;
  21518.   {$EXTERNALSYM IDI_ERROR}
  21519.   IDI_ERROR = IDI_HAND;
  21520.   {$EXTERNALSYM IDI_INFORMATION}
  21521.   IDI_INFORMATION = IDI_ASTERISK;
  21522.  
  21523. {$EXTERNALSYM LoadStringA}
  21524. function LoadStringA(hInstance: HINST; uID: UINT; lpBuffer: PAnsiChar; nBufferMax: Integer): Integer; stdcall;
  21525. {$EXTERNALSYM LoadStringW}
  21526. function LoadStringW(hInstance: HINST; uID: UINT; lpBuffer: PWideChar; nBufferMax: Integer): Integer; stdcall;
  21527. {$EXTERNALSYM LoadString}
  21528. function LoadString(hInstance: HINST; uID: UINT; lpBuffer: PChar; nBufferMax: Integer): Integer; stdcall;
  21529.  
  21530. const
  21531.   { Dialog Box Command IDs }
  21532.   {$EXTERNALSYM IDOK}
  21533.   IDOK = 1;          ID_OK = IDOK;
  21534.   {$EXTERNALSYM IDCANCEL}
  21535.   IDCANCEL = 2;      ID_CANCEL = IDCANCEL;
  21536.   {$EXTERNALSYM IDABORT}
  21537.   IDABORT = 3;       ID_ABORT = IDABORT;
  21538.   {$EXTERNALSYM IDRETRY}
  21539.   IDRETRY = 4;       ID_RETRY = IDRETRY;
  21540.   {$EXTERNALSYM IDIGNORE}
  21541.   IDIGNORE = 5;      ID_IGNORE = IDIGNORE;
  21542.   {$EXTERNALSYM IDYES}
  21543.   IDYES = 6;         ID_YES = IDYES;
  21544.   {$EXTERNALSYM IDNO}
  21545.   IDNO = 7;          ID_NO = IDNO;
  21546.   {$EXTERNALSYM IDCLOSE}
  21547.   IDCLOSE = 8;       ID_CLOSE = IDCLOSE;
  21548.   {$EXTERNALSYM IDHELP}
  21549.   IDHELP = 9;        ID_HELP = IDHELP;
  21550.  
  21551.  
  21552. { Control Manager Structures and Definitions }
  21553.  
  21554.   { Edit Control Styles }
  21555.   {$EXTERNALSYM ES_LEFT}
  21556.   ES_LEFT = 0;
  21557.   {$EXTERNALSYM ES_CENTER}
  21558.   ES_CENTER = 1;
  21559.   {$EXTERNALSYM ES_RIGHT}
  21560.   ES_RIGHT = 2;
  21561.   {$EXTERNALSYM ES_MULTILINE}
  21562.   ES_MULTILINE = 4;
  21563.   {$EXTERNALSYM ES_UPPERCASE}
  21564.   ES_UPPERCASE = 8;
  21565.   {$EXTERNALSYM ES_LOWERCASE}
  21566.   ES_LOWERCASE = $10;
  21567.   {$EXTERNALSYM ES_PASSWORD}
  21568.   ES_PASSWORD = $20;
  21569.   {$EXTERNALSYM ES_AUTOVSCROLL}
  21570.   ES_AUTOVSCROLL = $40;
  21571.   {$EXTERNALSYM ES_AUTOHSCROLL}
  21572.   ES_AUTOHSCROLL = $80;
  21573.   {$EXTERNALSYM ES_NOHIDESEL}
  21574.   ES_NOHIDESEL = $100;
  21575.   {$EXTERNALSYM ES_OEMCONVERT}
  21576.   ES_OEMCONVERT = $400;
  21577.   {$EXTERNALSYM ES_READONLY}
  21578.   ES_READONLY = $800;
  21579.   {$EXTERNALSYM ES_WANTRETURN}
  21580.   ES_WANTRETURN = $1000;
  21581.   {$EXTERNALSYM ES_NUMBER}
  21582.   ES_NUMBER = $2000;
  21583.  
  21584.   { Edit control EM_SETMARGIN parameters }
  21585.   {$EXTERNALSYM EC_LEFTMARGIN}
  21586.   EC_LEFTMARGIN = 1;
  21587.   {$EXTERNALSYM EC_RIGHTMARGIN}
  21588.   EC_RIGHTMARGIN = 2;
  21589.   {$EXTERNALSYM EC_USEFONTINFO}
  21590.   EC_USEFONTINFO = 65535;
  21591.  
  21592.   { TFNEditWordBreakProc code values }
  21593.   {$EXTERNALSYM WB_LEFT}
  21594.   WB_LEFT = 0;
  21595.   {$EXTERNALSYM WB_RIGHT}
  21596.   WB_RIGHT = 1;
  21597.   {$EXTERNALSYM WB_ISDELIMITER}
  21598.   WB_ISDELIMITER = 2;
  21599.  
  21600.   { Button Control Styles }
  21601.   {$EXTERNALSYM BS_PUSHBUTTON}
  21602.   BS_PUSHBUTTON = 0;
  21603.   {$EXTERNALSYM BS_DEFPUSHBUTTON}
  21604.   BS_DEFPUSHBUTTON = 1;
  21605.   {$EXTERNALSYM BS_CHECKBOX}
  21606.   BS_CHECKBOX = 2;
  21607.   {$EXTERNALSYM BS_AUTOCHECKBOX}
  21608.   BS_AUTOCHECKBOX = 3;
  21609.   {$EXTERNALSYM BS_RADIOBUTTON}
  21610.   BS_RADIOBUTTON = 4;
  21611.   {$EXTERNALSYM BS_3STATE}
  21612.   BS_3STATE = 5;
  21613.   {$EXTERNALSYM BS_AUTO3STATE}
  21614.   BS_AUTO3STATE = 6;
  21615.   {$EXTERNALSYM BS_GROUPBOX}
  21616.   BS_GROUPBOX = 7;
  21617.   {$EXTERNALSYM BS_USERBUTTON}
  21618.   BS_USERBUTTON = 8;
  21619.   {$EXTERNALSYM BS_AUTORADIOBUTTON}
  21620.   BS_AUTORADIOBUTTON = 9;
  21621.   {$EXTERNALSYM BS_OWNERDRAW}
  21622.   BS_OWNERDRAW = 11;
  21623.   {$EXTERNALSYM BS_LEFTTEXT}
  21624.   BS_LEFTTEXT = $20;
  21625.   {$EXTERNALSYM BS_TEXT}
  21626.   BS_TEXT = 0;
  21627.   {$EXTERNALSYM BS_ICON}
  21628.   BS_ICON = $40;
  21629.   {$EXTERNALSYM BS_BITMAP}
  21630.   BS_BITMAP = $80;
  21631.   {$EXTERNALSYM BS_LEFT}
  21632.   BS_LEFT = $100;
  21633.   {$EXTERNALSYM BS_RIGHT}
  21634.   BS_RIGHT = $200;
  21635.   {$EXTERNALSYM BS_CENTER}
  21636.   BS_CENTER = 768;
  21637.   {$EXTERNALSYM BS_TOP}
  21638.   BS_TOP = $400;
  21639.   {$EXTERNALSYM BS_BOTTOM}
  21640.   BS_BOTTOM = $800;
  21641.   {$EXTERNALSYM BS_VCENTER}
  21642.   BS_VCENTER = 3072;
  21643.   {$EXTERNALSYM BS_PUSHLIKE}
  21644.   BS_PUSHLIKE = $1000;
  21645.   {$EXTERNALSYM BS_MULTILINE}
  21646.   BS_MULTILINE = $2000;
  21647.   {$EXTERNALSYM BS_NOTIFY}
  21648.   BS_NOTIFY = $4000;
  21649.   {$EXTERNALSYM BS_FLAT}
  21650.   BS_FLAT = $8000;
  21651.   {$EXTERNALSYM BS_RIGHTBUTTON}
  21652.   BS_RIGHTBUTTON = BS_LEFTTEXT;
  21653.  
  21654.   {$EXTERNALSYM BST_UNCHECKED}
  21655.   BST_UNCHECKED = 0;
  21656.   {$EXTERNALSYM BST_CHECKED}
  21657.   BST_CHECKED = 1;
  21658.   {$EXTERNALSYM BST_INDETERMINATE}
  21659.   BST_INDETERMINATE = 2;
  21660.   {$EXTERNALSYM BST_PUSHED}
  21661.   BST_PUSHED = 4;
  21662.   {$EXTERNALSYM BST_FOCUS}
  21663.   BST_FOCUS = 8;
  21664.  
  21665.   { Static Control Constants }
  21666.   {$EXTERNALSYM SS_LEFT}
  21667.   SS_LEFT = 0;
  21668.   {$EXTERNALSYM SS_CENTER}
  21669.   SS_CENTER = 1;
  21670.   {$EXTERNALSYM SS_RIGHT}
  21671.   SS_RIGHT = 2;
  21672.   {$EXTERNALSYM SS_ICON}
  21673.   SS_ICON = 3;
  21674.   {$EXTERNALSYM SS_BLACKRECT}
  21675.   SS_BLACKRECT = 4;
  21676.   {$EXTERNALSYM SS_GRAYRECT}
  21677.   SS_GRAYRECT = 5;
  21678.   {$EXTERNALSYM SS_WHITERECT}
  21679.   SS_WHITERECT = 6;
  21680.   {$EXTERNALSYM SS_BLACKFRAME}
  21681.   SS_BLACKFRAME = 7;
  21682.   {$EXTERNALSYM SS_GRAYFRAME}
  21683.   SS_GRAYFRAME = 8;
  21684.   {$EXTERNALSYM SS_WHITEFRAME}
  21685.   SS_WHITEFRAME = 9;
  21686.   {$EXTERNALSYM SS_USERITEM}
  21687.   SS_USERITEM = 10;
  21688.   {$EXTERNALSYM SS_SIMPLE}
  21689.   SS_SIMPLE = 11;
  21690.   {$EXTERNALSYM SS_LEFTNOWORDWRAP}
  21691.   SS_LEFTNOWORDWRAP = 12;
  21692.   {$EXTERNALSYM SS_BITMAP}
  21693.   SS_BITMAP = 14;
  21694.   {$EXTERNALSYM SS_OWNERDRAW}
  21695.   SS_OWNERDRAW = 13;
  21696.   {$EXTERNALSYM SS_ENHMETAFILE}
  21697.   SS_ENHMETAFILE = 15;
  21698.   {$EXTERNALSYM SS_ETCHEDHORZ}
  21699.   SS_ETCHEDHORZ = $10;
  21700.   {$EXTERNALSYM SS_ETCHEDVERT}
  21701.   SS_ETCHEDVERT = 17;
  21702.   {$EXTERNALSYM SS_ETCHEDFRAME}
  21703.   SS_ETCHEDFRAME = 18;
  21704.   {$EXTERNALSYM SS_TYPEMASK}
  21705.   SS_TYPEMASK = 31;
  21706.   {$EXTERNALSYM SS_NOPREFIX}
  21707.   SS_NOPREFIX = $80;      { Don't do "&" character translation }
  21708.   {$EXTERNALSYM SS_NOTIFY}
  21709.   SS_NOTIFY = $100;
  21710.   {$EXTERNALSYM SS_CENTERIMAGE}
  21711.   SS_CENTERIMAGE = $200;
  21712.   {$EXTERNALSYM SS_RIGHTJUST}
  21713.   SS_RIGHTJUST = $400;
  21714.   {$EXTERNALSYM SS_REALSIZEIMAGE}
  21715.   SS_REALSIZEIMAGE = $800;
  21716.   {$EXTERNALSYM SS_SUNKEN}
  21717.   SS_SUNKEN = $1000;
  21718.   {$EXTERNALSYM SS_ENDELLIPSIS}
  21719.   SS_ENDELLIPSIS =  $4000;
  21720.   {$EXTERNALSYM SS_PATHELLIPSIS}
  21721.   SS_PATHELLIPSIS = $8000;
  21722.   {$EXTERNALSYM SS_WORDELLIPSIS}
  21723.   SS_WORDELLIPSIS = $C000;
  21724.   {$EXTERNALSYM SS_ELLIPSISMASK}
  21725.   SS_ELLIPSISMASK = $C000;
  21726.  
  21727.   { Static Control Mesages }
  21728.   {$EXTERNALSYM STM_SETICON}
  21729.   STM_SETICON = 368;
  21730.   {$EXTERNALSYM STM_GETICON}
  21731.   STM_GETICON = 369;
  21732.   {$EXTERNALSYM STM_SETIMAGE}
  21733.   STM_SETIMAGE = 370;
  21734.   {$EXTERNALSYM STM_GETIMAGE}
  21735.   STM_GETIMAGE = 371;
  21736.   {$EXTERNALSYM STN_CLICKED}
  21737.   STN_CLICKED = 0;
  21738.   {$EXTERNALSYM STN_DBLCLK}
  21739.   STN_DBLCLK = 1;
  21740.   {$EXTERNALSYM STN_ENABLE}
  21741.   STN_ENABLE = 2;
  21742.   {$EXTERNALSYM STN_DISABLE}
  21743.   STN_DISABLE = 3;
  21744.   {$EXTERNALSYM STM_MSGMAX}
  21745.   STM_MSGMAX = 372;
  21746.  
  21747.   { Dialog window class }
  21748.   {$EXTERNALSYM WC_DIALOG}
  21749.   WC_DIALOG = MakeIntAtom($8002);
  21750.  
  21751.   { GetSetWindowWordLong offsets for use with WC_DIALOG windows }
  21752.   {$EXTERNALSYM DWL_MSGRESULT}
  21753.   DWL_MSGRESULT = 0;
  21754.   {$EXTERNALSYM DWL_DLGPROC}
  21755.   DWL_DLGPROC = 4;
  21756.   {$EXTERNALSYM DWL_USER}
  21757.   DWL_USER = 8;
  21758.  
  21759. { Dialog Manager Routines }
  21760.  
  21761. {$EXTERNALSYM IsDialogMessageA}
  21762. function IsDialogMessageA(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  21763. {$EXTERNALSYM IsDialogMessageW}
  21764. function IsDialogMessageW(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  21765. {$EXTERNALSYM IsDialogMessage}
  21766. function IsDialogMessage(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  21767. {$EXTERNALSYM MapDialogRect}
  21768. function MapDialogRect(hDlg: HWND; var lpRect: TRect): BOOL; stdcall;
  21769. {$EXTERNALSYM DlgDirListA}
  21770. function DlgDirListA(hDlg: HWND; lpPathSpec: PAnsiChar;
  21771.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  21772. {$EXTERNALSYM DlgDirListW}
  21773. function DlgDirListW(hDlg: HWND; lpPathSpec: PWideChar;
  21774.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  21775. {$EXTERNALSYM DlgDirList}
  21776. function DlgDirList(hDlg: HWND; lpPathSpec: PChar;
  21777.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  21778.  
  21779. const
  21780.   { DlgDirList, DlgDirListComboBox flags values }
  21781.   {$EXTERNALSYM DDL_READWRITE}
  21782.   DDL_READWRITE = 0;
  21783.   {$EXTERNALSYM DDL_READONLY}
  21784.   DDL_READONLY = 1;
  21785.   {$EXTERNALSYM DDL_HIDDEN}
  21786.   DDL_HIDDEN = 2;
  21787.   {$EXTERNALSYM DDL_SYSTEM}
  21788.   DDL_SYSTEM = 4;
  21789.   {$EXTERNALSYM DDL_DIRECTORY}
  21790.   DDL_DIRECTORY = $10;
  21791.   {$EXTERNALSYM DDL_ARCHIVE}
  21792.   DDL_ARCHIVE = $20;
  21793.  
  21794.   {$EXTERNALSYM DDL_POSTMSGS}
  21795.   DDL_POSTMSGS = $2000;
  21796.   {$EXTERNALSYM DDL_DRIVES}
  21797.   DDL_DRIVES = $4000;
  21798.   {$EXTERNALSYM DDL_EXCLUSIVE}
  21799.   DDL_EXCLUSIVE = $8000;
  21800.  
  21801. {$EXTERNALSYM DlgDirSelectExA}
  21802. function DlgDirSelectExA(hDlg: HWND; lpString: PAnsiChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  21803. {$EXTERNALSYM DlgDirSelectExW}
  21804. function DlgDirSelectExW(hDlg: HWND; lpString: PWideChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  21805. {$EXTERNALSYM DlgDirSelectEx}
  21806. function DlgDirSelectEx(hDlg: HWND; lpString: PChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  21807. {$EXTERNALSYM DlgDirListComboBoxA}
  21808. function DlgDirListComboBoxA(hDlg: HWND; lpPathSpec: PAnsiChar;
  21809.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  21810. {$EXTERNALSYM DlgDirListComboBoxW}
  21811. function DlgDirListComboBoxW(hDlg: HWND; lpPathSpec: PWideChar;
  21812.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  21813. {$EXTERNALSYM DlgDirListComboBox}
  21814. function DlgDirListComboBox(hDlg: HWND; lpPathSpec: PChar;
  21815.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  21816. {$EXTERNALSYM DlgDirSelectComboBoxExA}
  21817. function DlgDirSelectComboBoxExA(hDlg: HWND; lpString: PAnsiChar;
  21818.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  21819. {$EXTERNALSYM DlgDirSelectComboBoxExW}
  21820. function DlgDirSelectComboBoxExW(hDlg: HWND; lpString: PWideChar;
  21821.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  21822. {$EXTERNALSYM DlgDirSelectComboBoxEx}
  21823. function DlgDirSelectComboBoxEx(hDlg: HWND; lpString: PChar;
  21824.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  21825.  
  21826. const
  21827.   { Dialog Styles }
  21828.   {$EXTERNALSYM DS_ABSALIGN}
  21829.   DS_ABSALIGN = 1;
  21830.   {$EXTERNALSYM DS_SYSMODAL}
  21831.   DS_SYSMODAL = 2;
  21832.   {$EXTERNALSYM DS_LOCALEDIT}
  21833.   DS_LOCALEDIT = $20;         { Edit items get Local storage. }
  21834.   {$EXTERNALSYM DS_SETFONT}
  21835.   DS_SETFONT = $40;           { User specified font for Dlg controls }
  21836.   {$EXTERNALSYM DS_MODALFRAME}
  21837.   DS_MODALFRAME = $80;        { Can be combined with WS_CAPTION  }
  21838.   {$EXTERNALSYM DS_NOIDLEMSG}
  21839.   DS_NOIDLEMSG = $100;        { WM_ENTERIDLE message will not be sent }
  21840.   {$EXTERNALSYM DS_SETFOREGROUND}
  21841.   DS_SETFOREGROUND = $200;    { not in win3.1 }
  21842.  
  21843.   {$EXTERNALSYM DS_3DLOOK}
  21844.   DS_3DLOOK = 4;
  21845.   {$EXTERNALSYM DS_FIXEDSYS}
  21846.   DS_FIXEDSYS = 8;
  21847.   {$EXTERNALSYM DS_NOFAILCREATE}
  21848.   DS_NOFAILCREATE = $10;
  21849.   {$EXTERNALSYM DS_CONTROL}
  21850.   DS_CONTROL = $400;
  21851.   {$EXTERNALSYM DS_CENTER}
  21852.   DS_CENTER = $800;
  21853.   {$EXTERNALSYM DS_CENTERMOUSE}
  21854.   DS_CENTERMOUSE = $1000;
  21855.   {$EXTERNALSYM DS_CONTEXTHELP}
  21856.   DS_CONTEXTHELP = $2000;
  21857.  
  21858.   {$EXTERNALSYM PSI_SETACTIVE}
  21859.   PSI_SETACTIVE = 1;
  21860.   {$EXTERNALSYM PSI_KILLACTIVE}
  21861.   PSI_KILLACTIVE = 2;
  21862.   {$EXTERNALSYM PSI_APPLY}
  21863.   PSI_APPLY = 3;
  21864.   {$EXTERNALSYM PSI_RESET}
  21865.   PSI_RESET = 4;
  21866.   {$EXTERNALSYM PSI_HASHELP}
  21867.   PSI_HASHELP = 5;
  21868.   {$EXTERNALSYM PSI_HELP}
  21869.   PSI_HELP = 6;
  21870.  
  21871.   {$EXTERNALSYM PSI_CHANGED}
  21872.   PSI_CHANGED = 1;
  21873.   {$EXTERNALSYM PSI_GUISTART}
  21874.   PSI_GUISTART = 2;
  21875.   {$EXTERNALSYM PSI_REBOOT}
  21876.   PSI_REBOOT = 3;
  21877.   {$EXTERNALSYM PSI_GETSIBLINGS}
  21878.   PSI_GETSIBLINGS = 4;
  21879.  
  21880.   { Returned in HiWord() of DM_GETDEFID result if msg is supported }
  21881.   {$EXTERNALSYM DC_HASDEFID}
  21882.   DC_HASDEFID = 21323;
  21883.  
  21884.   { Dialog Codes }
  21885.   {$EXTERNALSYM DLGC_WANTARROWS}
  21886.   DLGC_WANTARROWS = 1;         { Control wants arrow keys         }
  21887.   {$EXTERNALSYM DLGC_WANTTAB}
  21888.   DLGC_WANTTAB = 2;            { Control wants tab keys           }
  21889.   {$EXTERNALSYM DLGC_WANTALLKEYS}
  21890.   DLGC_WANTALLKEYS = 4;        { Control wants all keys           }
  21891.   {$EXTERNALSYM DLGC_WANTMESSAGE}
  21892.   DLGC_WANTMESSAGE = 4;        { Pass message to control          }
  21893.   {$EXTERNALSYM DLGC_HASSETSEL}
  21894.   DLGC_HASSETSEL = 8;          { Understands EM_SETSEL message    }
  21895.   {$EXTERNALSYM DLGC_DEFPUSHBUTTON}
  21896.   DLGC_DEFPUSHBUTTON = $10;    { Default pushbutton               }
  21897.   {$EXTERNALSYM DLGC_UNDEFPUSHBUTTON}
  21898.   DLGC_UNDEFPUSHBUTTON = $20;  { Non-default pushbutton           }
  21899.   {$EXTERNALSYM DLGC_RADIOBUTTON}
  21900.   DLGC_RADIOBUTTON = $40;      { Radio button                     }
  21901.   {$EXTERNALSYM DLGC_WANTCHARS}
  21902.   DLGC_WANTCHARS = $80;        { Want WM_CHAR messages            }
  21903.   {$EXTERNALSYM DLGC_STATIC}
  21904.   DLGC_STATIC = $100;          { Static item: don't include       }
  21905.   {$EXTERNALSYM DLGC_BUTTON}
  21906.   DLGC_BUTTON = $2000;         { Button item: can be checked      }
  21907.   {$EXTERNALSYM LB_CTLCODE}
  21908.   LB_CTLCODE = 0;
  21909.  
  21910.   { Listbox Return Values }
  21911.   {$EXTERNALSYM LB_OKAY}
  21912.   LB_OKAY = 0;
  21913.   {$EXTERNALSYM LB_ERR}
  21914.   LB_ERR = -1;
  21915.   {$EXTERNALSYM LB_ERRSPACE}
  21916.   LB_ERRSPACE = -2;
  21917.  
  21918.   { Listbox Styles }
  21919.   {$EXTERNALSYM LBS_NOTIFY}
  21920.   LBS_NOTIFY = 1;
  21921.   {$EXTERNALSYM LBS_SORT}
  21922.   LBS_SORT = 2;
  21923.   {$EXTERNALSYM LBS_NOREDRAW}
  21924.   LBS_NOREDRAW = 4;
  21925.   {$EXTERNALSYM LBS_MULTIPLESEL}
  21926.   LBS_MULTIPLESEL = 8;
  21927.   {$EXTERNALSYM LBS_OWNERDRAWFIXED}
  21928.   LBS_OWNERDRAWFIXED = $10;
  21929.   {$EXTERNALSYM LBS_OWNERDRAWVARIABLE}
  21930.   LBS_OWNERDRAWVARIABLE = $20;
  21931.   {$EXTERNALSYM LBS_HASSTRINGS}
  21932.   LBS_HASSTRINGS = $40;
  21933.   {$EXTERNALSYM LBS_USETABSTOPS}
  21934.   LBS_USETABSTOPS = $80;
  21935.   {$EXTERNALSYM LBS_NOINTEGRALHEIGHT}
  21936.   LBS_NOINTEGRALHEIGHT = $100;
  21937.   {$EXTERNALSYM LBS_MULTICOLUMN}
  21938.   LBS_MULTICOLUMN = $200;
  21939.   {$EXTERNALSYM LBS_WANTKEYBOARDINPUT}
  21940.   LBS_WANTKEYBOARDINPUT = $400;
  21941.   {$EXTERNALSYM LBS_EXTENDEDSEL}
  21942.   LBS_EXTENDEDSEL = $800;
  21943.   {$EXTERNALSYM LBS_DISABLENOSCROLL}
  21944.   LBS_DISABLENOSCROLL = $1000;
  21945.   {$EXTERNALSYM LBS_NODATA}
  21946.   LBS_NODATA = $2000;
  21947.   {$EXTERNALSYM LBS_NOSEL}
  21948.   LBS_NOSEL = $4000;
  21949.   {$EXTERNALSYM LBS_STANDARD}
  21950.   LBS_STANDARD = (LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER);
  21951.  
  21952.   { Combo Box return Values }
  21953.   {$EXTERNALSYM CB_OKAY}
  21954.   CB_OKAY = 0;
  21955.   {$EXTERNALSYM CB_ERR}
  21956.   CB_ERR = -1;
  21957.   {$EXTERNALSYM CB_ERRSPACE}
  21958.   CB_ERRSPACE = -2;
  21959.  
  21960.   { Combo Box styles }
  21961.   {$EXTERNALSYM CBS_SIMPLE}
  21962.   CBS_SIMPLE = 1;
  21963.   {$EXTERNALSYM CBS_DROPDOWN}
  21964.   CBS_DROPDOWN = 2;
  21965.   {$EXTERNALSYM CBS_DROPDOWNLIST}
  21966.   CBS_DROPDOWNLIST = 3;
  21967.   {$EXTERNALSYM CBS_OWNERDRAWFIXED}
  21968.   CBS_OWNERDRAWFIXED = $10;
  21969.   {$EXTERNALSYM CBS_OWNERDRAWVARIABLE}
  21970.   CBS_OWNERDRAWVARIABLE = $20;
  21971.   {$EXTERNALSYM CBS_AUTOHSCROLL}
  21972.   CBS_AUTOHSCROLL = $40;
  21973.   {$EXTERNALSYM CBS_OEMCONVERT}
  21974.   CBS_OEMCONVERT = $80;
  21975.   {$EXTERNALSYM CBS_SORT}
  21976.   CBS_SORT = $100;
  21977.   {$EXTERNALSYM CBS_HASSTRINGS}
  21978.   CBS_HASSTRINGS = $200;
  21979.   {$EXTERNALSYM CBS_NOINTEGRALHEIGHT}
  21980.   CBS_NOINTEGRALHEIGHT = $400;
  21981.   {$EXTERNALSYM CBS_DISABLENOSCROLL}
  21982.   CBS_DISABLENOSCROLL = $800;
  21983.   {$EXTERNALSYM CBS_UPPERCASE}
  21984.   CBS_UPPERCASE = $2000;
  21985.   {$EXTERNALSYM CBS_LOWERCASE}
  21986.   CBS_LOWERCASE = $4000;
  21987.  
  21988.   { Scroll Bar Styles }
  21989.   {$EXTERNALSYM SBS_HORZ}
  21990.   SBS_HORZ = 0;
  21991.   {$EXTERNALSYM SBS_VERT}
  21992.   SBS_VERT = 1;
  21993.   {$EXTERNALSYM SBS_TOPALIGN}
  21994.   SBS_TOPALIGN = 2;
  21995.   {$EXTERNALSYM SBS_LEFTALIGN}
  21996.   SBS_LEFTALIGN = 2;
  21997.   {$EXTERNALSYM SBS_BOTTOMALIGN}
  21998.   SBS_BOTTOMALIGN = 4;
  21999.   {$EXTERNALSYM SBS_RIGHTALIGN}
  22000.   SBS_RIGHTALIGN = 4;
  22001.   {$EXTERNALSYM SBS_SIZEBOXTOPLEFTALIGN}
  22002.   SBS_SIZEBOXTOPLEFTALIGN = 2;
  22003.   {$EXTERNALSYM SBS_SIZEBOXBOTTOMRIGHTALIGN}
  22004.   SBS_SIZEBOXBOTTOMRIGHTALIGN = 4;
  22005.   {$EXTERNALSYM SBS_SIZEBOX}
  22006.   SBS_SIZEBOX = 8;
  22007.   {$EXTERNALSYM SBS_SIZEGRIP}
  22008.   SBS_SIZEGRIP = $10;
  22009.  
  22010.   {$EXTERNALSYM SIF_RANGE}
  22011.   SIF_RANGE = 1;
  22012.   {$EXTERNALSYM SIF_PAGE}
  22013.   SIF_PAGE = 2;
  22014.   {$EXTERNALSYM SIF_POS}
  22015.   SIF_POS = 4;
  22016.   {$EXTERNALSYM SIF_DISABLENOSCROLL}
  22017.   SIF_DISABLENOSCROLL = 8;
  22018.   {$EXTERNALSYM SIF_TRACKPOS}
  22019.   SIF_TRACKPOS = $10;
  22020.   {$EXTERNALSYM SIF_ALL}
  22021.   SIF_ALL = (SIF_RANGE or SIF_PAGE or SIF_POS or SIF_TRACKPOS);
  22022.  
  22023. type
  22024.   {$EXTERNALSYM tagSCROLLINFO}
  22025.   tagSCROLLINFO = packed record
  22026.     cbSize: UINT;
  22027.     fMask: UINT;
  22028.     nMin: Integer;
  22029.     nMax: Integer;
  22030.     nPage: UINT;
  22031.     nPos: Integer;
  22032.     nTrackPos: Integer;
  22033.   end;
  22034.   PScrollInfo = ^TScrollInfo;
  22035.   TScrollInfo = tagSCROLLINFO;
  22036.   {$EXTERNALSYM SCROLLINFO}
  22037.   SCROLLINFO = tagSCROLLINFO;
  22038.  
  22039. {$EXTERNALSYM SetScrollInfo}
  22040. function SetScrollInfo(hWnd: HWND; BarFlag: Integer; const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; stdcall;
  22041. {$EXTERNALSYM GetScrollInfo}
  22042. function GetScrollInfo(hWnd: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): BOOL; stdcall;
  22043.  
  22044.  
  22045. const
  22046.   { MDI client style bits }
  22047.   {$EXTERNALSYM MDIS_ALLCHILDSTYLES}
  22048.   MDIS_ALLCHILDSTYLES = 1;
  22049.  
  22050.   { wParam Flags for WM_MDITILE and WM_MDICASCADE messages. }
  22051.   {$EXTERNALSYM MDITILE_VERTICAL}
  22052.   MDITILE_VERTICAL = 0;       { not in win3.1  }
  22053.   {$EXTERNALSYM MDITILE_HORIZONTAL}
  22054.   MDITILE_HORIZONTAL = 1;     { not in win3.1  }
  22055.   {$EXTERNALSYM MDITILE_SKIPDISABLED}
  22056.   MDITILE_SKIPDISABLED = 2;   { not in win3.1  }
  22057.  
  22058. type
  22059.   PMDICreateStructA = ^TMDICreateStructA;
  22060.   PMDICreateStructW = ^TMDICreateStructW;
  22061.   PMDICreateStruct = PMDICreateStructA;
  22062.   {$EXTERNALSYM tagMDICREATESTRUCTA}
  22063.   tagMDICREATESTRUCTA = packed record
  22064.     szClass: PAnsiChar;
  22065.     szTitle: PAnsiChar;
  22066.     hOwner: THandle;
  22067.     x: Integer;
  22068.     y: Integer;
  22069.     cx: Integer;
  22070.     cy: Integer;
  22071.     style: DWORD;
  22072.     lParam: LPARAM;  { app-defined stuff }
  22073.   end;
  22074.   {$EXTERNALSYM tagMDICREATESTRUCTW}
  22075.   tagMDICREATESTRUCTW = packed record
  22076.     szClass: PWideChar;
  22077.     szTitle: PWideChar;
  22078.     hOwner: THandle;
  22079.     x: Integer;
  22080.     y: Integer;
  22081.     cx: Integer;
  22082.     cy: Integer;
  22083.     style: DWORD;
  22084.     lParam: LPARAM;  { app-defined stuff }
  22085.   end;
  22086.   {$EXTERNALSYM tagMDICREATESTRUCT}
  22087.   tagMDICREATESTRUCT = tagMDICREATESTRUCTA;
  22088.   TMDICreateStructA = tagMDICREATESTRUCTA;
  22089.   TMDICreateStructW = tagMDICREATESTRUCTW;
  22090.   TMDICreateStruct = TMDICreateStructA;
  22091.   {$EXTERNALSYM MDICREATESTRUCTA}
  22092.   MDICREATESTRUCTA = tagMDICREATESTRUCTA;
  22093.   {$EXTERNALSYM MDICREATESTRUCTW}
  22094.   MDICREATESTRUCTW = tagMDICREATESTRUCTW;
  22095.   {$EXTERNALSYM MDICREATESTRUCT}
  22096.   MDICREATESTRUCT = MDICREATESTRUCTA;
  22097.  
  22098.   PClientCreateStruct = ^TClientCreateStruct;
  22099.   {$EXTERNALSYM tagCLIENTCREATESTRUCT}
  22100.   tagCLIENTCREATESTRUCT = packed record
  22101.     hWindowMenu: THandle;
  22102.     idFirstChild: UINT;
  22103.   end;
  22104.   TClientCreateStruct = tagCLIENTCREATESTRUCT;
  22105.   {$EXTERNALSYM CLIENTCREATESTRUCT}
  22106.   CLIENTCREATESTRUCT = tagCLIENTCREATESTRUCT;
  22107.  
  22108. {$EXTERNALSYM DefFrameProcA}
  22109. function DefFrameProcA(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22110. {$EXTERNALSYM DefFrameProcW}
  22111. function DefFrameProcW(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22112. {$EXTERNALSYM DefFrameProc}
  22113. function DefFrameProc(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22114. {$EXTERNALSYM DefMDIChildProcA}
  22115. function DefMDIChildProcA(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22116. {$EXTERNALSYM DefMDIChildProcW}
  22117. function DefMDIChildProcW(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22118. {$EXTERNALSYM DefMDIChildProc}
  22119. function DefMDIChildProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22120. {$EXTERNALSYM TranslateMDISysAccel}
  22121. function TranslateMDISysAccel(hWndClient: HWND; const lpMsg: TMsg): BOOL; stdcall;
  22122. {$EXTERNALSYM ArrangeIconicWindows}
  22123. function ArrangeIconicWindows(hWnd: HWND): UINT; stdcall;
  22124. {$EXTERNALSYM CreateMDIWindowA}
  22125. function CreateMDIWindowA(lpClassName, lpWindowName: PAnsiChar;
  22126.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  22127.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  22128. {$EXTERNALSYM CreateMDIWindowW}
  22129. function CreateMDIWindowW(lpClassName, lpWindowName: PWideChar;
  22130.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  22131.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  22132. {$EXTERNALSYM CreateMDIWindow}
  22133. function CreateMDIWindow(lpClassName, lpWindowName: PChar;
  22134.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  22135.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  22136. {$EXTERNALSYM TileWindows}
  22137. function TileWindows(hwndParent: HWND; wHow: UINT; lpRect: PRect; cKids: UINT; lpKids: Pointer): Word; stdcall;
  22138. {$EXTERNALSYM CascadeWindows}
  22139. function CascadeWindows(hwndParent: HWND; wHow: UINT; lpRect: PRect; cKids: UINT; lpKids: Pointer): Word; stdcall;
  22140.  
  22141.  
  22142. { IME class support }
  22143.  
  22144. const
  22145.   { wParam for WM_IME_CONTROL (removed from 4.0 SDK) }
  22146.   {$EXTERNALSYM IMC_GETCANDIDATEPOS}
  22147.   IMC_GETCANDIDATEPOS = 7;
  22148.   {$EXTERNALSYM IMC_SETCANDIDATEPOS}
  22149.   IMC_SETCANDIDATEPOS = 8;
  22150.   {$EXTERNALSYM IMC_GETCOMPOSITIONFONT}
  22151.   IMC_GETCOMPOSITIONFONT = 9;
  22152.   {$EXTERNALSYM IMC_SETCOMPOSITIONFONT}
  22153.   IMC_SETCOMPOSITIONFONT = $0A;
  22154.   {$EXTERNALSYM IMC_GETCOMPOSITIONWINDOW}
  22155.   IMC_GETCOMPOSITIONWINDOW = $0B;
  22156.   {$EXTERNALSYM IMC_SETCOMPOSITIONWINDOW}
  22157.   IMC_SETCOMPOSITIONWINDOW = $0C;
  22158.   {$EXTERNALSYM IMC_GETSTATUSWINDOWPOS}
  22159.   IMC_GETSTATUSWINDOWPOS = $0F;
  22160.   {$EXTERNALSYM IMC_SETSTATUSWINDOWPOS}
  22161.   IMC_SETSTATUSWINDOWPOS = $10;
  22162.   {$EXTERNALSYM IMC_CLOSESTATUSWINDOW}
  22163.   IMC_CLOSESTATUSWINDOW = $21;
  22164.   {$EXTERNALSYM IMC_OPENSTATUSWINDOW}
  22165.   IMC_OPENSTATUSWINDOW = $22;
  22166.  
  22167.   { wParam of report message WM_IME_NOTIFY (removed from 4.0 SDK) }
  22168.   {$EXTERNALSYM IMN_CLOSESTATUSWINDOW}
  22169.   IMN_CLOSESTATUSWINDOW = 1;
  22170.   {$EXTERNALSYM IMN_OPENSTATUSWINDOW}
  22171.   IMN_OPENSTATUSWINDOW = 2;
  22172.   {$EXTERNALSYM IMN_CHANGECANDIDATE}
  22173.   IMN_CHANGECANDIDATE = 3;
  22174.   {$EXTERNALSYM IMN_CLOSECANDIDATE}
  22175.   IMN_CLOSECANDIDATE = 4;
  22176.   {$EXTERNALSYM IMN_OPENCANDIDATE}
  22177.   IMN_OPENCANDIDATE = 5;
  22178.   {$EXTERNALSYM IMN_SETCONVERSIONMODE}
  22179.   IMN_SETCONVERSIONMODE = 6;
  22180.   {$EXTERNALSYM IMN_SETSENTENCEMODE}
  22181.   IMN_SETSENTENCEMODE = 7;
  22182.   {$EXTERNALSYM IMN_SETOPENSTATUS}
  22183.   IMN_SETOPENSTATUS = 8;
  22184.   {$EXTERNALSYM IMN_SETCANDIDATEPOS}
  22185.   IMN_SETCANDIDATEPOS = 9;
  22186.   {$EXTERNALSYM IMN_SETCOMPOSITIONFONT}
  22187.   IMN_SETCOMPOSITIONFONT = 10;
  22188.   {$EXTERNALSYM IMN_SETCOMPOSITIONWINDOW}
  22189.   IMN_SETCOMPOSITIONWINDOW = 11;
  22190.   {$EXTERNALSYM IMN_SETSTATUSWINDOWPOS}
  22191.   IMN_SETSTATUSWINDOWPOS = 12;
  22192.   {$EXTERNALSYM IMN_GUIDELINE}
  22193.   IMN_GUIDELINE = 13;
  22194.   {$EXTERNALSYM IMN_PRIVATE}
  22195.   IMN_PRIVATE = 14;
  22196.  
  22197. { Help support }
  22198.  
  22199. type
  22200.   {$EXTERNALSYM HELPPOLY}
  22201.   HELPPOLY = DWORD;
  22202.   PMultiKeyHelpA = ^TMultiKeyHelpA;
  22203.   PMultiKeyHelpW = ^TMultiKeyHelpW;
  22204.   PMultiKeyHelp = PMultiKeyHelpA;
  22205.   {$EXTERNALSYM tagMULTIKEYHELPA}
  22206.   tagMULTIKEYHELPA = record
  22207.     mkSize: DWORD;
  22208.     mkKeylist: AnsiChar;
  22209.     szKeyphrase: array[0..0] of AnsiChar;
  22210.   end;
  22211.   {$EXTERNALSYM tagMULTIKEYHELPW}
  22212.   tagMULTIKEYHELPW = record
  22213.     mkSize: DWORD;
  22214.     mkKeylist: WideChar;
  22215.     szKeyphrase: array[0..0] of WideChar;
  22216.   end;
  22217.   {$EXTERNALSYM tagMULTIKEYHELP}
  22218.   tagMULTIKEYHELP = tagMULTIKEYHELPA;
  22219.   TMultiKeyHelpA = tagMULTIKEYHELPA;
  22220.   TMultiKeyHelpW = tagMULTIKEYHELPW;
  22221.   TMultiKeyHelp = TMultiKeyHelpA;
  22222.   {$EXTERNALSYM MULTIKEYHELPA}
  22223.   MULTIKEYHELPA = tagMULTIKEYHELPA;
  22224.   {$EXTERNALSYM MULTIKEYHELPW}
  22225.   MULTIKEYHELPW = tagMULTIKEYHELPW;
  22226.   {$EXTERNALSYM MULTIKEYHELP}
  22227.   MULTIKEYHELP = MULTIKEYHELPA;
  22228.  
  22229.   PHelpWinInfoA = ^THelpWinInfoA;
  22230.   PHelpWinInfoW = ^THelpWinInfoW;
  22231.   PHelpWinInfo = PHelpWinInfoA;
  22232.   {$EXTERNALSYM tagHELPWININFOA}
  22233.   tagHELPWININFOA = record
  22234.     wStructSize: Integer;
  22235.     x: Integer;
  22236.     y: Integer;
  22237.     dx: Integer;
  22238.     dy: Integer;
  22239.     wMax: Integer;
  22240.     rgchMember: array[0..1] of AnsiChar;
  22241.   end;
  22242.   {$EXTERNALSYM tagHELPWININFOW}
  22243.   tagHELPWININFOW = record
  22244.     wStructSize: Integer;
  22245.     x: Integer;
  22246.     y: Integer;
  22247.     dx: Integer;
  22248.     dy: Integer;
  22249.     wMax: Integer;
  22250.     rgchMember: array[0..1] of WideChar;
  22251.   end;
  22252.   {$EXTERNALSYM tagHELPWININFO}
  22253.   tagHELPWININFO = tagHELPWININFOA;
  22254.   THelpWinInfoA = tagHELPWININFOA;
  22255.   THelpWinInfoW = tagHELPWININFOW;
  22256.   THelpWinInfo = THelpWinInfoA;
  22257.   {$EXTERNALSYM HELPWININFOA}
  22258.   HELPWININFOA = tagHELPWININFOA;
  22259.   {$EXTERNALSYM HELPWININFOW}
  22260.   HELPWININFOW = tagHELPWININFOW;
  22261.   {$EXTERNALSYM HELPWININFO}
  22262.   HELPWININFO = HELPWININFOA;
  22263.  
  22264. const
  22265.   { Commands to pass to WinHelp() }
  22266.   {$EXTERNALSYM HELP_CONTEXT}
  22267.   HELP_CONTEXT = 1;       { Display topic in ulTopic  }
  22268.   {$EXTERNALSYM HELP_QUIT}
  22269.   HELP_QUIT = 2;          { Terminate help  }
  22270.   {$EXTERNALSYM HELP_INDEX}
  22271.   HELP_INDEX = 3;         { Display index  }
  22272.   {$EXTERNALSYM HELP_CONTENTS}
  22273.   HELP_CONTENTS = 3;
  22274.   {$EXTERNALSYM HELP_HELPONHELP}
  22275.   HELP_HELPONHELP = 4;    { Display help on using help  }
  22276.   {$EXTERNALSYM HELP_SETINDEX}
  22277.   HELP_SETINDEX = 5;      { Set current Index for multi index help  }
  22278.   {$EXTERNALSYM HELP_SETCONTENTS}
  22279.   HELP_SETCONTENTS = 5;
  22280.   {$EXTERNALSYM HELP_CONTEXTPOPUP}
  22281.   HELP_CONTEXTPOPUP = 8;
  22282.   {$EXTERNALSYM HELP_FORCEFILE}
  22283.   HELP_FORCEFILE = 9;
  22284.   {$EXTERNALSYM HELP_KEY}
  22285.   HELP_KEY = 257;         { Display topic for keyword in offabData  }
  22286.   {$EXTERNALSYM HELP_COMMAND}
  22287.   HELP_COMMAND = 258;
  22288.   {$EXTERNALSYM HELP_PARTIALKEY}
  22289.   HELP_PARTIALKEY = 261;
  22290.   {$EXTERNALSYM HELP_MULTIKEY}
  22291.   HELP_MULTIKEY = 513;
  22292.   {$EXTERNALSYM HELP_SETWINPOS}
  22293.   HELP_SETWINPOS = 515;
  22294.   {$EXTERNALSYM HELP_CONTEXTMENU}
  22295.   HELP_CONTEXTMENU = 10;
  22296.   {$EXTERNALSYM HELP_FINDER}
  22297.   HELP_FINDER = 11;
  22298.   {$EXTERNALSYM HELP_WM_HELP}
  22299.   HELP_WM_HELP = 12;
  22300.   {$EXTERNALSYM HELP_SETPOPUP_POS}
  22301.   HELP_SETPOPUP_POS = 13;
  22302.  
  22303.   {$EXTERNALSYM HELP_TCARD}
  22304.   HELP_TCARD = $8000;
  22305.   {$EXTERNALSYM HELP_TCARD_DATA}
  22306.   HELP_TCARD_DATA = $10;
  22307.   {$EXTERNALSYM HELP_TCARD_OTHER_CALLER}
  22308.   HELP_TCARD_OTHER_CALLER = 17;
  22309.  
  22310.   { These are in winhelp.h in Win95. }
  22311.   {$EXTERNALSYM IDH_NO_HELP}
  22312.   IDH_NO_HELP = 28440;
  22313.   {$EXTERNALSYM IDH_MISSING_CONTEXT}
  22314.   IDH_MISSING_CONTEXT = 28441;      { Control doesn't have matching help context }
  22315.   {$EXTERNALSYM IDH_GENERIC_HELP_BUTTON}
  22316.   IDH_GENERIC_HELP_BUTTON = 28442;  { Property sheet help button }
  22317.   {$EXTERNALSYM IDH_OK}
  22318.   IDH_OK = 28443;
  22319.   {$EXTERNALSYM IDH_CANCEL}
  22320.   IDH_CANCEL = 28444;
  22321.   {$EXTERNALSYM IDH_HELP}
  22322.   IDH_HELP = 28445;
  22323.  
  22324. {$EXTERNALSYM WinHelpA}
  22325. function WinHelpA(hWndMain: HWND; lpszHelp: PAnsiChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  22326. {$EXTERNALSYM WinHelpW}
  22327. function WinHelpW(hWndMain: HWND; lpszHelp: PWideChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  22328. {$EXTERNALSYM WinHelp}
  22329. function WinHelp(hWndMain: HWND; lpszHelp: PChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  22330.  
  22331. const
  22332.   { Parameter for SystemParametersInfo() }
  22333.   {$EXTERNALSYM SPI_GETBEEP}
  22334.   SPI_GETBEEP = 1;
  22335.   {$EXTERNALSYM SPI_SETBEEP}
  22336.   SPI_SETBEEP = 2;
  22337.   {$EXTERNALSYM SPI_GETMOUSE}
  22338.   SPI_GETMOUSE = 3;
  22339.   {$EXTERNALSYM SPI_SETMOUSE}
  22340.   SPI_SETMOUSE = 4;
  22341.   {$EXTERNALSYM SPI_GETBORDER}
  22342.   SPI_GETBORDER = 5;
  22343.   {$EXTERNALSYM SPI_SETBORDER}
  22344.   SPI_SETBORDER = 6;
  22345.   {$EXTERNALSYM SPI_GETKEYBOARDSPEED}
  22346.   SPI_GETKEYBOARDSPEED = 10;
  22347.   {$EXTERNALSYM SPI_SETKEYBOARDSPEED}
  22348.   SPI_SETKEYBOARDSPEED = 11;
  22349.   {$EXTERNALSYM SPI_LANGDRIVER}
  22350.   SPI_LANGDRIVER = 12;
  22351.   {$EXTERNALSYM SPI_ICONHORIZONTALSPACING}
  22352.   SPI_ICONHORIZONTALSPACING = 13;
  22353.   {$EXTERNALSYM SPI_GETSCREENSAVETIMEOUT}
  22354.   SPI_GETSCREENSAVETIMEOUT = 14;
  22355.   {$EXTERNALSYM SPI_SETSCREENSAVETIMEOUT}
  22356.   SPI_SETSCREENSAVETIMEOUT = 15;
  22357.   {$EXTERNALSYM SPI_GETSCREENSAVEACTIVE}
  22358.   SPI_GETSCREENSAVEACTIVE = $10;
  22359.   {$EXTERNALSYM SPI_SETSCREENSAVEACTIVE}
  22360.   SPI_SETSCREENSAVEACTIVE = 17;
  22361.   {$EXTERNALSYM SPI_GETGRIDGRANULARITY}
  22362.   SPI_GETGRIDGRANULARITY = 18;
  22363.   {$EXTERNALSYM SPI_SETGRIDGRANULARITY}
  22364.   SPI_SETGRIDGRANULARITY = 19;
  22365.   {$EXTERNALSYM SPI_SETDESKWALLPAPER}
  22366.   SPI_SETDESKWALLPAPER = 20;
  22367.   {$EXTERNALSYM SPI_SETDESKPATTERN}
  22368.   SPI_SETDESKPATTERN = 21;
  22369.   {$EXTERNALSYM SPI_GETKEYBOARDDELAY}
  22370.   SPI_GETKEYBOARDDELAY = 22;
  22371.   {$EXTERNALSYM SPI_SETKEYBOARDDELAY}
  22372.   SPI_SETKEYBOARDDELAY = 23;
  22373.   {$EXTERNALSYM SPI_ICONVERTICALSPACING}
  22374.   SPI_ICONVERTICALSPACING = 24;
  22375.   {$EXTERNALSYM SPI_GETICONTITLEWRAP}
  22376.   SPI_GETICONTITLEWRAP = 25;
  22377.   {$EXTERNALSYM SPI_SETICONTITLEWRAP}
  22378.   SPI_SETICONTITLEWRAP = 26;
  22379.   {$EXTERNALSYM SPI_GETMENUDROPALIGNMENT}
  22380.   SPI_GETMENUDROPALIGNMENT = 27;
  22381.   {$EXTERNALSYM SPI_SETMENUDROPALIGNMENT}
  22382.   SPI_SETMENUDROPALIGNMENT = 28;
  22383.   {$EXTERNALSYM SPI_SETDOUBLECLKWIDTH}
  22384.   SPI_SETDOUBLECLKWIDTH = 29;
  22385.   {$EXTERNALSYM SPI_SETDOUBLECLKHEIGHT}
  22386.   SPI_SETDOUBLECLKHEIGHT = 30;
  22387.   {$EXTERNALSYM SPI_GETICONTITLELOGFONT}
  22388.   SPI_GETICONTITLELOGFONT = 31;
  22389.   {$EXTERNALSYM SPI_SETDOUBLECLICKTIME}
  22390.   SPI_SETDOUBLECLICKTIME = $20;
  22391.   {$EXTERNALSYM SPI_SETMOUSEBUTTONSWAP}
  22392.   SPI_SETMOUSEBUTTONSWAP = 33;
  22393.   {$EXTERNALSYM SPI_SETICONTITLELOGFONT}
  22394.   SPI_SETICONTITLELOGFONT = 34;
  22395.   {$EXTERNALSYM SPI_GETFASTTASKSWITCH}
  22396.   SPI_GETFASTTASKSWITCH = 35;
  22397.   {$EXTERNALSYM SPI_SETFASTTASKSWITCH}
  22398.   SPI_SETFASTTASKSWITCH = 36;
  22399.   {$EXTERNALSYM SPI_SETDRAGFULLWINDOWS}
  22400.   SPI_SETDRAGFULLWINDOWS = 37;
  22401.   {$EXTERNALSYM SPI_GETDRAGFULLWINDOWS}
  22402.   SPI_GETDRAGFULLWINDOWS = 38;
  22403.   {$EXTERNALSYM SPI_GETNONCLIENTMETRICS}
  22404.   SPI_GETNONCLIENTMETRICS = 41;
  22405.   {$EXTERNALSYM SPI_SETNONCLIENTMETRICS}
  22406.   SPI_SETNONCLIENTMETRICS = 42;
  22407.   {$EXTERNALSYM SPI_GETMINIMIZEDMETRICS}
  22408.   SPI_GETMINIMIZEDMETRICS = 43;
  22409.   {$EXTERNALSYM SPI_SETMINIMIZEDMETRICS}
  22410.   SPI_SETMINIMIZEDMETRICS = 44;
  22411.   {$EXTERNALSYM SPI_GETICONMETRICS}
  22412.   SPI_GETICONMETRICS = 45;
  22413.   {$EXTERNALSYM SPI_SETICONMETRICS}
  22414.   SPI_SETICONMETRICS = 46;
  22415.   {$EXTERNALSYM SPI_SETWORKAREA}
  22416.   SPI_SETWORKAREA = 47;
  22417.   {$EXTERNALSYM SPI_GETWORKAREA}
  22418.   SPI_GETWORKAREA = 48;
  22419.   {$EXTERNALSYM SPI_SETPENWINDOWS}
  22420.   SPI_SETPENWINDOWS = 49;
  22421.  
  22422.   {$EXTERNALSYM SPI_GETHIGHCONTRAST}
  22423.   SPI_GETHIGHCONTRAST = 66;
  22424.   {$EXTERNALSYM SPI_SETHIGHCONTRAST}
  22425.   SPI_SETHIGHCONTRAST = 67;
  22426.   {$EXTERNALSYM SPI_GETKEYBOARDPREF}
  22427.   SPI_GETKEYBOARDPREF = 68;
  22428.   {$EXTERNALSYM SPI_SETKEYBOARDPREF}
  22429.   SPI_SETKEYBOARDPREF = 69;
  22430.   {$EXTERNALSYM SPI_GETSCREENREADER}
  22431.   SPI_GETSCREENREADER = 70;
  22432.   {$EXTERNALSYM SPI_SETSCREENREADER}
  22433.   SPI_SETSCREENREADER = 71;
  22434.   {$EXTERNALSYM SPI_GETANIMATION}
  22435.   SPI_GETANIMATION = 72;
  22436.   {$EXTERNALSYM SPI_SETANIMATION}
  22437.   SPI_SETANIMATION = 73;
  22438.   {$EXTERNALSYM SPI_GETFONTSMOOTHING}
  22439.   SPI_GETFONTSMOOTHING = 74;
  22440.   {$EXTERNALSYM SPI_SETFONTSMOOTHING}
  22441.   SPI_SETFONTSMOOTHING = 75;
  22442.   {$EXTERNALSYM SPI_SETDRAGWIDTH}
  22443.   SPI_SETDRAGWIDTH = 76;
  22444.   {$EXTERNALSYM SPI_SETDRAGHEIGHT}
  22445.   SPI_SETDRAGHEIGHT = 77;
  22446.   {$EXTERNALSYM SPI_SETHANDHELD}
  22447.   SPI_SETHANDHELD = 78;
  22448.   {$EXTERNALSYM SPI_GETLOWPOWERTIMEOUT}
  22449.   SPI_GETLOWPOWERTIMEOUT = 79;
  22450.   {$EXTERNALSYM SPI_GETPOWEROFFTIMEOUT}
  22451.   SPI_GETPOWEROFFTIMEOUT = 80;
  22452.   {$EXTERNALSYM SPI_SETLOWPOWERTIMEOUT}
  22453.   SPI_SETLOWPOWERTIMEOUT = 81;
  22454.   {$EXTERNALSYM SPI_SETPOWEROFFTIMEOUT}
  22455.   SPI_SETPOWEROFFTIMEOUT = 82;
  22456.   {$EXTERNALSYM SPI_GETLOWPOWERACTIVE}
  22457.   SPI_GETLOWPOWERACTIVE = 83;
  22458.   {$EXTERNALSYM SPI_GETPOWEROFFACTIVE}
  22459.   SPI_GETPOWEROFFACTIVE = 84;
  22460.   {$EXTERNALSYM SPI_SETLOWPOWERACTIVE}
  22461.   SPI_SETLOWPOWERACTIVE = 85;
  22462.   {$EXTERNALSYM SPI_SETPOWEROFFACTIVE}
  22463.   SPI_SETPOWEROFFACTIVE = 86;
  22464.   {$EXTERNALSYM SPI_SETCURSORS}
  22465.   SPI_SETCURSORS = 87;
  22466.   {$EXTERNALSYM SPI_SETICONS}
  22467.   SPI_SETICONS = 88;
  22468.   {$EXTERNALSYM SPI_GETDEFAULTINPUTLANG}
  22469.   SPI_GETDEFAULTINPUTLANG = 89;
  22470.   {$EXTERNALSYM SPI_SETDEFAULTINPUTLANG}
  22471.   SPI_SETDEFAULTINPUTLANG = 90;
  22472.   {$EXTERNALSYM SPI_SETLANGTOGGLE}
  22473.   SPI_SETLANGTOGGLE = 91;
  22474.   {$EXTERNALSYM SPI_GETWINDOWSEXTENSION}
  22475.   SPI_GETWINDOWSEXTENSION = 92;
  22476.   {$EXTERNALSYM SPI_SETMOUSETRAILS}
  22477.   SPI_SETMOUSETRAILS = 93;
  22478.   {$EXTERNALSYM SPI_GETMOUSETRAILS}
  22479.   SPI_GETMOUSETRAILS = 94;
  22480.   {$EXTERNALSYM SPI_SCREENSAVERRUNNING}
  22481.   SPI_SCREENSAVERRUNNING = 97;
  22482.   {$EXTERNALSYM SPI_GETFILTERKEYS}
  22483.   SPI_GETFILTERKEYS = 50;
  22484.   {$EXTERNALSYM SPI_SETFILTERKEYS}
  22485.   SPI_SETFILTERKEYS = 51;
  22486.   {$EXTERNALSYM SPI_GETTOGGLEKEYS}
  22487.   SPI_GETTOGGLEKEYS = 52;
  22488.   {$EXTERNALSYM SPI_SETTOGGLEKEYS}
  22489.   SPI_SETTOGGLEKEYS = 53;
  22490.   {$EXTERNALSYM SPI_GETMOUSEKEYS}
  22491.   SPI_GETMOUSEKEYS = 54;
  22492.   {$EXTERNALSYM SPI_SETMOUSEKEYS}
  22493.   SPI_SETMOUSEKEYS = 55;
  22494.   {$EXTERNALSYM SPI_GETSHOWSOUNDS}
  22495.   SPI_GETSHOWSOUNDS = 56;
  22496.   {$EXTERNALSYM SPI_SETSHOWSOUNDS}
  22497.   SPI_SETSHOWSOUNDS = 57;
  22498.   {$EXTERNALSYM SPI_GETSTICKYKEYS}
  22499.   SPI_GETSTICKYKEYS = 58;
  22500.   {$EXTERNALSYM SPI_SETSTICKYKEYS}
  22501.   SPI_SETSTICKYKEYS = 59;
  22502.   {$EXTERNALSYM SPI_GETACCESSTIMEOUT}
  22503.   SPI_GETACCESSTIMEOUT = 60;
  22504.   {$EXTERNALSYM SPI_SETACCESSTIMEOUT}
  22505.   SPI_SETACCESSTIMEOUT = 61;
  22506.   {$EXTERNALSYM SPI_GETSERIALKEYS}
  22507.   SPI_GETSERIALKEYS = 62;
  22508.   {$EXTERNALSYM SPI_SETSERIALKEYS}
  22509.   SPI_SETSERIALKEYS = 63;
  22510.   {$EXTERNALSYM SPI_GETSOUNDSENTRY}
  22511.   SPI_GETSOUNDSENTRY = $40;
  22512.   {$EXTERNALSYM SPI_SETSOUNDSENTRY}
  22513.   SPI_SETSOUNDSENTRY = 65;
  22514.  
  22515.   {$EXTERNALSYM SPI_GETSNAPTODEFBUTTON}
  22516.   SPI_GETSNAPTODEFBUTTON = 95;
  22517.   {$EXTERNALSYM SPI_SETSNAPTODEFBUTTON}
  22518.   SPI_SETSNAPTODEFBUTTON = 96;
  22519.   {$EXTERNALSYM SPI_GETMOUSEHOVERWIDTH}
  22520.   SPI_GETMOUSEHOVERWIDTH = 98;
  22521.   {$EXTERNALSYM SPI_SETMOUSEHOVERWIDTH}
  22522.   SPI_SETMOUSEHOVERWIDTH = 99;
  22523.   {$EXTERNALSYM SPI_GETMOUSEHOVERHEIGHT}
  22524.   SPI_GETMOUSEHOVERHEIGHT = 100;
  22525.   {$EXTERNALSYM SPI_SETMOUSEHOVERHEIGHT}
  22526.   SPI_SETMOUSEHOVERHEIGHT = 101;
  22527.   {$EXTERNALSYM SPI_GETMOUSEHOVERTIME}
  22528.   SPI_GETMOUSEHOVERTIME = 102;
  22529.   {$EXTERNALSYM SPI_SETMOUSEHOVERTIME}
  22530.   SPI_SETMOUSEHOVERTIME = 103;
  22531.   {$EXTERNALSYM SPI_GETWHEELSCROLLLINES}
  22532.   SPI_GETWHEELSCROLLLINES = 104;
  22533.   {$EXTERNALSYM SPI_SETWHEELSCROLLLINES}
  22534.   SPI_SETWHEELSCROLLLINES = 105;
  22535.  
  22536.   { Flags }
  22537.   {$EXTERNALSYM SPIF_UPDATEINIFILE}
  22538.   SPIF_UPDATEINIFILE = 1;
  22539.   {$EXTERNALSYM SPIF_SENDWININICHANGE}
  22540.   SPIF_SENDWININICHANGE = 2;
  22541.   {$EXTERNALSYM SPIF_SENDCHANGE}
  22542.   SPIF_SENDCHANGE = SPIF_SENDWININICHANGE;
  22543.  
  22544.   {$EXTERNALSYM METRICS_USEDEFAULT}
  22545.   METRICS_USEDEFAULT = -1;
  22546.  
  22547. type
  22548.   PNonClientMetricsA = ^TNonClientMetricsA;
  22549.   PNonClientMetricsW = ^TNonClientMetricsW;
  22550.   PNonClientMetrics = PNonClientMetricsA;
  22551.   {$EXTERNALSYM tagNONCLIENTMETRICSA}
  22552.   tagNONCLIENTMETRICSA = packed record
  22553.     cbSize: UINT;
  22554.     iBorderWidth: Integer;
  22555.     iScrollWidth: Integer;
  22556.     iScrollHeight: Integer;
  22557.     iCaptionWidth: Integer;
  22558.     iCaptionHeight: Integer;
  22559.     lfCaptionFont: TLogFontA;
  22560.     iSmCaptionWidth: Integer;
  22561.     iSmCaptionHeight: Integer;
  22562.     lfSmCaptionFont: TLogFontA;
  22563.     iMenuWidth: Integer;
  22564.     iMenuHeight: Integer;
  22565.     lfMenuFont: TLogFontA;
  22566.     lfStatusFont: TLogFontA;
  22567.     lfMessageFont: TLogFontA;
  22568.   end;
  22569.   {$EXTERNALSYM tagNONCLIENTMETRICSW}
  22570.   tagNONCLIENTMETRICSW = packed record
  22571.     cbSize: UINT;
  22572.     iBorderWidth: Integer;
  22573.     iScrollWidth: Integer;
  22574.     iScrollHeight: Integer;
  22575.     iCaptionWidth: Integer;
  22576.     iCaptionHeight: Integer;
  22577.     lfCaptionFont: TLogFontW;
  22578.     iSmCaptionWidth: Integer;
  22579.     iSmCaptionHeight: Integer;
  22580.     lfSmCaptionFont: TLogFontW;
  22581.     iMenuWidth: Integer;
  22582.     iMenuHeight: Integer;
  22583.     lfMenuFont: TLogFontW;
  22584.     lfStatusFont: TLogFontW;
  22585.     lfMessageFont: TLogFontW;
  22586.   end;
  22587.   {$EXTERNALSYM tagNONCLIENTMETRICS}
  22588.   tagNONCLIENTMETRICS = tagNONCLIENTMETRICSA;
  22589.   TNonClientMetricsA = tagNONCLIENTMETRICSA;
  22590.   TNonClientMetricsW = tagNONCLIENTMETRICSW;
  22591.   TNonClientMetrics = TNonClientMetricsA;
  22592.   {$EXTERNALSYM NONCLIENTMETRICSA}
  22593.   NONCLIENTMETRICSA = tagNONCLIENTMETRICSA;
  22594.   {$EXTERNALSYM NONCLIENTMETRICSW}
  22595.   NONCLIENTMETRICSW = tagNONCLIENTMETRICSW;
  22596.   {$EXTERNALSYM NONCLIENTMETRICS}
  22597.   NONCLIENTMETRICS = NONCLIENTMETRICSA;
  22598.  
  22599. const
  22600.   {$EXTERNALSYM ARW_BOTTOMLEFT}
  22601.   ARW_BOTTOMLEFT = 0;
  22602.   {$EXTERNALSYM ARW_BOTTOMRIGHT}
  22603.   ARW_BOTTOMRIGHT = 1;
  22604.   {$EXTERNALSYM ARW_TOPLEFT}
  22605.   ARW_TOPLEFT = 2;
  22606.   {$EXTERNALSYM ARW_TOPRIGHT}
  22607.   ARW_TOPRIGHT = 3;
  22608.   {$EXTERNALSYM ARW_STARTMASK}
  22609.   ARW_STARTMASK = 3;
  22610.   {$EXTERNALSYM ARW_STARTRIGHT}
  22611.   ARW_STARTRIGHT = 1;
  22612.   {$EXTERNALSYM ARW_STARTTOP}
  22613.   ARW_STARTTOP = 2;
  22614.  
  22615.   {$EXTERNALSYM ARW_LEFT}
  22616.   ARW_LEFT = 0;
  22617.   {$EXTERNALSYM ARW_RIGHT}
  22618.   ARW_RIGHT = 0;
  22619.   {$EXTERNALSYM ARW_UP}
  22620.   ARW_UP = 4;
  22621.   {$EXTERNALSYM ARW_DOWN}
  22622.   ARW_DOWN = 4;
  22623.   {$EXTERNALSYM ARW_HIDE}
  22624.   ARW_HIDE = 8;
  22625.   {$EXTERNALSYM ARW_VALID}
  22626.   ARW_VALID = 15;
  22627.  
  22628. type
  22629.   PMinimizedMetrics = ^TMinimizedMetrics;
  22630.   {$EXTERNALSYM tagMINIMIZEDMETRICS}
  22631.   tagMINIMIZEDMETRICS = packed record
  22632.     cbSize: UINT;
  22633.     iWidth: Integer;
  22634.     iHorzGap: Integer;
  22635.     iVertGap: Integer;
  22636.     iArrange: Integer;
  22637.   end;
  22638.   TMinimizedMetrics = tagMINIMIZEDMETRICS;
  22639.   {$EXTERNALSYM MINIMIZEDMETRICS}
  22640.   MINIMIZEDMETRICS = tagMINIMIZEDMETRICS;
  22641.  
  22642.   PIconMetricsA = ^TIconMetricsA;
  22643.   PIconMetricsW = ^TIconMetricsW;
  22644.   PIconMetrics = PIconMetricsA;
  22645.   {$EXTERNALSYM tagICONMETRICSA}
  22646.   tagICONMETRICSA = packed record
  22647.     cbSize: UINT;
  22648.     iHorzSpacing: Integer;
  22649.     iVertSpacing: Integer;
  22650.     iTitleWrap: Integer;
  22651.     lfFont: TLogFontA;
  22652.   end;
  22653.   {$EXTERNALSYM tagICONMETRICSW}
  22654.   tagICONMETRICSW = packed record
  22655.     cbSize: UINT;
  22656.     iHorzSpacing: Integer;
  22657.     iVertSpacing: Integer;
  22658.     iTitleWrap: Integer;
  22659.     lfFont: TLogFontW;
  22660.   end;
  22661.   {$EXTERNALSYM tagICONMETRICS}
  22662.   tagICONMETRICS = tagICONMETRICSA;
  22663.   TIconMetricsA = tagICONMETRICSA;
  22664.   TIconMetricsW = tagICONMETRICSW;
  22665.   TIconMetrics = TIconMetricsA;
  22666.   {$EXTERNALSYM ICONMETRICSA}
  22667.   ICONMETRICSA = tagICONMETRICSA;
  22668.   {$EXTERNALSYM ICONMETRICSW}
  22669.   ICONMETRICSW = tagICONMETRICSW;
  22670.   {$EXTERNALSYM ICONMETRICS}
  22671.   ICONMETRICS = ICONMETRICSA;
  22672.  
  22673.   PAnimationInfo = ^TAnimationInfo;
  22674.   {$EXTERNALSYM tagANIMATIONINFO}
  22675.   tagANIMATIONINFO = packed record
  22676.     cbSize: UINT;
  22677.     iMinAnimate: Integer;
  22678.   end;
  22679.   TAnimationInfo = tagANIMATIONINFO;
  22680.   {$EXTERNALSYM ANIMATIONINFO}
  22681.   ANIMATIONINFO = tagANIMATIONINFO;
  22682.  
  22683.  
  22684. type
  22685.   PSerialKeysA = ^TSerialKeysA;
  22686.   PSerialKeysW = ^TSerialKeysW;
  22687.   PSerialKeys = PSerialKeysA;
  22688.   {$EXTERNALSYM tagSERIALKEYSA}
  22689.   tagSERIALKEYSA = packed record
  22690.     cbSize: UINT;
  22691.     dwFlags: DWORD;
  22692.     lpszActivePort: PAnsiChar;
  22693.     lpszPort: PAnsiChar;
  22694.     iBaudRate: UINT;
  22695.     iPortState: UINT;
  22696.     iActive: UINT;
  22697.   end;
  22698.   {$EXTERNALSYM tagSERIALKEYSW}
  22699.   tagSERIALKEYSW = packed record
  22700.     cbSize: UINT;
  22701.     dwFlags: DWORD;
  22702.     lpszActivePort: PWideChar;
  22703.     lpszPort: PWideChar;
  22704.     iBaudRate: UINT;
  22705.     iPortState: UINT;
  22706.     iActive: UINT;
  22707.   end;
  22708.   {$EXTERNALSYM tagSERIALKEYS}
  22709.   tagSERIALKEYS = tagSERIALKEYSA;
  22710.   TSerialKeysA = tagSERIALKEYSA;
  22711.   TSerialKeysW = tagSERIALKEYSW;
  22712.   TSerialKeys = TSerialKeysA;
  22713.   {$EXTERNALSYM SERIALKEYSA}
  22714.   SERIALKEYSA = tagSERIALKEYSA;
  22715.   {$EXTERNALSYM SERIALKEYSW}
  22716.   SERIALKEYSW = tagSERIALKEYSW;
  22717.   {$EXTERNALSYM SERIALKEYS}
  22718.   SERIALKEYS = SERIALKEYSA;
  22719.  
  22720. const
  22721.   { flags for SERIALKEYS dwFlags field }
  22722.   {$EXTERNALSYM SERKF_SERIALKEYSON}
  22723.   SERKF_SERIALKEYSON = 1;
  22724.   {$EXTERNALSYM SERKF_AVAILABLE}
  22725.   SERKF_AVAILABLE = 2;
  22726.   {$EXTERNALSYM SERKF_INDICATOR}
  22727.   SERKF_INDICATOR = 4;
  22728.  
  22729. type
  22730.   PHighContrastA = ^THighContrastA;
  22731.   PHighContrastW = ^THighContrastW;
  22732.   PHighContrast = PHighContrastA;
  22733.   {$EXTERNALSYM tagHIGHCONTRASTA}
  22734.   tagHIGHCONTRASTA = packed record
  22735.     cbSize: UINT;
  22736.     dwFlags: DWORD;
  22737.     lpszDefaultScheme: PAnsiChar;
  22738.   end;
  22739.   {$EXTERNALSYM tagHIGHCONTRASTW}
  22740.   tagHIGHCONTRASTW = packed record
  22741.     cbSize: UINT;
  22742.     dwFlags: DWORD;
  22743.     lpszDefaultScheme: PWideChar;
  22744.   end;
  22745.   {$EXTERNALSYM tagHIGHCONTRAST}
  22746.   tagHIGHCONTRAST = tagHIGHCONTRASTA;
  22747.   THighContrastA = tagHIGHCONTRASTA;
  22748.   THighContrastW = tagHIGHCONTRASTW;
  22749.   THighContrast = THighContrastA;
  22750.   {$EXTERNALSYM HIGHCONTRASTA}
  22751.   HIGHCONTRASTA = tagHIGHCONTRASTA;
  22752.   {$EXTERNALSYM HIGHCONTRASTW}
  22753.   HIGHCONTRASTW = tagHIGHCONTRASTW;
  22754.   {$EXTERNALSYM HIGHCONTRAST}
  22755.   HIGHCONTRAST = HIGHCONTRASTA;
  22756.  
  22757.  
  22758. const
  22759.   { flags for HIGHCONTRAST dwFlags field }
  22760.   {$EXTERNALSYM HCF_HIGHCONTRASTON}
  22761.   HCF_HIGHCONTRASTON      = $00000001;
  22762.   {$EXTERNALSYM HCF_AVAILABLE}
  22763.   HCF_AVAILABLE           = $00000002;
  22764.   {$EXTERNALSYM HCF_HOTKEYACTIVE}
  22765.   HCF_HOTKEYACTIVE        = $00000004;
  22766.   {$EXTERNALSYM HCF_CONFIRMHOTKEY}
  22767.   HCF_CONFIRMHOTKEY       = $00000008;
  22768.   {$EXTERNALSYM HCF_HOTKEYSOUND}
  22769.   HCF_HOTKEYSOUND         = $00000010;
  22770.   {$EXTERNALSYM HCF_INDICATOR}
  22771.   HCF_INDICATOR           = $00000020;
  22772.   {$EXTERNALSYM HCF_HOTKEYAVAILABLE}
  22773.   HCF_HOTKEYAVAILABLE     = $00000040;
  22774.  
  22775.   { Flags for ChangeDisplaySettings }
  22776.   {$EXTERNALSYM CDS_UPDATEREGISTRY}
  22777.   CDS_UPDATEREGISTRY      = $00000001;
  22778.   {$EXTERNALSYM CDS_TEST}
  22779.   CDS_TEST                = $00000002;
  22780.   {$EXTERNALSYM CDS_FULLSCREEN}
  22781.   CDS_FULLSCREEN          = $00000004;
  22782.   {$EXTERNALSYM CDS_GLOBAL}
  22783.   CDS_GLOBAL              = $00000008;
  22784.   {$EXTERNALSYM CDS_SET_PRIMARY}
  22785.   CDS_SET_PRIMARY         = $00000010;
  22786.   {$EXTERNALSYM CDS_RESET}
  22787.   CDS_RESET               = $40000000;
  22788.   {$EXTERNALSYM CDS_SETRECT}
  22789.   CDS_SETRECT             = $20000000;
  22790.   {$EXTERNALSYM CDS_NORESET}
  22791.   CDS_NORESET             = $10000000;
  22792.  
  22793.   { Return values for ChangeDisplaySettings }
  22794.   {$EXTERNALSYM DISP_CHANGE_SUCCESSFUL}
  22795.   DISP_CHANGE_SUCCESSFUL           = 0;
  22796.   {$EXTERNALSYM DISP_CHANGE_RESTART}
  22797.   DISP_CHANGE_RESTART              = 1;
  22798.   {$EXTERNALSYM DISP_CHANGE_FAILED}
  22799.   DISP_CHANGE_FAILED              = -1;
  22800.   {$EXTERNALSYM DISP_CHANGE_BADMODE}
  22801.   DISP_CHANGE_BADMODE             = -2;
  22802.   {$EXTERNALSYM DISP_CHANGE_NOTUPDATED}
  22803.   DISP_CHANGE_NOTUPDATED          = -3;
  22804.   {$EXTERNALSYM DISP_CHANGE_BADFLAGS}
  22805.   DISP_CHANGE_BADFLAGS            = -4;
  22806.   {$EXTERNALSYM DISP_CHANGE_BADPARAM}
  22807.   DISP_CHANGE_BADPARAM            = -5;
  22808.  
  22809.  
  22810. {$EXTERNALSYM ChangeDisplaySettingsA}
  22811. function ChangeDisplaySettingsA(var lpDevMode: TDeviceModeA; dwFlags: DWORD): Longint; stdcall;
  22812. {$EXTERNALSYM ChangeDisplaySettingsW}
  22813. function ChangeDisplaySettingsW(var lpDevMode: TDeviceModeW; dwFlags: DWORD): Longint; stdcall;
  22814. {$EXTERNALSYM ChangeDisplaySettings}
  22815. function ChangeDisplaySettings(var lpDevMode: TDeviceMode; dwFlags: DWORD): Longint; stdcall;
  22816. {$EXTERNALSYM ChangeDisplaySettingsExA}
  22817. function ChangeDisplaySettingsExA(lpszDeviceName: PAnsiChar; var lpDevMode: TDeviceModeA;
  22818.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  22819. {$EXTERNALSYM ChangeDisplaySettingsExW}
  22820. function ChangeDisplaySettingsExW(lpszDeviceName: PWideChar; var lpDevMode: TDeviceModeW;
  22821.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  22822. {$EXTERNALSYM ChangeDisplaySettingsEx}
  22823. function ChangeDisplaySettingsEx(lpszDeviceName: PChar; var lpDevMode: TDeviceMode;
  22824.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  22825. {$EXTERNALSYM EnumDisplaySettingsA}
  22826. function EnumDisplaySettingsA(lpszDeviceName: PAnsiChar; iModeNum: DWORD;
  22827.   var lpDevMode: TDeviceModeA): BOOL; stdcall;
  22828. {$EXTERNALSYM EnumDisplaySettingsW}
  22829. function EnumDisplaySettingsW(lpszDeviceName: PWideChar; iModeNum: DWORD;
  22830.   var lpDevMode: TDeviceModeW): BOOL; stdcall;
  22831. {$EXTERNALSYM EnumDisplaySettings}
  22832. function EnumDisplaySettings(lpszDeviceName: PChar; iModeNum: DWORD;
  22833.   var lpDevMode: TDeviceMode): BOOL; stdcall;
  22834. {$EXTERNALSYM SystemParametersInfoA}
  22835. function SystemParametersInfoA(uiAction, uiParam: UINT;
  22836.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  22837. {$EXTERNALSYM SystemParametersInfoW}
  22838. function SystemParametersInfoW(uiAction, uiParam: UINT;
  22839.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  22840. {$EXTERNALSYM SystemParametersInfo}
  22841. function SystemParametersInfo(uiAction, uiParam: UINT;
  22842.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  22843.  
  22844. type
  22845.   { Accessibility support }
  22846.   PFilterKeys = ^TFilterKeys;
  22847.   {$EXTERNALSYM tagFILTERKEYS}
  22848.   tagFILTERKEYS = packed record
  22849.     cbSize: UINT;
  22850.     dwFlags: DWORD;
  22851.     iWaitMSec: DWORD;       { Acceptance Delay}
  22852.     iDelayMSec: DWORD;      { Delay Until Repeat}
  22853.     iRepeatMSec: DWORD;     { Repeat Rate}
  22854.     iBounceMSec: DWORD;     { Debounce Time}
  22855.   end;
  22856.   TFilterKeys = tagFILTERKEYS;
  22857.   {$EXTERNALSYM FILTERKEYS}
  22858.   FILTERKEYS = tagFILTERKEYS;
  22859.  
  22860.  
  22861. const
  22862.   { TFilterKeys dwFlags field }
  22863.   {$EXTERNALSYM FKF_FILTERKEYSON}
  22864.   FKF_FILTERKEYSON = 1;
  22865.   {$EXTERNALSYM FKF_AVAILABLE}
  22866.   FKF_AVAILABLE = 2;
  22867.   {$EXTERNALSYM FKF_HOTKEYACTIVE}
  22868.   FKF_HOTKEYACTIVE = 4;
  22869.   {$EXTERNALSYM FKF_CONFIRMHOTKEY}
  22870.   FKF_CONFIRMHOTKEY = 8;
  22871.   {$EXTERNALSYM FKF_HOTKEYSOUND}
  22872.   FKF_HOTKEYSOUND = $10;
  22873.   {$EXTERNALSYM FKF_INDICATOR}
  22874.   FKF_INDICATOR = $20;
  22875.   {$EXTERNALSYM FKF_CLICKON}
  22876.   FKF_CLICKON = $40;
  22877.  
  22878. type
  22879.   PStickyKeys = ^TStickyKeys;
  22880.   {$EXTERNALSYM tagSTICKYKEYS}
  22881.   tagSTICKYKEYS = packed record
  22882.     cbSize: UINT;
  22883.     dwFlags: DWORD;
  22884.   end;
  22885.   TStickyKeys = tagSTICKYKEYS;
  22886.   {$EXTERNALSYM STICKYKEYS}
  22887.   STICKYKEYS = tagSTICKYKEYS;
  22888.  
  22889. const
  22890.   { TStickyKeys dwFlags field }
  22891.   {$EXTERNALSYM SKF_STICKYKEYSON}
  22892.   SKF_STICKYKEYSON = 1;
  22893.   {$EXTERNALSYM SKF_AVAILABLE}
  22894.   SKF_AVAILABLE = 2;
  22895.   {$EXTERNALSYM SKF_HOTKEYACTIVE}
  22896.   SKF_HOTKEYACTIVE = 4;
  22897.   {$EXTERNALSYM SKF_CONFIRMHOTKEY}
  22898.   SKF_CONFIRMHOTKEY = 8;
  22899.   {$EXTERNALSYM SKF_HOTKEYSOUND}
  22900.   SKF_HOTKEYSOUND = $10;
  22901.   {$EXTERNALSYM SKF_INDICATOR}
  22902.   SKF_INDICATOR = $20;
  22903.   {$EXTERNALSYM SKF_AUDIBLEFEEDBACK}
  22904.   SKF_AUDIBLEFEEDBACK = $40;
  22905.   {$EXTERNALSYM SKF_TRISTATE}
  22906.   SKF_TRISTATE = $80;
  22907.   {$EXTERNALSYM SKF_TWOKEYSOFF}
  22908.   SKF_TWOKEYSOFF = $100;
  22909.  
  22910. type
  22911.   PMouseKeys = ^TMouseKeys;
  22912.   {$EXTERNALSYM tagMOUSEKEYS}
  22913.   tagMOUSEKEYS = packed record
  22914.     cbSize: UINT;
  22915.     dwFlags: DWORD;
  22916.     iMaxSpeed: DWORD;
  22917.     iTimeToMaxSpeed: DWORD;
  22918.     iCtrlSpeed: DWORD;
  22919.     dwReserved1: DWORD;
  22920.     dwReserved2: DWORD;
  22921.   end;
  22922.   TMouseKeys = tagMOUSEKEYS;
  22923.   {$EXTERNALSYM MOUSEKEYS}
  22924.   MOUSEKEYS = tagMOUSEKEYS;
  22925.  
  22926. const
  22927.   { TMouseKeys dwFlags field }
  22928.   {$EXTERNALSYM MKF_MOUSEKEYSON}
  22929.   MKF_MOUSEKEYSON = 1;
  22930.   {$EXTERNALSYM MKF_AVAILABLE}
  22931.   MKF_AVAILABLE = 2;
  22932.   {$EXTERNALSYM MKF_HOTKEYACTIVE}
  22933.   MKF_HOTKEYACTIVE = 4;
  22934.   {$EXTERNALSYM MKF_CONFIRMHOTKEY}
  22935.   MKF_CONFIRMHOTKEY = 8;
  22936.   {$EXTERNALSYM MKF_HOTKEYSOUND}
  22937.   MKF_HOTKEYSOUND = $10;
  22938.   {$EXTERNALSYM MKF_INDICATOR}
  22939.   MKF_INDICATOR = $20;
  22940.   {$EXTERNALSYM MKF_MODIFIERS}
  22941.   MKF_MODIFIERS = $40;
  22942.   {$EXTERNALSYM MKF_REPLACENUMBERS}
  22943.   MKF_REPLACENUMBERS = $80;
  22944.  
  22945. type
  22946.   PAccessTimeout = ^TAccessTimeout;
  22947.   {$EXTERNALSYM tagACCESSTIMEOUT}
  22948.   tagACCESSTIMEOUT = packed record
  22949.     cbSize: UINT;
  22950.     dwFlags: DWORD;
  22951.     iTimeOutMSec: DWORD;
  22952.   end;
  22953.   TAccessTimeout = tagACCESSTIMEOUT;
  22954.   {$EXTERNALSYM ACCESSTIMEOUT}
  22955.   ACCESSTIMEOUT = tagACCESSTIMEOUT;
  22956.  
  22957. const
  22958.   { TAccessTimeout dwFlags field }
  22959.   {$EXTERNALSYM ATF_TIMEOUTON}
  22960.   ATF_TIMEOUTON = 1;
  22961.   {$EXTERNALSYM ATF_ONOFFFEEDBACK}
  22962.   ATF_ONOFFFEEDBACK = 2;
  22963.  
  22964.   { values for TSoundsEntry iFSGrafEffect field }
  22965.   {$EXTERNALSYM SSGF_NONE}
  22966.   SSGF_NONE = 0;
  22967.   {$EXTERNALSYM SSGF_DISPLAY}
  22968.   SSGF_DISPLAY = 3;
  22969.  
  22970.   { values for TSoundsEntry iFSTextEffect field }
  22971.   {$EXTERNALSYM SSTF_NONE}
  22972.   SSTF_NONE = 0;
  22973.   {$EXTERNALSYM SSTF_CHARS}
  22974.   SSTF_CHARS = 1;
  22975.   {$EXTERNALSYM SSTF_BORDER}
  22976.   SSTF_BORDER = 2;
  22977.   {$EXTERNALSYM SSTF_DISPLAY}
  22978.   SSTF_DISPLAY = 3;
  22979.  
  22980.   { values for TSoundsEntry iWindowsEffect field }
  22981.   {$EXTERNALSYM SSWF_NONE}
  22982.   SSWF_NONE = 0;
  22983.   {$EXTERNALSYM SSWF_TITLE}
  22984.   SSWF_TITLE = 1;
  22985.   {$EXTERNALSYM SSWF_WINDOW}
  22986.   SSWF_WINDOW = 2;
  22987.   {$EXTERNALSYM SSWF_DISPLAY}
  22988.   SSWF_DISPLAY = 3;
  22989.   {$EXTERNALSYM SSWF_CUSTOM}
  22990.   SSWF_CUSTOM = 4;
  22991.  
  22992. type
  22993.   PSoundsEntryA = ^TSoundsEntryA;
  22994.   PSoundsEntryW = ^TSoundsEntryW;
  22995.   PSoundsEntry = PSoundsEntryA;
  22996.   {$EXTERNALSYM tagSOUNDSENTRYA}
  22997.   tagSOUNDSENTRYA = packed record
  22998.     cbSize: UINT;
  22999.     dwFlags: DWORD;
  23000.     iFSTextEffect: DWORD;
  23001.     iFSTextEffectMSec: DWORD;
  23002.     iFSTextEffectColorBits: DWORD;
  23003.     iFSGrafEffect: DWORD;
  23004.     iFSGrafEffectMSec: DWORD;
  23005.     iFSGrafEffectColor: DWORD;
  23006.     iWindowsEffect: DWORD;
  23007.     iWindowsEffectMSec: DWORD;
  23008.     lpszWindowsEffectDLL: PAnsiChar;
  23009.     iWindowsEffectOrdinal: DWORD;
  23010.   end;
  23011.   {$EXTERNALSYM tagSOUNDSENTRYW}
  23012.   tagSOUNDSENTRYW = packed record
  23013.     cbSize: UINT;
  23014.     dwFlags: DWORD;
  23015.     iFSTextEffect: DWORD;
  23016.     iFSTextEffectMSec: DWORD;
  23017.     iFSTextEffectColorBits: DWORD;
  23018.     iFSGrafEffect: DWORD;
  23019.     iFSGrafEffectMSec: DWORD;
  23020.     iFSGrafEffectColor: DWORD;
  23021.     iWindowsEffect: DWORD;
  23022.     iWindowsEffectMSec: DWORD;
  23023.     lpszWindowsEffectDLL: PWideChar;
  23024.     iWindowsEffectOrdinal: DWORD;
  23025.   end;
  23026.   {$EXTERNALSYM tagSOUNDSENTRY}
  23027.   tagSOUNDSENTRY = tagSOUNDSENTRYA;
  23028.   TSoundsEntryA = tagSOUNDSENTRYA;
  23029.   TSoundsEntryW = tagSOUNDSENTRYW;
  23030.   TSoundsEntry = TSoundsEntryA;
  23031.   {$EXTERNALSYM SOUNDSENTRYA}
  23032.   SOUNDSENTRYA = tagSOUNDSENTRYA;
  23033.   {$EXTERNALSYM SOUNDSENTRYW}
  23034.   SOUNDSENTRYW = tagSOUNDSENTRYW;
  23035.   {$EXTERNALSYM SOUNDSENTRY}
  23036.   SOUNDSENTRY = SOUNDSENTRYA;
  23037.  
  23038. const
  23039.   { SOUNDSENTRY dwFlags field }
  23040.   {$EXTERNALSYM SSF_SOUNDSENTRYON}
  23041.   SSF_SOUNDSENTRYON = 1;
  23042.   {$EXTERNALSYM SSF_AVAILABLE}
  23043.   SSF_AVAILABLE = 2;
  23044.   {$EXTERNALSYM SSF_INDICATOR}
  23045.   SSF_INDICATOR = 4;
  23046.  
  23047.  
  23048. type
  23049.   PToggleKeys = ^TToggleKeys;
  23050.   {$EXTERNALSYM tagTOGGLEKEYS}
  23051.   tagTOGGLEKEYS = packed record
  23052.     cbSize: UINT;
  23053.     dwFlags: DWORD;
  23054.   end;
  23055.   TToggleKeys = tagTOGGLEKEYS;
  23056.   {$EXTERNALSYM TOGGLEKEYS}
  23057.   TOGGLEKEYS = tagTOGGLEKEYS;
  23058.  
  23059. const
  23060.   { TToggleKeys dwFlags field }
  23061.   {$EXTERNALSYM TKF_TOGGLEKEYSON}
  23062.   TKF_TOGGLEKEYSON = 1;
  23063.   {$EXTERNALSYM TKF_AVAILABLE}
  23064.   TKF_AVAILABLE = 2;
  23065.   {$EXTERNALSYM TKF_HOTKEYACTIVE}
  23066.   TKF_HOTKEYACTIVE = 4;
  23067.   {$EXTERNALSYM TKF_CONFIRMHOTKEY}
  23068.   TKF_CONFIRMHOTKEY = 8;
  23069.   {$EXTERNALSYM TKF_HOTKEYSOUND}
  23070.   TKF_HOTKEYSOUND = $10;
  23071.   {$EXTERNALSYM TKF_INDICATOR}
  23072.   TKF_INDICATOR = $20;
  23073.  
  23074. {$EXTERNALSYM SetDebugErrorLevel}
  23075. procedure SetDebugErrorLevel(dwLevel: DWORD); stdcall;
  23076.  
  23077. const
  23078.   { SetLastErrorEx() types. }
  23079.   {$EXTERNALSYM SLE_ERROR}
  23080.   SLE_ERROR = 1;
  23081.   {$EXTERNALSYM SLE_MINORERROR}
  23082.   SLE_MINORERROR = 2;
  23083.   {$EXTERNALSYM SLE_WARNING}
  23084.   SLE_WARNING = 3;
  23085.  
  23086. {$EXTERNALSYM SetLastErrorEx}
  23087. procedure SetLastErrorEx(dwErrCode, dwType: DWORD); stdcall;
  23088.  
  23089.  
  23090. { Translated from WINNLS.H }
  23091.  
  23092. const
  23093.  
  23094. { String Length Maximums. }
  23095.  
  23096.   {$EXTERNALSYM MAX_LEADBYTES}
  23097.   MAX_LEADBYTES = 12; { 5 ranges, 2 bytes ea., 0 term. }
  23098.   {$EXTERNALSYM MAX_DEFAULTCHAR}
  23099.   MAX_DEFAULTCHAR = 2; { single or double byte }
  23100.  
  23101. { MBCS and Unicode Translation Flags. }
  23102.  
  23103.   {$EXTERNALSYM MB_PRECOMPOSED}
  23104.   MB_PRECOMPOSED = 1; { use precomposed chars }
  23105.   {$EXTERNALSYM MB_COMPOSITE}
  23106.   MB_COMPOSITE = 2; { use composite chars }
  23107.   {$EXTERNALSYM MB_USEGLYPHCHARS}
  23108.   MB_USEGLYPHCHARS = 4; { use glyph chars, not ctrl chars }
  23109.  
  23110.   {$EXTERNALSYM WC_DEFAULTCHECK}
  23111.   WC_DEFAULTCHECK = $100; { check for default char }
  23112.   {$EXTERNALSYM WC_COMPOSITECHECK}
  23113.   WC_COMPOSITECHECK = $200; { convert composite to precomposed }
  23114.   {$EXTERNALSYM WC_DISCARDNS}
  23115.   WC_DISCARDNS = $10; { discard non-spacing chars }
  23116.   {$EXTERNALSYM WC_SEPCHARS}
  23117.   WC_SEPCHARS = $20; { generate separate chars }
  23118.   {$EXTERNALSYM WC_DEFAULTCHAR}
  23119.   WC_DEFAULTCHAR = $40; { replace w default char }
  23120.  
  23121. { Character Type Flags. }
  23122.  
  23123.   {$EXTERNALSYM CT_CTYPE1}
  23124.   CT_CTYPE1 = 1; { ctype 1 information }
  23125.   {$EXTERNALSYM CT_CTYPE2}
  23126.   CT_CTYPE2 = 2; { ctype 2 information }
  23127.   {$EXTERNALSYM CT_CTYPE3}
  23128.   CT_CTYPE3 = 4; { ctype 3 information }
  23129.  
  23130. { CType 1 Flag Bits. }
  23131.  
  23132.   {$EXTERNALSYM C1_UPPER}
  23133.   C1_UPPER = 1; { upper case }
  23134.   {$EXTERNALSYM C1_LOWER}
  23135.   C1_LOWER = 2; { lower case }
  23136.   {$EXTERNALSYM C1_DIGIT}
  23137.   C1_DIGIT = 4; { decimal digits }
  23138.   {$EXTERNALSYM C1_SPACE}
  23139.   C1_SPACE = 8; { spacing characters }
  23140.   {$EXTERNALSYM C1_PUNCT}
  23141.   C1_PUNCT = $10; { punctuation characters }
  23142.   {$EXTERNALSYM C1_CNTRL}
  23143.   C1_CNTRL = $20; { control characters }
  23144.   {$EXTERNALSYM C1_BLANK}
  23145.   C1_BLANK = $40; { blank characters }
  23146.   {$EXTERNALSYM C1_XDIGIT}
  23147.   C1_XDIGIT = $80; { other digits }
  23148.   {$EXTERNALSYM C1_ALPHA}
  23149.   C1_ALPHA = $100; { any letter }
  23150.  
  23151. { CType 2 Flag Bits. }
  23152.  
  23153.   {$EXTERNALSYM C2_LEFTTORIGHT}
  23154.   C2_LEFTTORIGHT = 1; { left to right }
  23155.   {$EXTERNALSYM C2_RIGHTTOLEFT}
  23156.   C2_RIGHTTOLEFT = 2; { right to left }
  23157.   {$EXTERNALSYM C2_EUROPENUMBER}
  23158.   C2_EUROPENUMBER = 3; { European number, digit }
  23159.   {$EXTERNALSYM C2_EUROPESEPARATOR}
  23160.   C2_EUROPESEPARATOR = 4; { European numeric separator }
  23161.   {$EXTERNALSYM C2_EUROPETERMINATOR}
  23162.   C2_EUROPETERMINATOR = 5; { European numeric terminator }
  23163.   {$EXTERNALSYM C2_ARABICNUMBER}
  23164.   C2_ARABICNUMBER = 6; { Arabic number }
  23165.   {$EXTERNALSYM C2_COMMONSEPARATOR}
  23166.   C2_COMMONSEPARATOR = 7; { common numeric separator }
  23167.   {$EXTERNALSYM C2_BLOCKSEPARATOR}
  23168.   C2_BLOCKSEPARATOR = 8; { block separator }
  23169.   {$EXTERNALSYM C2_SEGMENTSEPARATOR}
  23170.   C2_SEGMENTSEPARATOR = 9; { segment separator }
  23171.   {$EXTERNALSYM C2_WHITESPACE}
  23172.   C2_WHITESPACE = 10; { white space }
  23173.   {$EXTERNALSYM C2_OTHERNEUTRAL}
  23174.   C2_OTHERNEUTRAL = 11; { other neutrals }
  23175.   {$EXTERNALSYM C2_NOTAPPLICABLE}
  23176.   C2_NOTAPPLICABLE = 0; { no implicit directionality }
  23177.  
  23178. { CType 3 Flag Bits. }
  23179.  
  23180.   {$EXTERNALSYM C3_NONSPACING}
  23181.   C3_NONSPACING = 1; { nonspacing character }
  23182.   {$EXTERNALSYM C3_DIACRITIC}
  23183.   C3_DIACRITIC = 2; { diacritic mark }
  23184.   {$EXTERNALSYM C3_VOWELMARK}
  23185.   C3_VOWELMARK = 4; { vowel mark }
  23186.   {$EXTERNALSYM C3_SYMBOL}
  23187.   C3_SYMBOL = 8; { symbols }
  23188.   {$EXTERNALSYM C3_NOTAPPLICABLE}
  23189.   C3_NOTAPPLICABLE = 0; { ctype 3 is not applicable }
  23190.  
  23191. { String Flags. }
  23192.  
  23193.   {$EXTERNALSYM NORM_IGNORECASE}
  23194.   NORM_IGNORECASE = 1; { ignore case }
  23195.   {$EXTERNALSYM NORM_IGNORENONSPACE}
  23196.   NORM_IGNORENONSPACE = 2; { ignore nonspacing chars }
  23197.   {$EXTERNALSYM NORM_IGNORESYMBOLS}
  23198.   NORM_IGNORESYMBOLS = 4; { ignore symbols }
  23199.   {$EXTERNALSYM NORM_IGNOREKANATYPE}
  23200.   NORM_IGNOREKANATYPE = $10000;
  23201.   {$EXTERNALSYM NORM_IGNOREWIDTH}
  23202.   NORM_IGNOREWIDTH = $20000;
  23203.  
  23204. { Locale Independent Mapping Flags. }
  23205.  
  23206.   {$EXTERNALSYM MAP_FOLDCZONE}
  23207.   MAP_FOLDCZONE = $10; { fold compatibility zone chars }
  23208.   {$EXTERNALSYM MAP_PRECOMPOSED}
  23209.   MAP_PRECOMPOSED = $20; { convert to precomposed chars }
  23210.   {$EXTERNALSYM MAP_COMPOSITE}
  23211.   MAP_COMPOSITE = $40; { convert to composite chars }
  23212.   {$EXTERNALSYM MAP_FOLDDIGITS}
  23213.   MAP_FOLDDIGITS = $80; { all digits to ASCII 0-9 }
  23214.  
  23215. { Locale Dependent Mapping Flags. }
  23216.  
  23217.   {$EXTERNALSYM LCMAP_LOWERCASE}
  23218.   LCMAP_LOWERCASE = $00000100;              { lower case letters }
  23219.   {$EXTERNALSYM LCMAP_UPPERCASE}
  23220.   LCMAP_UPPERCASE = $00000200;              { upper case letters }
  23221.   {$EXTERNALSYM LCMAP_SORTKEY}
  23222.   LCMAP_SORTKEY = $00000400;                { WC sort key (normalize) }
  23223.   {$EXTERNALSYM LCMAP_BYTEREV}
  23224.   LCMAP_BYTEREV = $00000800;                { byte reversal }
  23225.  
  23226.   {$EXTERNALSYM LCMAP_HIRAGANA}
  23227.   LCMAP_HIRAGANA = $00100000;               { map katakana to hiragana }
  23228.   {$EXTERNALSYM LCMAP_KATAKANA}
  23229.   LCMAP_KATAKANA = $00200000;               { map hiragana to katakana }
  23230.   {$EXTERNALSYM LCMAP_HALFWIDTH}
  23231.   LCMAP_HALFWIDTH = $00400000;              { map double byte to single byte }
  23232.   {$EXTERNALSYM LCMAP_FULLWIDTH}
  23233.   LCMAP_FULLWIDTH = $00800000;              { map single byte to double byte }
  23234.  
  23235.   {$EXTERNALSYM LCMAP_LINGUISTIC_CASING}
  23236.   LCMAP_LINGUISTIC_CASING = $01000000;      { use linguistic rules for casing }
  23237.  
  23238.   {$EXTERNALSYM LCMAP_SIMPLIFIED_CHINESE}
  23239.   LCMAP_SIMPLIFIED_CHINESE      = $02000000;  { map traditional chinese to simplified chinese }
  23240.   {$EXTERNALSYM LCMAP_TRADITIONAL_CHINESE}
  23241.   LCMAP_TRADITIONAL_CHINESE     = $04000000;  { map simplified chinese to traditional chinese }
  23242.  
  23243. { Locale Enumeration Flags. }
  23244.  
  23245.   {$EXTERNALSYM LCID_INSTALLED}
  23246.   LCID_INSTALLED          = $00000001;  { installed locale ids }
  23247.   {$EXTERNALSYM LCID_SUPPORTED}
  23248.   LCID_SUPPORTED          = $00000002;  { supported locale ids }
  23249.  
  23250. { Code Page Enumeration Flags. }
  23251.  
  23252.   {$EXTERNALSYM CP_INSTALLED}
  23253.   CP_INSTALLED            = $00000001;  { installed code page ids }
  23254.   {$EXTERNALSYM CP_SUPPORTED}
  23255.   CP_SUPPORTED            = $00000002;  { supported code page ids }
  23256.  
  23257.  
  23258. { Sorting Flags.
  23259.  
  23260.      WORD Sort:    culturally correct sort
  23261.                    hyphen and apostrophe are special cased
  23262.                    example: "coop" and "co-op" will sort together in a list
  23263.  
  23264.                          co_op     <-------  underscore (symbol)
  23265.                          coat
  23266.                          comb
  23267.                          coop
  23268.                          co-op     <-------  hyphen (punctuation)
  23269.                          cork
  23270.                          went
  23271.                          were
  23272.                          we're     <-------  apostrophe (punctuation)
  23273.  
  23274.  
  23275.      STRING Sort:  hyphen and apostrophe will sort with all other symbols
  23276.  
  23277.                          co-op     <-------  hyphen (punctuation)
  23278.                          co_op     <-------  underscore (symbol)
  23279.                          coat
  23280.                          comb
  23281.                          coop
  23282.                          cork
  23283.                          we're     <-------  apostrophe (punctuation)
  23284.                          went
  23285.                          were
  23286.  }
  23287.  
  23288.   {$EXTERNALSYM SORT_STRINGSORT}
  23289.   SORT_STRINGSORT = $1000; { use string sort method }
  23290.  
  23291. { Code Page Default Values. }
  23292.  
  23293.   {$EXTERNALSYM CP_ACP}
  23294.   CP_ACP                   = 0;             { default to ANSI code page }
  23295.   {$EXTERNALSYM CP_OEMCP}
  23296.   CP_OEMCP                 = 1;             { default to OEM  code page }
  23297.   {$EXTERNALSYM CP_MACCP}
  23298.   CP_MACCP                 = 2;             { default to MAC  code page }
  23299.  
  23300.   {$EXTERNALSYM CP_UTF7}
  23301.   CP_UTF7                  = 65000;         { UTF-7 translation }
  23302.   {$EXTERNALSYM CP_UTF8}
  23303.   CP_UTF8                  = 65001;         { UTF-8 translation }
  23304.  
  23305. { Country Codes. }
  23306.  
  23307.   {$EXTERNALSYM CTRY_DEFAULT}
  23308.   CTRY_DEFAULT = 0;
  23309.   {$EXTERNALSYM CTRY_AUSTRALIA}
  23310.   CTRY_AUSTRALIA = 61; { Australia }
  23311.   {$EXTERNALSYM CTRY_AUSTRIA}
  23312.   CTRY_AUSTRIA = 43; { Austria }
  23313.   {$EXTERNALSYM CTRY_BELGIUM}
  23314.   CTRY_BELGIUM = $20; { Belgium }
  23315.   {$EXTERNALSYM CTRY_BRAZIL}
  23316.   CTRY_BRAZIL = 55; { Brazil }
  23317.   {$EXTERNALSYM CTRY_CANADA}
  23318.   CTRY_CANADA = 2; { Canada }
  23319.   {$EXTERNALSYM CTRY_DENMARK}
  23320.   CTRY_DENMARK = 45; { Denmark }
  23321.   {$EXTERNALSYM CTRY_FINLAND}
  23322.   CTRY_FINLAND = 358; { Finland }
  23323.   {$EXTERNALSYM CTRY_FRANCE}
  23324.   CTRY_FRANCE = 33; { France }
  23325.   {$EXTERNALSYM CTRY_GERMANY}
  23326.   CTRY_GERMANY = 49; { Germany }
  23327.   {$EXTERNALSYM CTRY_ICELAND}
  23328.   CTRY_ICELAND = 354; { Iceland }
  23329.   {$EXTERNALSYM CTRY_IRELAND}
  23330.   CTRY_IRELAND = 353; { Ireland }
  23331.   {$EXTERNALSYM CTRY_ITALY}
  23332.   CTRY_ITALY = 39; { Italy }
  23333.   {$EXTERNALSYM CTRY_JAPAN}
  23334.   CTRY_JAPAN = 81; { Japan }
  23335.   {$EXTERNALSYM CTRY_MEXICO}
  23336.   CTRY_MEXICO = 52; { Mexico }
  23337.   {$EXTERNALSYM CTRY_NETHERLANDS}
  23338.   CTRY_NETHERLANDS = 31; { Netherlands }
  23339.   {$EXTERNALSYM CTRY_NEW_ZEALAND}
  23340.   CTRY_NEW_ZEALAND = $40; { New Zealand }
  23341.   {$EXTERNALSYM CTRY_NORWAY}
  23342.   CTRY_NORWAY = 47; { Norway }
  23343.   {$EXTERNALSYM CTRY_PORTUGAL}
  23344.   CTRY_PORTUGAL = 351; { Portugal }
  23345.   {$EXTERNALSYM CTRY_PRCHINA}
  23346.   CTRY_PRCHINA = 86; { PR China }
  23347.   {$EXTERNALSYM CTRY_SOUTH_KOREA}
  23348.   CTRY_SOUTH_KOREA = 82; { South Korea }
  23349.   {$EXTERNALSYM CTRY_SPAIN}
  23350.   CTRY_SPAIN = 34; { Spain }
  23351.   {$EXTERNALSYM CTRY_SWEDEN}
  23352.   CTRY_SWEDEN = 46; { Sweden }
  23353.   {$EXTERNALSYM CTRY_SWITZERLAND}
  23354.   CTRY_SWITZERLAND = 41; { Switzerland }
  23355.   {$EXTERNALSYM CTRY_TAIWAN}
  23356.   CTRY_TAIWAN = 886; { Taiwan }
  23357.   {$EXTERNALSYM CTRY_UNITED_KINGDOM}
  23358.   CTRY_UNITED_KINGDOM = 44; { United Kingdom }
  23359.   {$EXTERNALSYM CTRY_UNITED_STATES}
  23360.   CTRY_UNITED_STATES = 1; { United States }
  23361.  
  23362. { Locale Types.
  23363.   These types are used for the GetLocaleInfoW NLS API routine. }
  23364.  
  23365. { LOCALE_NOUSEROVERRIDE is also used in GetTimeFormatW and GetDateFormatW. }
  23366.  
  23367.   {$EXTERNALSYM LOCALE_NOUSEROVERRIDE}
  23368.   LOCALE_NOUSEROVERRIDE           = $80000000;   { do not use user overrides }
  23369.   {$EXTERNALSYM LOCALE_USE_CP_ACP}
  23370.   LOCALE_USE_CP_ACP               = $40000000;   { use the system ACP }
  23371.  
  23372.   {$EXTERNALSYM LOCALE_ILANGUAGE}
  23373.   LOCALE_ILANGUAGE                = $00000001;   { language id }
  23374.   {$EXTERNALSYM LOCALE_SLANGUAGE}
  23375.   LOCALE_SLANGUAGE                = $00000002;   { localized name of language }
  23376.   {$EXTERNALSYM LOCALE_SENGLANGUAGE}
  23377.   LOCALE_SENGLANGUAGE             = $00001001;   { English name of language }
  23378.   {$EXTERNALSYM LOCALE_SABBREVLANGNAME}
  23379.   LOCALE_SABBREVLANGNAME          = $00000003;   { abbreviated language name }
  23380.   {$EXTERNALSYM LOCALE_SNATIVELANGNAME}
  23381.   LOCALE_SNATIVELANGNAME          = $00000004;   { native name of language }
  23382.  
  23383.   {$EXTERNALSYM LOCALE_ICOUNTRY}
  23384.   LOCALE_ICOUNTRY                 = $00000005;   { country code }
  23385.   {$EXTERNALSYM LOCALE_SCOUNTRY}
  23386.   LOCALE_SCOUNTRY                 = $00000006;   { localized name of country }
  23387.   {$EXTERNALSYM LOCALE_SENGCOUNTRY}
  23388.   LOCALE_SENGCOUNTRY              = $00001002;   { English name of country }
  23389.   {$EXTERNALSYM LOCALE_SABBREVCTRYNAME}
  23390.   LOCALE_SABBREVCTRYNAME          = $00000007;   { abbreviated country name }
  23391.   {$EXTERNALSYM LOCALE_SNATIVECTRYNAME}
  23392.   LOCALE_SNATIVECTRYNAME          = $00000008;   { native name of country }
  23393.  
  23394.   {$EXTERNALSYM LOCALE_IDEFAULTLANGUAGE}
  23395.   LOCALE_IDEFAULTLANGUAGE         = $00000009;   { default language id }
  23396.   {$EXTERNALSYM LOCALE_IDEFAULTCOUNTRY}
  23397.   LOCALE_IDEFAULTCOUNTRY          = $0000000A;   { default country code }
  23398.   {$EXTERNALSYM LOCALE_IDEFAULTCODEPAGE}
  23399.   LOCALE_IDEFAULTCODEPAGE         = $0000000B;   { default oem code page }
  23400.   {$EXTERNALSYM LOCALE_IDEFAULTANSICODEPAGE}
  23401.   LOCALE_IDEFAULTANSICODEPAGE     = $00001004;   { default ansi code page }
  23402.   {$EXTERNALSYM LOCALE_IDEFAULTMACCODEPAGE}
  23403.   LOCALE_IDEFAULTMACCODEPAGE      = $00001011;   { default mac code page }
  23404.  
  23405.   {$EXTERNALSYM LOCALE_SLIST}
  23406.   LOCALE_SLIST                    = $0000000C;   { list item separator }
  23407.   {$EXTERNALSYM LOCALE_IMEASURE}
  23408.   LOCALE_IMEASURE                 = $0000000D;   { 0 = metric, 1 = US }
  23409.  
  23410.   {$EXTERNALSYM LOCALE_SDECIMAL}
  23411.   LOCALE_SDECIMAL                 = $0000000E;   { decimal separator }
  23412.   {$EXTERNALSYM LOCALE_STHOUSAND}
  23413.   LOCALE_STHOUSAND                = $0000000F;   { thousand separator }
  23414.   {$EXTERNALSYM LOCALE_SGROUPING}
  23415.   LOCALE_SGROUPING                = $00000010;   { digit grouping }
  23416.   {$EXTERNALSYM LOCALE_IDIGITS}
  23417.   LOCALE_IDIGITS                  = $00000011;   { number of fractional digits }
  23418.   {$EXTERNALSYM LOCALE_ILZERO}
  23419.   LOCALE_ILZERO                   = $00000012;   { leading zeros for decimal }
  23420.   {$EXTERNALSYM LOCALE_INEGNUMBER}
  23421.   LOCALE_INEGNUMBER               = $00001010;   { negative number mode }
  23422.   {$EXTERNALSYM LOCALE_SNATIVEDIGITS}
  23423.   LOCALE_SNATIVEDIGITS            = $00000013;   { native ascii 0-9 }
  23424.  
  23425.   {$EXTERNALSYM LOCALE_SCURRENCY}
  23426.   LOCALE_SCURRENCY                = $00000014;   { local monetary symbol }
  23427.   {$EXTERNALSYM LOCALE_SINTLSYMBOL}
  23428.   LOCALE_SINTLSYMBOL              = $00000015;   { intl monetary symbol }
  23429.   {$EXTERNALSYM LOCALE_SMONDECIMALSEP}
  23430.   LOCALE_SMONDECIMALSEP           = $00000016;   { monetary decimal separator }
  23431.   {$EXTERNALSYM LOCALE_SMONTHOUSANDSEP}
  23432.   LOCALE_SMONTHOUSANDSEP          = $00000017;   { monetary thousand separator }
  23433.   {$EXTERNALSYM LOCALE_SMONGROUPING}
  23434.   LOCALE_SMONGROUPING             = $00000018;   { monetary grouping }
  23435.   {$EXTERNALSYM LOCALE_ICURRDIGITS}
  23436.   LOCALE_ICURRDIGITS              = $00000019;   { # local monetary digits }
  23437.   {$EXTERNALSYM LOCALE_IINTLCURRDIGITS}
  23438.   LOCALE_IINTLCURRDIGITS          = $0000001A;   { # intl monetary digits }
  23439.   {$EXTERNALSYM LOCALE_ICURRENCY}
  23440.   LOCALE_ICURRENCY                = $0000001B;   { positive currency mode }
  23441.   {$EXTERNALSYM LOCALE_INEGCURR}
  23442.   LOCALE_INEGCURR                 = $0000001C;   { negative currency mode }
  23443.  
  23444.   {$EXTERNALSYM LOCALE_SDATE}
  23445.   LOCALE_SDATE                    = $0000001D;   { date separator }
  23446.   {$EXTERNALSYM LOCALE_STIME}
  23447.   LOCALE_STIME                    = $0000001E;   { time separator }
  23448.   {$EXTERNALSYM LOCALE_SSHORTDATE}
  23449.   LOCALE_SSHORTDATE               = $0000001F;   { short date format string }
  23450.   {$EXTERNALSYM LOCALE_SLONGDATE}
  23451.   LOCALE_SLONGDATE                = $00000020;   { long date format string }
  23452.   {$EXTERNALSYM LOCALE_STIMEFORMAT}
  23453.   LOCALE_STIMEFORMAT              = $00001003;   { time format string }
  23454.   {$EXTERNALSYM LOCALE_IDATE}
  23455.   LOCALE_IDATE                    = $00000021;   { short date format ordering }
  23456.   {$EXTERNALSYM LOCALE_ILDATE}
  23457.   LOCALE_ILDATE                   = $00000022;   { long date format ordering }
  23458.   {$EXTERNALSYM LOCALE_ITIME}
  23459.   LOCALE_ITIME                    = $00000023;   { time format specifier }
  23460.   {$EXTERNALSYM LOCALE_ITIMEMARKPOSN}
  23461.   LOCALE_ITIMEMARKPOSN            = $00001005;   { time marker position }
  23462.   {$EXTERNALSYM LOCALE_ICENTURY}
  23463.   LOCALE_ICENTURY                 = $00000024;   { century format specifier (short date) }
  23464.   {$EXTERNALSYM LOCALE_ITLZERO}
  23465.   LOCALE_ITLZERO                  = $00000025;   { leading zeros in time field }
  23466.   {$EXTERNALSYM LOCALE_IDAYLZERO}
  23467.   LOCALE_IDAYLZERO                = $00000026;   { leading zeros in day field (short date) }
  23468.   {$EXTERNALSYM LOCALE_IMONLZERO}
  23469.   LOCALE_IMONLZERO                = $00000027;   { leading zeros in month field (short date) }
  23470.   {$EXTERNALSYM LOCALE_S1159}
  23471.   LOCALE_S1159                    = $00000028;   { AM designator }
  23472.   {$EXTERNALSYM LOCALE_S2359}
  23473.   LOCALE_S2359                    = $00000029;   { PM designator }
  23474.  
  23475.   {$EXTERNALSYM LOCALE_ICALENDARTYPE}
  23476.   LOCALE_ICALENDARTYPE            = $00001009;   { type of calendar specifier }
  23477.   {$EXTERNALSYM LOCALE_IOPTIONALCALENDAR}
  23478.   LOCALE_IOPTIONALCALENDAR        = $0000100B;   { additional calendar types specifier }
  23479.   {$EXTERNALSYM LOCALE_IFIRSTDAYOFWEEK}
  23480.   LOCALE_IFIRSTDAYOFWEEK          = $0000100C;   { first day of week specifier }
  23481.   {$EXTERNALSYM LOCALE_IFIRSTWEEKOFYEAR}
  23482.   LOCALE_IFIRSTWEEKOFYEAR         = $0000100D;   { first week of year specifier }
  23483.  
  23484.   {$EXTERNALSYM LOCALE_SDAYNAME1}
  23485.   LOCALE_SDAYNAME1                = $0000002A;   { long name for Monday }
  23486.   {$EXTERNALSYM LOCALE_SDAYNAME2}
  23487.   LOCALE_SDAYNAME2                = $0000002B;   { long name for Tuesday }
  23488.   {$EXTERNALSYM LOCALE_SDAYNAME3}
  23489.   LOCALE_SDAYNAME3                = $0000002C;   { long name for Wednesday }
  23490.   {$EXTERNALSYM LOCALE_SDAYNAME4}
  23491.   LOCALE_SDAYNAME4                = $0000002D;   { long name for Thursday }
  23492.   {$EXTERNALSYM LOCALE_SDAYNAME5}
  23493.   LOCALE_SDAYNAME5                = $0000002E;   { long name for Friday }
  23494.   {$EXTERNALSYM LOCALE_SDAYNAME6}
  23495.   LOCALE_SDAYNAME6                = $0000002F;   { long name for Saturday }
  23496.   {$EXTERNALSYM LOCALE_SDAYNAME7}
  23497.   LOCALE_SDAYNAME7                = $00000030;   { long name for Sunday }
  23498.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME1}
  23499.   LOCALE_SABBREVDAYNAME1          = $00000031;   { abbreviated name for Monday }
  23500.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME2}
  23501.   LOCALE_SABBREVDAYNAME2          = $00000032;   { abbreviated name for Tuesday }
  23502.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME3}
  23503.   LOCALE_SABBREVDAYNAME3          = $00000033;   { abbreviated name for Wednesday }
  23504.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME4}
  23505.   LOCALE_SABBREVDAYNAME4          = $00000034;   { abbreviated name for Thursday }
  23506.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME5}
  23507.   LOCALE_SABBREVDAYNAME5          = $00000035;   { abbreviated name for Friday }
  23508.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME6}
  23509.   LOCALE_SABBREVDAYNAME6          = $00000036;   { abbreviated name for Saturday }
  23510.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME7}
  23511.   LOCALE_SABBREVDAYNAME7          = $00000037;   { abbreviated name for Sunday }
  23512.   {$EXTERNALSYM LOCALE_SMONTHNAME1}
  23513.   LOCALE_SMONTHNAME1              = $00000038;   { long name for January }
  23514.   {$EXTERNALSYM LOCALE_SMONTHNAME2}
  23515.   LOCALE_SMONTHNAME2              = $00000039;   { long name for February }
  23516.   {$EXTERNALSYM LOCALE_SMONTHNAME3}
  23517.   LOCALE_SMONTHNAME3              = $0000003A;   { long name for March }
  23518.   {$EXTERNALSYM LOCALE_SMONTHNAME4}
  23519.   LOCALE_SMONTHNAME4              = $0000003B;   { long name for April }
  23520.   {$EXTERNALSYM LOCALE_SMONTHNAME5}
  23521.   LOCALE_SMONTHNAME5              = $0000003C;   { long name for May }
  23522.   {$EXTERNALSYM LOCALE_SMONTHNAME6}
  23523.   LOCALE_SMONTHNAME6              = $0000003D;   { long name for June }
  23524.   {$EXTERNALSYM LOCALE_SMONTHNAME7}
  23525.   LOCALE_SMONTHNAME7              = $0000003E;   { long name for July }
  23526.   {$EXTERNALSYM LOCALE_SMONTHNAME8}
  23527.   LOCALE_SMONTHNAME8              = $0000003F;   { long name for August }
  23528.   {$EXTERNALSYM LOCALE_SMONTHNAME9}
  23529.   LOCALE_SMONTHNAME9              = $00000040;   { long name for September }
  23530.   {$EXTERNALSYM LOCALE_SMONTHNAME10}
  23531.   LOCALE_SMONTHNAME10             = $00000041;   { long name for October }
  23532.   {$EXTERNALSYM LOCALE_SMONTHNAME11}
  23533.   LOCALE_SMONTHNAME11             = $00000042;   { long name for November }
  23534.   {$EXTERNALSYM LOCALE_SMONTHNAME12}
  23535.   LOCALE_SMONTHNAME12             = $00000043;   { long name for December }
  23536.   {$EXTERNALSYM LOCALE_SMONTHNAME13}
  23537.   LOCALE_SMONTHNAME13             = $0000100E;   { long name for 13th month (if exists) }
  23538.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME1}
  23539.   LOCALE_SABBREVMONTHNAME1        = $00000044;   { abbreviated name for January }
  23540.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME2}
  23541.   LOCALE_SABBREVMONTHNAME2        = $00000045;   { abbreviated name for February }
  23542.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME3}
  23543.   LOCALE_SABBREVMONTHNAME3        = $00000046;   { abbreviated name for March }
  23544.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME4}
  23545.   LOCALE_SABBREVMONTHNAME4        = $00000047;   { abbreviated name for April }
  23546.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME5}
  23547.   LOCALE_SABBREVMONTHNAME5        = $00000048;   { abbreviated name for May }
  23548.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME6}
  23549.   LOCALE_SABBREVMONTHNAME6        = $00000049;   { abbreviated name for June }
  23550.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME7}
  23551.   LOCALE_SABBREVMONTHNAME7        = $0000004A;   { abbreviated name for July }
  23552.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME8}
  23553.   LOCALE_SABBREVMONTHNAME8        = $0000004B;   { abbreviated name for August }
  23554.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME9}
  23555.   LOCALE_SABBREVMONTHNAME9        = $0000004C;   { abbreviated name for September }
  23556.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME10}
  23557.   LOCALE_SABBREVMONTHNAME10       = $0000004D;   { abbreviated name for October }
  23558.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME11}
  23559.   LOCALE_SABBREVMONTHNAME11       = $0000004E;   { abbreviated name for November }
  23560.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME12}
  23561.   LOCALE_SABBREVMONTHNAME12       = $0000004F;   { abbreviated name for December }
  23562.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME13}
  23563.   LOCALE_SABBREVMONTHNAME13       = $0000100F;   { abbreviated name for 13th month (if exists) }
  23564.  
  23565.   {$EXTERNALSYM LOCALE_SPOSITIVESIGN}
  23566.   LOCALE_SPOSITIVESIGN            = $00000050;   { positive sign }
  23567.   {$EXTERNALSYM LOCALE_SNEGATIVESIGN}
  23568.   LOCALE_SNEGATIVESIGN            = $00000051;   { negative sign }
  23569.   {$EXTERNALSYM LOCALE_IPOSSIGNPOSN}
  23570.   LOCALE_IPOSSIGNPOSN             = $00000052;   { positive sign position }
  23571.   {$EXTERNALSYM LOCALE_INEGSIGNPOSN}
  23572.   LOCALE_INEGSIGNPOSN             = $00000053;   { negative sign position }
  23573.   {$EXTERNALSYM LOCALE_IPOSSYMPRECEDES}
  23574.   LOCALE_IPOSSYMPRECEDES          = $00000054;   { mon sym precedes pos amt }
  23575.   {$EXTERNALSYM LOCALE_IPOSSEPBYSPACE}
  23576.   LOCALE_IPOSSEPBYSPACE           = $00000055;   { mon sym sep by space from pos amt }
  23577.   {$EXTERNALSYM LOCALE_INEGSYMPRECEDES}
  23578.   LOCALE_INEGSYMPRECEDES          = $00000056;   { mon sym precedes neg amt }
  23579.   {$EXTERNALSYM LOCALE_INEGSEPBYSPACE}
  23580.   LOCALE_INEGSEPBYSPACE           = $00000057;   { mon sym sep by space from neg amt }
  23581.  
  23582.   {$EXTERNALSYM LOCALE_FONTSIGNATURE}
  23583.   LOCALE_FONTSIGNATURE            = $00000058;   { font signature }
  23584.   {$EXTERNALSYM LOCALE_SISO639LANGNAME}
  23585.   LOCALE_SISO639LANGNAME          = $00000059;   { ISO abbreviated language name }
  23586.   {$EXTERNALSYM LOCALE_SISO3166CTRYNAME}
  23587.   LOCALE_SISO3166CTRYNAME         = $0000005A;   { ISO abbreviated country name }
  23588.  
  23589. { Time Flags for GetTimeFormatW. }
  23590.  
  23591.   {$EXTERNALSYM TIME_NOMINUTESORSECONDS}
  23592.   TIME_NOMINUTESORSECONDS = 1; { do not use minutes or seconds }
  23593.   {$EXTERNALSYM TIME_NOSECONDS}
  23594.   TIME_NOSECONDS = 2; { do not use seconds }
  23595.   {$EXTERNALSYM TIME_NOTIMEMARKER}
  23596.   TIME_NOTIMEMARKER = 4; { do not use time marker }
  23597.   {$EXTERNALSYM TIME_FORCE24HOURFORMAT}
  23598.   TIME_FORCE24HOURFORMAT = 8; { always use 24 hour format }
  23599.  
  23600. { Date Flags for GetDateFormatW. }
  23601.  
  23602.   {$EXTERNALSYM DATE_SHORTDATE}
  23603.   DATE_SHORTDATE = 1; { use short date picture }
  23604.   {$EXTERNALSYM DATE_LONGDATE}
  23605.   DATE_LONGDATE = 2; { use long date picture }
  23606.   {$EXTERNALSYM DATE_USE_ALT_CALENDAR}
  23607.   DATE_USE_ALT_CALENDAR = 4;   { use alternate calendar (if any) }
  23608.  
  23609. { Calendar Types.
  23610.   These types are used for the GetALTCalendarInfoW NLS API routine. }
  23611.  
  23612.   {$EXTERNALSYM CAL_ICALINTVALUE}
  23613.   CAL_ICALINTVALUE = 1;   { calendar type }
  23614.   {$EXTERNALSYM CAL_SCALNAME}
  23615.   CAL_SCALNAME = 2;   { native name of calendar }
  23616.   {$EXTERNALSYM CAL_IYEAROFFSETRANGE}
  23617.   CAL_IYEAROFFSETRANGE = 3;   { starting years of eras }
  23618.   {$EXTERNALSYM CAL_SERASTRING}
  23619.   CAL_SERASTRING = 4;   { era name for IYearOffsetRanges }
  23620.   {$EXTERNALSYM CAL_SSHORTDATE}
  23621.   CAL_SSHORTDATE = 5;   { short date format string }
  23622.   {$EXTERNALSYM CAL_SLONGDATE}
  23623.   CAL_SLONGDATE = 6;   { long date format string }
  23624.   {$EXTERNALSYM CAL_SDAYNAME1}
  23625.   CAL_SDAYNAME1 = 7;   { native name for Monday }
  23626.   {$EXTERNALSYM CAL_SDAYNAME2}
  23627.   CAL_SDAYNAME2 = 8;   { native name for Tuesday }
  23628.   {$EXTERNALSYM CAL_SDAYNAME3}
  23629.   CAL_SDAYNAME3 = 9;   { native name for Wednesday }
  23630.   {$EXTERNALSYM CAL_SDAYNAME4}
  23631.   CAL_SDAYNAME4 = 10;   { native name for Thursday }
  23632.   {$EXTERNALSYM CAL_SDAYNAME5}
  23633.   CAL_SDAYNAME5 = 11;   { native name for Friday }
  23634.   {$EXTERNALSYM CAL_SDAYNAME6}
  23635.   CAL_SDAYNAME6 = 12;   { native name for Saturday }
  23636.   {$EXTERNALSYM CAL_SDAYNAME7}
  23637.   CAL_SDAYNAME7 = 13;   { native name for Sunday }
  23638.   {$EXTERNALSYM CAL_SABBREVDAYNAME1}
  23639.   CAL_SABBREVDAYNAME1 = 14;   { abbreviated name for Monday }
  23640.   {$EXTERNALSYM CAL_SABBREVDAYNAME2}
  23641.   CAL_SABBREVDAYNAME2 = 15;   { abbreviated name for Tuesday }
  23642.   {$EXTERNALSYM CAL_SABBREVDAYNAME3}
  23643.   CAL_SABBREVDAYNAME3 = $10;   { abbreviated name for Wednesday }
  23644.   {$EXTERNALSYM CAL_SABBREVDAYNAME4}
  23645.   CAL_SABBREVDAYNAME4 = 17;   { abbreviated name for Thursday }
  23646.   {$EXTERNALSYM CAL_SABBREVDAYNAME5}
  23647.   CAL_SABBREVDAYNAME5 = 18;   { abbreviated name for Friday }
  23648.   {$EXTERNALSYM CAL_SABBREVDAYNAME6}
  23649.   CAL_SABBREVDAYNAME6 = 19;   { abbreviated name for Saturday }
  23650.   {$EXTERNALSYM CAL_SABBREVDAYNAME7}
  23651.   CAL_SABBREVDAYNAME7 = 20;   { abbreviated name for Sunday }
  23652.   {$EXTERNALSYM CAL_SMONTHNAME1}
  23653.   CAL_SMONTHNAME1 = 21;   { native name for January }
  23654.   {$EXTERNALSYM CAL_SMONTHNAME2}
  23655.   CAL_SMONTHNAME2 = 22;   { native name for February }
  23656.   {$EXTERNALSYM CAL_SMONTHNAME3}
  23657.   CAL_SMONTHNAME3 = 23;   { native name for March }
  23658.   {$EXTERNALSYM CAL_SMONTHNAME4}
  23659.   CAL_SMONTHNAME4 = 24;   { native name for April }
  23660.   {$EXTERNALSYM CAL_SMONTHNAME5}
  23661.   CAL_SMONTHNAME5 = 25;   { native name for May }
  23662.   {$EXTERNALSYM CAL_SMONTHNAME6}
  23663.   CAL_SMONTHNAME6 = 26;   { native name for June }
  23664.   {$EXTERNALSYM CAL_SMONTHNAME7}
  23665.   CAL_SMONTHNAME7 = 27;   { native name for July }
  23666.   {$EXTERNALSYM CAL_SMONTHNAME8}
  23667.   CAL_SMONTHNAME8 = 28;   { native name for August }
  23668.   {$EXTERNALSYM CAL_SMONTHNAME9}
  23669.   CAL_SMONTHNAME9 = 29;   { native name for September }
  23670.   {$EXTERNALSYM CAL_SMONTHNAME10}
  23671.   CAL_SMONTHNAME10 = 30;   { native name for October }
  23672.   {$EXTERNALSYM CAL_SMONTHNAME11}
  23673.   CAL_SMONTHNAME11 = 31;   { native name for November }
  23674.   {$EXTERNALSYM CAL_SMONTHNAME12}
  23675.   CAL_SMONTHNAME12 = $20;   { native name for December }
  23676.   {$EXTERNALSYM CAL_SMONTHNAME13}
  23677.   CAL_SMONTHNAME13 = 33;   { native name for 13th month (if any) }
  23678.   {$EXTERNALSYM CAL_SABBREVMONTHNAME1}
  23679.   CAL_SABBREVMONTHNAME1 = 34;   { abbreviated name for January }
  23680.   {$EXTERNALSYM CAL_SABBREVMONTHNAME2}
  23681.   CAL_SABBREVMONTHNAME2 = 35;   { abbreviated name for February }
  23682.   {$EXTERNALSYM CAL_SABBREVMONTHNAME3}
  23683.   CAL_SABBREVMONTHNAME3 = 36;   { abbreviated name for March }
  23684.   {$EXTERNALSYM CAL_SABBREVMONTHNAME4}
  23685.   CAL_SABBREVMONTHNAME4 = 37;   { abbreviated name for April }
  23686.   {$EXTERNALSYM CAL_SABBREVMONTHNAME5}
  23687.   CAL_SABBREVMONTHNAME5 = 38;   { abbreviated name for May }
  23688.   {$EXTERNALSYM CAL_SABBREVMONTHNAME6}
  23689.   CAL_SABBREVMONTHNAME6 = 39;   { abbreviated name for June }
  23690.   {$EXTERNALSYM CAL_SABBREVMONTHNAME7}
  23691.   CAL_SABBREVMONTHNAME7 = 40;   { abbreviated name for July }
  23692.   {$EXTERNALSYM CAL_SABBREVMONTHNAME8}
  23693.   CAL_SABBREVMONTHNAME8 = 41;   { abbreviated name for August }
  23694.   {$EXTERNALSYM CAL_SABBREVMONTHNAME9}
  23695.   CAL_SABBREVMONTHNAME9 = 42;   { abbreviated name for September }
  23696.   {$EXTERNALSYM CAL_SABBREVMONTHNAME10}
  23697.   CAL_SABBREVMONTHNAME10 = 43;   { abbreviated name for October }
  23698.   {$EXTERNALSYM CAL_SABBREVMONTHNAME11}
  23699.   CAL_SABBREVMONTHNAME11 = 44;   { abbreviated name for November }
  23700.   {$EXTERNALSYM CAL_SABBREVMONTHNAME12}
  23701.   CAL_SABBREVMONTHNAME12 = 45;   { abbreviated name for December }
  23702.   {$EXTERNALSYM CAL_SABBREVMONTHNAME13}
  23703.   CAL_SABBREVMONTHNAME13 = 46;   { abbreviated name for 13th month (if any) }
  23704.  
  23705. { Calendar Enumeration Value. }
  23706.  
  23707.   {$EXTERNALSYM ENUM_ALL_CALENDARS}
  23708.   ENUM_ALL_CALENDARS = $FFFFFFFF;   { enumerate all calendars }
  23709.  
  23710. { Calendar ID Values. }
  23711.  
  23712.   {$EXTERNALSYM CAL_GREGORIAN}
  23713.   CAL_GREGORIAN = 1;           { Gregorian (localized) calendar }
  23714.   {$EXTERNALSYM CAL_GREGORIAN_US}
  23715.   CAL_GREGORIAN_US = 2;        { Gregorian (U.S.) calendar }
  23716.   {$EXTERNALSYM CAL_JAPAN}
  23717.   CAL_JAPAN = 3;               { Japanese Emperor Era calendar }
  23718.   {$EXTERNALSYM CAL_TAIWAN}
  23719.   CAL_TAIWAN = 4;              { Republic of China Era calendar }
  23720.   {$EXTERNALSYM CAL_KOREA}
  23721.   CAL_KOREA = 5;               { Korean Tangun Era calendar }
  23722.   {$EXTERNALSYM CAL_HIJRI}
  23723.   CAL_HIJRI = 6;               { Hijri (Arabic Lunar) calendar }
  23724.   {$EXTERNALSYM CAL_THAI}
  23725.   CAL_THAI = 7;                { Thai calendar }
  23726.   {$EXTERNALSYM CAL_HEBREW}
  23727.   CAL_HEBREW = 8;              { Hebrew calendar }
  23728.  
  23729.  
  23730. type
  23731.   {$EXTERNALSYM LCTYPE}
  23732.   LCTYPE = DWORD;   { Locale type constant. }
  23733.   {$EXTERNALSYM CALTYPE}
  23734.   CALTYPE = DWORD;  { Calendar type constant. }
  23735.   {$EXTERNALSYM CALID}
  23736.   CALID = DWORD;    { Calendar ID. }
  23737.  
  23738.   PCPInfo = ^TCPInfo;
  23739.   {$EXTERNALSYM _cpinfo}
  23740.   _cpinfo = record
  23741.     MaxCharSize: UINT;                       { max length (bytes) of a char }
  23742.     DefaultChar: array[0..MAX_DEFAULTCHAR - 1] of Byte; { default character }
  23743.     LeadByte: array[0..MAX_LEADBYTES - 1] of Byte;      { lead byte ranges }
  23744.   end;
  23745.   TCPInfo = _cpinfo;
  23746.   {$EXTERNALSYM CPINFO}
  23747.   CPINFO = _cpinfo;
  23748.  
  23749. type
  23750.   PNumberFmtA = ^TNumberFmtA;
  23751.   PNumberFmtW = ^TNumberFmtW;
  23752.   PNumberFmt = PNumberFmtA;
  23753.   {$EXTERNALSYM _numberfmtA}
  23754.   _numberfmtA = packed record
  23755.     NumDigits: UINT;        { number of decimal digits }
  23756.     LeadingZero: UINT;      { if leading zero in decimal fields }
  23757.     Grouping: UINT;         { group size left of decimal }
  23758.     lpDecimalSep: PAnsiChar;   { ptr to decimal separator string }
  23759.     lpThousandSep: PAnsiChar;  { ptr to thousand separator string }
  23760.     NegativeOrder: UINT;    { negative number ordering }
  23761.   end;
  23762.   {$EXTERNALSYM _numberfmtW}
  23763.   _numberfmtW = packed record
  23764.     NumDigits: UINT;        { number of decimal digits }
  23765.     LeadingZero: UINT;      { if leading zero in decimal fields }
  23766.     Grouping: UINT;         { group size left of decimal }
  23767.     lpDecimalSep: PWideChar;   { ptr to decimal separator string }
  23768.     lpThousandSep: PWideChar;  { ptr to thousand separator string }
  23769.     NegativeOrder: UINT;    { negative number ordering }
  23770.   end;
  23771.   {$EXTERNALSYM _numberfmt}
  23772.   _numberfmt = _numberfmtA;
  23773.   TNumberFmtA = _numberfmtA;
  23774.   TNumberFmtW = _numberfmtW;
  23775.   TNumberFmt = TNumberFmtA;
  23776.   {$EXTERNALSYM NUMBERFMTA}
  23777.   NUMBERFMTA = _numberfmtA;
  23778.   {$EXTERNALSYM NUMBERFMTW}
  23779.   NUMBERFMTW = _numberfmtW;
  23780.   {$EXTERNALSYM NUMBERFMT}
  23781.   NUMBERFMT = NUMBERFMTA;
  23782.  
  23783.   PCurrencyFmtA = ^TCurrencyFmtA;
  23784.   PCurrencyFmtW = ^TCurrencyFmtW;
  23785.   PCurrencyFmt = PCurrencyFmtA;
  23786.   {$EXTERNALSYM _currencyfmtA}
  23787.   _currencyfmtA = packed record
  23788.     NumDigits: UINT;           { number of decimal digits }
  23789.     LeadingZero: UINT;         { if leading zero in decimal fields }
  23790.     Grouping: UINT;            { group size left of decimal }
  23791.     lpDecimalSep: PAnsiChar;      { ptr to decimal separator string }
  23792.     lpThousandSep: PAnsiChar;     { ptr to thousand separator string }
  23793.     NegativeOrder: UINT;       { negative currency ordering }
  23794.     PositiveOrder: UINT;       { positive currency ordering }
  23795.     lpCurrencySymbol: PAnsiChar;  { ptr to currency symbol string }
  23796.   end;
  23797.   {$EXTERNALSYM _currencyfmtW}
  23798.   _currencyfmtW = packed record
  23799.     NumDigits: UINT;           { number of decimal digits }
  23800.     LeadingZero: UINT;         { if leading zero in decimal fields }
  23801.     Grouping: UINT;            { group size left of decimal }
  23802.     lpDecimalSep: PWideChar;      { ptr to decimal separator string }
  23803.     lpThousandSep: PWideChar;     { ptr to thousand separator string }
  23804.     NegativeOrder: UINT;       { negative currency ordering }
  23805.     PositiveOrder: UINT;       { positive currency ordering }
  23806.     lpCurrencySymbol: PWideChar;  { ptr to currency symbol string }
  23807.   end;
  23808.   {$EXTERNALSYM _currencyfmt}
  23809.   _currencyfmt = _currencyfmtA;
  23810.   TCurrencyFmtA = _currencyfmtA;
  23811.   TCurrencyFmtW = _currencyfmtW;
  23812.   TCurrencyFmt = TCurrencyFmtA;
  23813.   {$EXTERNALSYM CURRENCYFMTA}
  23814.   CURRENCYFMTA = _currencyfmtA;
  23815.   {$EXTERNALSYM CURRENCYFMTW}
  23816.   CURRENCYFMTW = _currencyfmtW;
  23817.   {$EXTERNALSYM CURRENCYFMT}
  23818.   CURRENCYFMT = CURRENCYFMTA;
  23819.  
  23820. { Enumeration function constants. }
  23821.  
  23822. {$IFDEF STRICT}
  23823.   TFNLocaleEnumProc = function (p1: LPTSTR): BOOL stdcall;
  23824.   TFNCodepageEnumProc = function (p1: LPTSTR): BOOL stdcall;
  23825.   TFNDateFmtEnumProc = function (p1: LPTSTR): BOOL stdcall;
  23826.   TFNTimeFmtEnumProc = function (p1: LPTSTR): BOOL stdcall;
  23827.   TFNCalInfoEnumProc = function (p1: LPTSTR): BOOL stdcall;
  23828. {$ELSE}
  23829.   TFNLocaleEnumProc = TFarProc;
  23830.   TFNCodepageEnumProc = TFarProc;
  23831.   TFNDateFmtEnumProc = TFarProc;
  23832.   TFNTimeFmtEnumProc = TFarProc;
  23833.   TFNCalInfoEnumProc = TFarProc;
  23834. {$ENDIF}
  23835.  
  23836.  
  23837. { Code Page Dependent APIs. }
  23838.  
  23839. {$EXTERNALSYM IsValidCodePage}
  23840. function IsValidCodePage(CodePage: UINT): BOOL; stdcall;
  23841. {$EXTERNALSYM GetACP}
  23842. function GetACP: UINT; stdcall;
  23843. {$EXTERNALSYM GetOEMCP}
  23844. function GetOEMCP: UINT; stdcall;
  23845. {$EXTERNALSYM GetCPInfo}
  23846. function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL; stdcall;
  23847. {$EXTERNALSYM IsDBCSLeadByte}
  23848. function IsDBCSLeadByte(TestChar: Byte): BOOL; stdcall;
  23849. {$EXTERNALSYM IsDBCSLeadByteEx}
  23850. function IsDBCSLeadByteEx(CodePage: UINT; TestChar: Byte): BOOL; stdcall;
  23851. {$EXTERNALSYM MultiByteToWideChar}
  23852. function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD;
  23853.   const lpMultiByteStr: LPCSTR; cchMultiByte: Integer;
  23854.   lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer; stdcall;
  23855. {$EXTERNALSYM WideCharToMultiByte}
  23856. function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;
  23857.   lpWideCharStr: LPWSTR; cchWideChar: Integer; lpMultiByteStr: LPSTR;
  23858.   cchMultiByte: Integer; lpDefaultChar: LPCSTR; lpUsedDefaultChar: PBOOL): Integer; stdcall;
  23859.  
  23860. { Locale Dependent APIs. }
  23861.  
  23862. {$EXTERNALSYM CompareStringA}
  23863. function CompareStringA(Locale: LCID; dwCmpFlags: DWORD; lpString1: PAnsiChar;
  23864.   cchCount1: Integer; lpString2: PAnsiChar; cchCount2: Integer): Integer; stdcall;
  23865. {$EXTERNALSYM CompareStringW}
  23866. function CompareStringW(Locale: LCID; dwCmpFlags: DWORD; lpString1: PWideChar;
  23867.   cchCount1: Integer; lpString2: PWideChar; cchCount2: Integer): Integer; stdcall;
  23868. {$EXTERNALSYM CompareString}
  23869. function CompareString(Locale: LCID; dwCmpFlags: DWORD; lpString1: PChar;
  23870.   cchCount1: Integer; lpString2: PChar; cchCount2: Integer): Integer; stdcall;
  23871. {$EXTERNALSYM LCMapStringA}
  23872. function LCMapStringA(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;
  23873.   cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;
  23874. {$EXTERNALSYM LCMapStringW}
  23875. function LCMapStringW(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PWideChar;
  23876.   cchSrc: Integer; lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;
  23877. {$EXTERNALSYM LCMapString}
  23878. function LCMapString(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PChar;
  23879.   cchSrc: Integer; lpDestStr: PChar; cchDest: Integer): Integer; stdcall;
  23880. {$EXTERNALSYM GetLocaleInfoA}
  23881. function GetLocaleInfoA(Locale: LCID; LCType: LCTYPE; lpLCData: PAnsiChar; cchData: Integer): Integer; stdcall;
  23882. {$EXTERNALSYM GetLocaleInfoW}
  23883. function GetLocaleInfoW(Locale: LCID; LCType: LCTYPE; lpLCData: PWideChar; cchData: Integer): Integer; stdcall;
  23884. {$EXTERNALSYM GetLocaleInfo}
  23885. function GetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PChar; cchData: Integer): Integer; stdcall;
  23886. {$EXTERNALSYM SetLocaleInfoA}
  23887. function SetLocaleInfoA(Locale: LCID; LCType: LCTYPE; lpLCData: PAnsiChar): BOOL; stdcall;
  23888. {$EXTERNALSYM SetLocaleInfoW}
  23889. function SetLocaleInfoW(Locale: LCID; LCType: LCTYPE; lpLCData: PWideChar): BOOL; stdcall;
  23890. {$EXTERNALSYM SetLocaleInfo}
  23891. function SetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PChar): BOOL; stdcall;
  23892. {$EXTERNALSYM GetTimeFormatA}
  23893. function GetTimeFormatA(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  23894.   lpFormat: PAnsiChar; lpTimeStr: PAnsiChar; cchTime: Integer): Integer; stdcall;
  23895. {$EXTERNALSYM GetTimeFormatW}
  23896. function GetTimeFormatW(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  23897.   lpFormat: PWideChar; lpTimeStr: PWideChar; cchTime: Integer): Integer; stdcall;
  23898. {$EXTERNALSYM GetTimeFormat}
  23899. function GetTimeFormat(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  23900.   lpFormat: PChar; lpTimeStr: PChar; cchTime: Integer): Integer; stdcall;
  23901. {$EXTERNALSYM GetDateFormatA}
  23902. function GetDateFormatA(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  23903.   lpFormat: PAnsiChar; lpDateStr: PAnsiChar; cchDate: Integer): Integer; stdcall;
  23904. {$EXTERNALSYM GetDateFormatW}
  23905. function GetDateFormatW(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  23906.   lpFormat: PWideChar; lpDateStr: PWideChar; cchDate: Integer): Integer; stdcall;
  23907. {$EXTERNALSYM GetDateFormat}
  23908. function GetDateFormat(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  23909.   lpFormat: PChar; lpDateStr: PChar; cchDate: Integer): Integer; stdcall;
  23910. {$EXTERNALSYM GetNumberFormatA}
  23911. function GetNumberFormatA(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;
  23912.   lpFormat: PNumberFmtA; lpNumberStr: PAnsiChar; cchNumber: Integer): Integer; stdcall;
  23913. {$EXTERNALSYM GetNumberFormatW}
  23914. function GetNumberFormatW(Locale: LCID; dwFlags: DWORD; lpValue: PWideChar;
  23915.   lpFormat: PNumberFmtW; lpNumberStr: PWideChar; cchNumber: Integer): Integer; stdcall;
  23916. {$EXTERNALSYM GetNumberFormat}
  23917. function GetNumberFormat(Locale: LCID; dwFlags: DWORD; lpValue: PChar;
  23918.   lpFormat: PNumberFmt; lpNumberStr: PChar; cchNumber: Integer): Integer; stdcall;
  23919. {$EXTERNALSYM GetCurrencyFormatA}
  23920. function GetCurrencyFormatA(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;
  23921.   lpFormat: PCurrencyFmtA; lpCurrencyStr: PAnsiChar; cchCurrency: Integer): Integer; stdcall;
  23922. {$EXTERNALSYM GetCurrencyFormatW}
  23923. function GetCurrencyFormatW(Locale: LCID; dwFlags: DWORD; lpValue: PWideChar;
  23924.   lpFormat: PCurrencyFmtW; lpCurrencyStr: PWideChar; cchCurrency: Integer): Integer; stdcall;
  23925. {$EXTERNALSYM GetCurrencyFormat}
  23926. function GetCurrencyFormat(Locale: LCID; dwFlags: DWORD; lpValue: PChar;
  23927.   lpFormat: PCurrencyFmt; lpCurrencyStr: PChar; cchCurrency: Integer): Integer; stdcall;
  23928. {$EXTERNALSYM EnumCalendarInfoA}
  23929. function EnumCalendarInfoA(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  23930.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  23931. {$EXTERNALSYM EnumCalendarInfoW}
  23932. function EnumCalendarInfoW(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  23933.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  23934. {$EXTERNALSYM EnumCalendarInfo}
  23935. function EnumCalendarInfo(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  23936.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  23937. {$EXTERNALSYM EnumTimeFormatsA}
  23938. function EnumTimeFormatsA(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  23939.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23940. {$EXTERNALSYM EnumTimeFormatsW}
  23941. function EnumTimeFormatsW(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  23942.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23943. {$EXTERNALSYM EnumTimeFormats}
  23944. function EnumTimeFormats(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  23945.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23946. {$EXTERNALSYM EnumDateFormatsA}
  23947. function EnumDateFormatsA(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  23948.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23949. {$EXTERNALSYM EnumDateFormatsW}
  23950. function EnumDateFormatsW(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  23951.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23952. {$EXTERNALSYM EnumDateFormats}
  23953. function EnumDateFormats(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  23954.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23955. {$EXTERNALSYM IsValidLocale}
  23956. function IsValidLocale(Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  23957. {$EXTERNALSYM ConvertDefaultLocale}
  23958. function ConvertDefaultLocale(Locale: LCID): LCID; stdcall;
  23959. {$EXTERNALSYM GetThreadLocale}
  23960. function GetThreadLocale: LCID; stdcall;
  23961. {$EXTERNALSYM SetThreadLocale}
  23962. function SetThreadLocale(Locale: LCID): BOOL; stdcall;
  23963. {$EXTERNALSYM GetSystemDefaultLangID}
  23964. function GetSystemDefaultLangID: LANGID; stdcall;
  23965. {$EXTERNALSYM GetUserDefaultLangID}
  23966. function GetUserDefaultLangID: LANGID; stdcall;
  23967. {$EXTERNALSYM GetSystemDefaultLCID}
  23968. function GetSystemDefaultLCID: LCID; stdcall;
  23969. {$EXTERNALSYM GetUserDefaultLCID}
  23970. function GetUserDefaultLCID: LCID; stdcall;
  23971.  
  23972. { Locale Independent APIs. }
  23973.  
  23974. {$EXTERNALSYM GetStringTypeExA}
  23975. function GetStringTypeExA(Locale: LCID; dwInfoType: DWORD;
  23976.   lpSrcStr: PAnsiChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  23977. {$EXTERNALSYM GetStringTypeExW}
  23978. function GetStringTypeExW(Locale: LCID; dwInfoType: DWORD;
  23979.   lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  23980. {$EXTERNALSYM GetStringTypeEx}
  23981. function GetStringTypeEx(Locale: LCID; dwInfoType: DWORD;
  23982.   lpSrcStr: PChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  23983.  
  23984. {  NOTE: The parameters for GetStringTypeA and GetStringTypeW are
  23985.          NOT the same.  The W version was shipped in NT 3.1.  The
  23986.          A version was then shipped in 16-bit OLE with the wrong
  23987.          parameters (ported from Win95).  To be compatible, we
  23988.          must break the relationship between the A and W versions
  23989.          of GetStringType.  There will be NO function call for the
  23990.          generic GetStringType.
  23991.  
  23992.          GetStringTypeEx (above) should be used instead. }
  23993.  
  23994. {$EXTERNALSYM GetStringTypeA}
  23995. function GetStringTypeA(Locale: LCID; dwInfoType: DWORD; const lpSrcStr: LPCSTR; cchSrc: BOOL; var lpCharType: Word): BOOL;
  23996. {$EXTERNALSYM GetStringTypeW}
  23997. function GetStringTypeW(dwInfoType: DWORD; const lpSrcStr: WCHAR; cchSrc: BOOL; var lpCharType: Word): BOOL;
  23998.  
  23999. {$EXTERNALSYM FoldStringA}
  24000. function FoldStringA(dwMapFlags: DWORD; lpSrcStr: PAnsiChar; cchSrc: Integer;
  24001.   lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;
  24002. {$EXTERNALSYM FoldStringW}
  24003. function FoldStringW(dwMapFlags: DWORD; lpSrcStr: PWideChar; cchSrc: Integer;
  24004.   lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;
  24005. {$EXTERNALSYM FoldString}
  24006. function FoldString(dwMapFlags: DWORD; lpSrcStr: PChar; cchSrc: Integer;
  24007.   lpDestStr: PChar; cchDest: Integer): Integer; stdcall;
  24008. {$EXTERNALSYM EnumSystemLocalesA}
  24009. function EnumSystemLocalesA(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24010. {$EXTERNALSYM EnumSystemLocalesW}
  24011. function EnumSystemLocalesW(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24012. {$EXTERNALSYM EnumSystemLocales}
  24013. function EnumSystemLocales(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24014. {$EXTERNALSYM EnumSystemCodePagesA}
  24015. function EnumSystemCodePagesA(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24016. {$EXTERNALSYM EnumSystemCodePagesW}
  24017. function EnumSystemCodePagesW(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24018. {$EXTERNALSYM EnumSystemCodePages}
  24019. function EnumSystemCodePages(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  24020.  
  24021.  
  24022. { Translated from WINCON.H }
  24023.  
  24024. { This module contains the public data structures, data types,
  24025.     and procedures exported by the NT console subsystem. }
  24026.  
  24027. type
  24028.   PCoord = ^TCoord;
  24029.   {$EXTERNALSYM _COORD}
  24030.   _COORD = packed record
  24031.     X: SHORT;
  24032.     Y: SHORT;
  24033.   end;
  24034.   TCoord = _COORD;
  24035.   {$EXTERNALSYM COORD}
  24036.   COORD = _COORD;
  24037.  
  24038.   PSmallRect = ^TSmallRect;
  24039.   {$EXTERNALSYM _SMALL_RECT}
  24040.   _SMALL_RECT = packed record
  24041.     Left: SHORT;
  24042.     Top: SHORT;
  24043.     Right: SHORT;
  24044.     Bottom: SHORT;
  24045.   end;
  24046.   TSmallRect = _SMALL_RECT;
  24047.   {$EXTERNALSYM SMALL_RECT}
  24048.   SMALL_RECT = _SMALL_RECT;
  24049.  
  24050.   PKeyEventRecord = ^TKeyEventRecord;
  24051.   {$EXTERNALSYM _KEY_EVENT_RECORD}
  24052.   _KEY_EVENT_RECORD = packed record
  24053.     bKeyDown: BOOL;
  24054.     wRepeatCount: Word;
  24055.     wVirtualKeyCode: Word;
  24056.     wVirtualScanCode: Word;
  24057.     case Integer of
  24058.       0: (
  24059.         UnicodeChar: WCHAR;
  24060.         dwControlKeyState: DWORD);
  24061.       1: (
  24062.         AsciiChar: CHAR);
  24063.   end;
  24064.   TKeyEventRecord = _KEY_EVENT_RECORD;
  24065.   {$EXTERNALSYM KEY_EVENT_RECORD}
  24066.   KEY_EVENT_RECORD = _KEY_EVENT_RECORD;
  24067.  
  24068. const
  24069. { ControlKeyState flags }
  24070.  
  24071.   {$EXTERNALSYM RIGHT_ALT_PRESSED}
  24072.   RIGHT_ALT_PRESSED = 1;     { the right alt key is pressed. }
  24073.   {$EXTERNALSYM LEFT_ALT_PRESSED}
  24074.   LEFT_ALT_PRESSED = 2;     { the left alt key is pressed. }
  24075.   {$EXTERNALSYM RIGHT_CTRL_PRESSED}
  24076.   RIGHT_CTRL_PRESSED = 4;     { the right ctrl key is pressed. }
  24077.   {$EXTERNALSYM LEFT_CTRL_PRESSED}
  24078.   LEFT_CTRL_PRESSED = 8;     { the left ctrl key is pressed. }
  24079.   {$EXTERNALSYM SHIFT_PRESSED}
  24080.   SHIFT_PRESSED = $10;     { the shift key is pressed. }
  24081.   {$EXTERNALSYM NUMLOCK_ON}
  24082.   NUMLOCK_ON = $20;     { the numlock light is on. }
  24083.   {$EXTERNALSYM SCROLLLOCK_ON}
  24084.   SCROLLLOCK_ON = $40;     { the scrolllock light is on. }
  24085.   {$EXTERNALSYM CAPSLOCK_ON}
  24086.   CAPSLOCK_ON = $80;     { the capslock light is on. }
  24087.   {$EXTERNALSYM ENHANCED_KEY}
  24088.   ENHANCED_KEY = $100;     { the key is enhanced. }
  24089.  
  24090. type
  24091.   PMouseEventRecord = ^TMouseEventRecord;
  24092.   {$EXTERNALSYM _MOUSE_EVENT_RECORD}
  24093.   _MOUSE_EVENT_RECORD = packed record
  24094.     dwMousePosition: TCoord;
  24095.     dwButtonState: DWORD;
  24096.     dwControlKeyState: DWORD;
  24097.     dwEventFlags: DWORD;
  24098.   end;
  24099.   TMouseEventRecord = _MOUSE_EVENT_RECORD;
  24100.   {$EXTERNALSYM MOUSE_EVENT_RECORD}
  24101.   MOUSE_EVENT_RECORD = _MOUSE_EVENT_RECORD;
  24102.  
  24103. const
  24104. { ButtonState flags }
  24105.  
  24106.   {$EXTERNALSYM FROM_LEFT_1ST_BUTTON_PRESSED}
  24107.   FROM_LEFT_1ST_BUTTON_PRESSED = 1;
  24108.   {$EXTERNALSYM RIGHTMOST_BUTTON_PRESSED}
  24109.   RIGHTMOST_BUTTON_PRESSED = 2;
  24110.   {$EXTERNALSYM FROM_LEFT_2ND_BUTTON_PRESSED}
  24111.   FROM_LEFT_2ND_BUTTON_PRESSED = 4;
  24112.   {$EXTERNALSYM FROM_LEFT_3RD_BUTTON_PRESSED}
  24113.   FROM_LEFT_3RD_BUTTON_PRESSED = 8;
  24114.   {$EXTERNALSYM FROM_LEFT_4TH_BUTTON_PRESSED}
  24115.   FROM_LEFT_4TH_BUTTON_PRESSED = $10;
  24116.  
  24117. { EventFlags }
  24118.  
  24119.   {$EXTERNALSYM MOUSE_MOVED}
  24120.   MOUSE_MOVED = 1;
  24121.   {$EXTERNALSYM DOUBLE_CLICK}
  24122.   DOUBLE_CLICK = 2;
  24123.  
  24124. type
  24125.   PWindowBufferSizeRecord = ^TWindowBufferSizeRecord;
  24126.   {$EXTERNALSYM _WINDOW_BUFFER_SIZE_RECORD}
  24127.   _WINDOW_BUFFER_SIZE_RECORD = packed record
  24128.     dwSize: TCoord;
  24129.   end;
  24130.   TWindowBufferSizeRecord = _WINDOW_BUFFER_SIZE_RECORD;
  24131.   {$EXTERNALSYM WINDOW_BUFFER_SIZE_RECORD}
  24132.   WINDOW_BUFFER_SIZE_RECORD = _WINDOW_BUFFER_SIZE_RECORD;
  24133.  
  24134.   PMenuEventRecord = ^TMenuEventRecord;
  24135.   {$EXTERNALSYM _MENU_EVENT_RECORD}
  24136.   _MENU_EVENT_RECORD = packed record
  24137.     dwCommandId: UINT;
  24138.   end;
  24139.   TMenuEventRecord = _MENU_EVENT_RECORD;
  24140.   {$EXTERNALSYM MENU_EVENT_RECORD}
  24141.   MENU_EVENT_RECORD = _MENU_EVENT_RECORD;
  24142.  
  24143.   PFocusEventRecord = ^TFocusEventRecord;
  24144.   {$EXTERNALSYM _FOCUS_EVENT_RECORD}
  24145.   _FOCUS_EVENT_RECORD = packed record
  24146.     bSetFocus: BOOL;
  24147.   end;
  24148.   TFocusEventRecord = _FOCUS_EVENT_RECORD;
  24149.   {$EXTERNALSYM FOCUS_EVENT_RECORD}
  24150.   FOCUS_EVENT_RECORD = _FOCUS_EVENT_RECORD;
  24151.  
  24152.   PInputRecord = ^TInputRecord;
  24153.   {$EXTERNALSYM _INPUT_RECORD}
  24154.   _INPUT_RECORD = record
  24155.     EventType: Word;
  24156.     case Integer of
  24157.       0: (KeyEvent: TKeyEventRecord);
  24158.       1: (MouseEvent: TMouseEventRecord);
  24159.       2: (WindowBufferSizeEvent: TWindowBufferSizeRecord);
  24160.       3: (MenuEvent: TMenuEventRecord);
  24161.       4: (FocusEvent: TFocusEventRecord);
  24162.   end;
  24163.   TInputRecord = _INPUT_RECORD;
  24164.   {$EXTERNALSYM INPUT_RECORD}
  24165.   INPUT_RECORD = _INPUT_RECORD;
  24166.  
  24167.  
  24168. const
  24169. {  EventType flags: }
  24170.  
  24171.   {$EXTERNALSYM KEY_EVENT}
  24172.   KEY_EVENT = 1;       { Event contains key event record}
  24173.   _MOUSE_EVENT = 2;  { Renamed }   { Event contains mouse event record }
  24174.   {$EXTERNALSYM WINDOW_BUFFER_SIZE_EVENT}
  24175.   WINDOW_BUFFER_SIZE_EVENT = 4;  { Event contains window change event record }
  24176.   {$EXTERNALSYM MENU_EVENT}
  24177.   MENU_EVENT = 8;     { Event contains menu event record }
  24178.   {$EXTERNALSYM FOCUS_EVENT}
  24179.   FOCUS_EVENT = $10;  { event contains focus change }
  24180.  
  24181. type
  24182.   PCharInfo = ^TCharInfo;
  24183.   {$EXTERNALSYM _CHAR_INFO}
  24184.   _CHAR_INFO = record
  24185.     case Integer of
  24186.       0: (
  24187.         UnicodeChar: WCHAR;
  24188.         Attributes: Word);
  24189.       1: (
  24190.         AsciiChar: CHAR);
  24191.   end;
  24192.   TCharInfo = _CHAR_INFO;
  24193.   {$EXTERNALSYM CHAR_INFO}
  24194.   CHAR_INFO = _CHAR_INFO;
  24195.  
  24196. const
  24197. { Attributes flags:}
  24198.  
  24199.   {$EXTERNALSYM FOREGROUND_BLUE}
  24200.   FOREGROUND_BLUE = 1;    { text color contains blue.}
  24201.   {$EXTERNALSYM FOREGROUND_GREEN}
  24202.   FOREGROUND_GREEN = 2;     { text color contains green. }
  24203.   {$EXTERNALSYM FOREGROUND_RED}
  24204.   FOREGROUND_RED = 4;     { text color contains red. }
  24205.   {$EXTERNALSYM FOREGROUND_INTENSITY}
  24206.   FOREGROUND_INTENSITY = 8;     { text color is intensified. }
  24207.   {$EXTERNALSYM BACKGROUND_BLUE}
  24208.   BACKGROUND_BLUE = $10;     { background color contains blue. }
  24209.   {$EXTERNALSYM BACKGROUND_GREEN}
  24210.   BACKGROUND_GREEN = $20;     { background color contains green. }
  24211.   {$EXTERNALSYM BACKGROUND_RED}
  24212.   BACKGROUND_RED = $40;     { background color contains red. }
  24213.   {$EXTERNALSYM BACKGROUND_INTENSITY}
  24214.   BACKGROUND_INTENSITY = $80;     { background color is intensified. }
  24215.  
  24216. type
  24217.   PConsoleScreenBufferInfo = ^TConsoleScreenBufferInfo;
  24218.   {$EXTERNALSYM _CONSOLE_SCREEN_BUFFER_INFO}
  24219.   _CONSOLE_SCREEN_BUFFER_INFO = packed record
  24220.     dwSize: TCoord;
  24221.     dwCursorPosition: TCoord;
  24222.     wAttributes: Word;
  24223.     srWindow: TSmallRect;
  24224.     dwMaximumWindowSize: TCoord;
  24225.   end;
  24226.   TConsoleScreenBufferInfo = _CONSOLE_SCREEN_BUFFER_INFO;
  24227.   {$EXTERNALSYM CONSOLE_SCREEN_BUFFER_INFO}
  24228.   CONSOLE_SCREEN_BUFFER_INFO = _CONSOLE_SCREEN_BUFFER_INFO;
  24229.  
  24230.   PConsoleCursorInfo = ^TConsoleCursorInfo;
  24231.   {$EXTERNALSYM _CONSOLE_CURSOR_INFO}
  24232.   _CONSOLE_CURSOR_INFO = packed record
  24233.     dwSize: DWORD;
  24234.     bVisible: BOOL;
  24235.   end;
  24236.   TConsoleCursorInfo = _CONSOLE_CURSOR_INFO;
  24237.   {$EXTERNALSYM CONSOLE_CURSOR_INFO}
  24238.   CONSOLE_CURSOR_INFO = _CONSOLE_CURSOR_INFO;
  24239.  
  24240. {$IFDEF STRICT}
  24241.   TFNHandlerRoutine = function (CtrlType: DWORD): BOOL stdcall;
  24242. {$ELSE}
  24243.   TFNHandlerRoutine = TFarProc;
  24244. {$ENDIF}
  24245.  
  24246. const
  24247.   {$EXTERNALSYM CTRL_C_EVENT}
  24248.   CTRL_C_EVENT = 0;
  24249.   {$EXTERNALSYM CTRL_BREAK_EVENT}
  24250.   CTRL_BREAK_EVENT = 1;
  24251.   {$EXTERNALSYM CTRL_CLOSE_EVENT}
  24252.   CTRL_CLOSE_EVENT = 2;
  24253.   { 3 is reserved! }
  24254.   { 4 is reserved! }
  24255.  
  24256.   {$EXTERNALSYM CTRL_LOGOFF_EVENT}
  24257.   CTRL_LOGOFF_EVENT = 5;
  24258.   {$EXTERNALSYM CTRL_SHUTDOWN_EVENT}
  24259.   CTRL_SHUTDOWN_EVENT = 6;
  24260.   {$EXTERNALSYM ENABLE_PROCESSED_INPUT}
  24261.   ENABLE_PROCESSED_INPUT = 1;     {  Input Mode flags: }
  24262.   {$EXTERNALSYM ENABLE_LINE_INPUT}
  24263.   ENABLE_LINE_INPUT = 2;
  24264.   {$EXTERNALSYM ENABLE_ECHO_INPUT}
  24265.   ENABLE_ECHO_INPUT = 4;
  24266.   {$EXTERNALSYM ENABLE_WINDOW_INPUT}
  24267.   ENABLE_WINDOW_INPUT = 8;
  24268.   {$EXTERNALSYM ENABLE_MOUSE_INPUT}
  24269.   ENABLE_MOUSE_INPUT = $10;
  24270.   {$EXTERNALSYM ENABLE_PROCESSED_OUTPUT}
  24271.   ENABLE_PROCESSED_OUTPUT = 1;     { Output Mode flags: }
  24272.   {$EXTERNALSYM ENABLE_WRAP_AT_EOL_OUTPUT}
  24273.   ENABLE_WRAP_AT_EOL_OUTPUT = 2;
  24274.  
  24275. { direct API definitions. }
  24276. {$EXTERNALSYM PeekConsoleInputA}
  24277. function PeekConsoleInputA(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24278.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24279. {$EXTERNALSYM PeekConsoleInputW}
  24280. function PeekConsoleInputW(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24281.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24282. {$EXTERNALSYM PeekConsoleInput}
  24283. function PeekConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24284.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24285. {$EXTERNALSYM ReadConsoleInputA}
  24286. function ReadConsoleInputA(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24287.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24288. {$EXTERNALSYM ReadConsoleInputW}
  24289. function ReadConsoleInputW(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24290.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24291. {$EXTERNALSYM ReadConsoleInput}
  24292. function ReadConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  24293.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  24294. {$EXTERNALSYM WriteConsoleInputA}
  24295. function WriteConsoleInputA(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  24296.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  24297. {$EXTERNALSYM WriteConsoleInputW}
  24298. function WriteConsoleInputW(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  24299.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  24300. {$EXTERNALSYM WriteConsoleInput}
  24301. function WriteConsoleInput(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  24302.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  24303. {$EXTERNALSYM ReadConsoleOutputA}
  24304. function ReadConsoleOutputA(hConsoleOutput: THandle; lpBuffer: Pointer;
  24305.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  24306. {$EXTERNALSYM ReadConsoleOutputW}
  24307. function ReadConsoleOutputW(hConsoleOutput: THandle; lpBuffer: Pointer;
  24308.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  24309. {$EXTERNALSYM ReadConsoleOutput}
  24310. function ReadConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;
  24311.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  24312. {$EXTERNALSYM WriteConsoleOutputA}
  24313. function WriteConsoleOutputA(hConsoleOutput: THandle; lpBuffer: Pointer;
  24314.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  24315. {$EXTERNALSYM WriteConsoleOutputW}
  24316. function WriteConsoleOutputW(hConsoleOutput: THandle; lpBuffer: Pointer;
  24317.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  24318. {$EXTERNALSYM WriteConsoleOutput}
  24319. function WriteConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;
  24320.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  24321. {$EXTERNALSYM ReadConsoleOutputCharacterA}
  24322. function ReadConsoleOutputCharacterA(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  24323.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  24324. {$EXTERNALSYM ReadConsoleOutputCharacterW}
  24325. function ReadConsoleOutputCharacterW(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  24326.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  24327. {$EXTERNALSYM ReadConsoleOutputCharacter}
  24328. function ReadConsoleOutputCharacter(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  24329.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  24330. {$EXTERNALSYM ReadConsoleOutputAttribute}
  24331. function ReadConsoleOutputAttribute(hConsoleOutput: THandle; lpAttribute: Pointer;
  24332.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfAttrsRead: DWORD): BOOL; stdcall;
  24333. {$EXTERNALSYM WriteConsoleOutputCharacterA}
  24334. function WriteConsoleOutputCharacterA(hConsoleOutput: THandle;lpCharacter: PAnsiChar;
  24335.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24336. {$EXTERNALSYM WriteConsoleOutputCharacterW}
  24337. function WriteConsoleOutputCharacterW(hConsoleOutput: THandle;lpCharacter: PWideChar;
  24338.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24339. {$EXTERNALSYM WriteConsoleOutputCharacter}
  24340. function WriteConsoleOutputCharacter(hConsoleOutput: THandle;lpCharacter: PChar;
  24341.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24342. {$EXTERNALSYM WriteConsoleOutputAttribute}
  24343. function WriteConsoleOutputAttribute(hConsoleOutput: THandle; lpAttribute: Pointer;
  24344.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfAttrsWritten: DWORD): BOOL; stdcall;
  24345. {$EXTERNALSYM FillConsoleOutputCharacterA}
  24346. function FillConsoleOutputCharacterA(hConsoleOutput: THandle; cCharacter: AnsiChar;
  24347.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24348. {$EXTERNALSYM FillConsoleOutputCharacterW}
  24349. function FillConsoleOutputCharacterW(hConsoleOutput: THandle; cCharacter: WideChar;
  24350.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24351. {$EXTERNALSYM FillConsoleOutputCharacter}
  24352. function FillConsoleOutputCharacter(hConsoleOutput: THandle; cCharacter: Char;
  24353.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  24354. {$EXTERNALSYM FillConsoleOutputAttribute}
  24355. function FillConsoleOutputAttribute(hConsoleOutput: THandle; wAttribute: Word;
  24356.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfAttrsWritten: DWORD): BOOL; stdcall;
  24357. {$EXTERNALSYM GetConsoleMode}
  24358. function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): BOOL; stdcall;
  24359. {$EXTERNALSYM GetNumberOfConsoleInputEvents}
  24360. function GetNumberOfConsoleInputEvents(hConsoleInput: THandle;
  24361.   var lpNumberOfEvents: DWORD): BOOL; stdcall;
  24362. {$EXTERNALSYM GetConsoleScreenBufferInfo}
  24363. function GetConsoleScreenBufferInfo(hConsoleOutput: THandle;
  24364.   var lpConsoleScreenBufferInfo: TConsoleScreenBufferInfo): BOOL; stdcall;
  24365. {$EXTERNALSYM GetLargestConsoleWindowSize}
  24366. function GetLargestConsoleWindowSize(hConsoleOutput: THandle): TCoord; stdcall;
  24367. {$EXTERNALSYM GetConsoleCursorInfo}
  24368. function GetConsoleCursorInfo(hConsoleOutput: THandle;
  24369.   var lpConsoleCursorInfo: TConsoleCursorInfo): BOOL; stdcall;
  24370. {$EXTERNALSYM GetNumberOfConsoleMouseButtons}
  24371. function GetNumberOfConsoleMouseButtons(var lpNumberOfMouseButtons: DWORD): BOOL; stdcall;
  24372. {$EXTERNALSYM SetConsoleMode}
  24373. function SetConsoleMode(hConsoleHandle: THandle; dwMode: DWORD): BOOL; stdcall;
  24374. {$EXTERNALSYM SetConsoleActiveScreenBuffer}
  24375. function SetConsoleActiveScreenBuffer(hConsoleOutput: THandle): BOOL; stdcall;
  24376. {$EXTERNALSYM FlushConsoleInputBuffer}
  24377. function FlushConsoleInputBuffer(hConsoleInput: THandle): BOOL; stdcall;
  24378. {$EXTERNALSYM SetConsoleScreenBufferSize}
  24379. function SetConsoleScreenBufferSize(hConsoleOutput: THandle; dwSize: TCoord): BOOL; stdcall;
  24380. {$EXTERNALSYM SetConsoleCursorPosition}
  24381. function SetConsoleCursorPosition(hConsoleOutput: THandle; dwCursorPosition: TCoord): BOOL; stdcall;
  24382. {$EXTERNALSYM SetConsoleCursorInfo}
  24383. function SetConsoleCursorInfo(hConsoleOutput: THandle;
  24384.   const lpConsoleCursorInfo: TConsoleCursorInfo): BOOL; stdcall;
  24385. {$EXTERNALSYM ScrollConsoleScreenBufferA}
  24386. function ScrollConsoleScreenBufferA(hConsoleOutput: THandle;
  24387.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  24388.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  24389. {$EXTERNALSYM ScrollConsoleScreenBufferW}
  24390. function ScrollConsoleScreenBufferW(hConsoleOutput: THandle;
  24391.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  24392.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  24393. {$EXTERNALSYM ScrollConsoleScreenBuffer}
  24394. function ScrollConsoleScreenBuffer(hConsoleOutput: THandle;
  24395.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  24396.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  24397. {$EXTERNALSYM SetConsoleWindowInfo}
  24398. function SetConsoleWindowInfo(hConsoleOutput: THandle; bAbsolute: BOOL;
  24399.   const lpConsoleWindow: TSmallRect): BOOL; stdcall;
  24400. {$EXTERNALSYM SetConsoleTextAttribute}
  24401. function SetConsoleTextAttribute(hConsoleOutput: THandle; wAttributes: Word): BOOL; stdcall;
  24402. {$EXTERNALSYM SetConsoleCtrlHandler}
  24403. function SetConsoleCtrlHandler(HandlerRoutine: TFNHandlerRoutine; Add: BOOL): BOOL; stdcall;
  24404. {$EXTERNALSYM GenerateConsoleCtrlEvent}
  24405. function GenerateConsoleCtrlEvent(dwCtrlEvent: DWORD; dwProcessGroupId: DWORD): BOOL; stdcall;
  24406. {$EXTERNALSYM AllocConsole}
  24407. function AllocConsole: BOOL; stdcall;
  24408. {$EXTERNALSYM FreeConsole}
  24409. function FreeConsole: BOOL; stdcall;
  24410. {$EXTERNALSYM GetConsoleTitleA}
  24411. function GetConsoleTitleA(lpConsoleTitle: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  24412. {$EXTERNALSYM GetConsoleTitleW}
  24413. function GetConsoleTitleW(lpConsoleTitle: PWideChar; nSize: DWORD): DWORD; stdcall;
  24414. {$EXTERNALSYM GetConsoleTitle}
  24415. function GetConsoleTitle(lpConsoleTitle: PChar; nSize: DWORD): DWORD; stdcall;
  24416. {$EXTERNALSYM SetConsoleTitleA}
  24417. function SetConsoleTitleA(lpConsoleTitle: PAnsiChar): BOOL; stdcall;
  24418. {$EXTERNALSYM SetConsoleTitleW}
  24419. function SetConsoleTitleW(lpConsoleTitle: PWideChar): BOOL; stdcall;
  24420. {$EXTERNALSYM SetConsoleTitle}
  24421. function SetConsoleTitle(lpConsoleTitle: PChar): BOOL; stdcall;
  24422. {$EXTERNALSYM ReadConsoleA}
  24423. function ReadConsoleA(hConsoleInput: THandle; lpBuffer: Pointer;
  24424.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24425. {$EXTERNALSYM ReadConsoleW}
  24426. function ReadConsoleW(hConsoleInput: THandle; lpBuffer: Pointer;
  24427.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24428. {$EXTERNALSYM ReadConsole}
  24429. function ReadConsole(hConsoleInput: THandle; lpBuffer: Pointer;
  24430.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24431. {$EXTERNALSYM WriteConsoleA}
  24432. function WriteConsoleA(hConsoleOutput: THandle; const lpBuffer: Pointer;
  24433.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24434. {$EXTERNALSYM WriteConsoleW}
  24435. function WriteConsoleW(hConsoleOutput: THandle; const lpBuffer: Pointer;
  24436.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24437. {$EXTERNALSYM WriteConsole}
  24438. function WriteConsole(hConsoleOutput: THandle; const lpBuffer: Pointer;
  24439.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  24440.  
  24441. const
  24442.   {$EXTERNALSYM CONSOLE_TEXTMODE_BUFFER}
  24443.   CONSOLE_TEXTMODE_BUFFER = 1;
  24444.  
  24445. {$EXTERNALSYM CreateConsoleScreenBuffer}
  24446. function CreateConsoleScreenBuffer(dwDesiredAccess, dwShareMode: DWORD;
  24447.   lpSecurityAttributes: PSecurityAttributes; dwFlags: DWORD; lpScreenBufferData: Pointer): THandle; stdcall;
  24448. {$EXTERNALSYM GetConsoleCP}
  24449. function GetConsoleCP: UINT; stdcall;
  24450. {$EXTERNALSYM SetConsoleCP}
  24451. function SetConsoleCP(wCodePageID: UINT): BOOL; stdcall;
  24452. {$EXTERNALSYM GetConsoleOutputCP}
  24453. function GetConsoleOutputCP: UINT; stdcall;
  24454. {$EXTERNALSYM SetConsoleOutputCP}
  24455. function SetConsoleOutputCP(wCodePageID: UINT): BOOL; stdcall;
  24456.  
  24457.  
  24458. { Translated from WINVER.H }
  24459.  
  24460. { Version management functions, types, and definitions
  24461.   Include file for VER.DLL.  This library is designed to allow version
  24462.   stamping of Windows executable files and of special .VER files for
  24463.   DOS executable files. }
  24464.  
  24465. const
  24466. { Symbols }
  24467.  
  24468.   {$EXTERNALSYM VS_FILE_INFO}
  24469.   VS_FILE_INFO = RT_VERSION;
  24470.   {$EXTERNALSYM VS_VERSION_INFO}
  24471.   VS_VERSION_INFO = 1;
  24472.   {$EXTERNALSYM VS_USER_DEFINED}
  24473.   VS_USER_DEFINED = 100;
  24474.  
  24475. { VS_VERSION.dwFileFlags }
  24476.  
  24477.   {$EXTERNALSYM VS_FFI_SIGNATURE}
  24478.   VS_FFI_SIGNATURE = $FEEF04BD;
  24479.   {$EXTERNALSYM VS_FFI_STRUCVERSION}
  24480.   VS_FFI_STRUCVERSION = $10000;
  24481.   {$EXTERNALSYM VS_FFI_FILEFLAGSMASK}
  24482.   VS_FFI_FILEFLAGSMASK = 63;
  24483.  
  24484. { VS_VERSION.dwFileFlags }
  24485.  
  24486.   {$EXTERNALSYM VS_FF_DEBUG}
  24487.   VS_FF_DEBUG = 1;
  24488.   {$EXTERNALSYM VS_FF_PRERELEASE}
  24489.   VS_FF_PRERELEASE = 2;
  24490.   {$EXTERNALSYM VS_FF_PATCHED}
  24491.   VS_FF_PATCHED = 4;
  24492.   {$EXTERNALSYM VS_FF_PRIVATEBUILD}
  24493.   VS_FF_PRIVATEBUILD = 8;
  24494.   {$EXTERNALSYM VS_FF_INFOINFERRED}
  24495.   VS_FF_INFOINFERRED = $10;
  24496.   {$EXTERNALSYM VS_FF_SPECIALBUILD}
  24497.   VS_FF_SPECIALBUILD = $20;
  24498.  
  24499. { VS_VERSION.dwFileOS }
  24500.  
  24501.   {$EXTERNALSYM VOS_UNKNOWN}
  24502.   VOS_UNKNOWN = 0;
  24503.   {$EXTERNALSYM VOS_DOS}
  24504.   VOS_DOS = $10000;
  24505.   {$EXTERNALSYM VOS_OS216}
  24506.   VOS_OS216 = $20000;
  24507.   {$EXTERNALSYM VOS_OS232}
  24508.   VOS_OS232 = $30000;
  24509.   {$EXTERNALSYM VOS_NT}
  24510.   VOS_NT = $40000;
  24511.  
  24512.   {$EXTERNALSYM VOS__BASE}
  24513.   VOS__BASE = 0;
  24514.   {$EXTERNALSYM VOS__WINDOWS16}
  24515.   VOS__WINDOWS16 = 1;
  24516.   {$EXTERNALSYM VOS__PM16}
  24517.   VOS__PM16 = 2;
  24518.   {$EXTERNALSYM VOS__PM32}
  24519.   VOS__PM32 = 3;
  24520.   {$EXTERNALSYM VOS__WINDOWS32}
  24521.   VOS__WINDOWS32 = 4;
  24522.  
  24523.   {$EXTERNALSYM VOS_DOS_WINDOWS16}
  24524.   VOS_DOS_WINDOWS16 = $10001;
  24525.   {$EXTERNALSYM VOS_DOS_WINDOWS32}
  24526.   VOS_DOS_WINDOWS32 = $10004;
  24527.   {$EXTERNALSYM VOS_OS216_PM16}
  24528.   VOS_OS216_PM16 = $20002;
  24529.   {$EXTERNALSYM VOS_OS232_PM32}
  24530.   VOS_OS232_PM32 = $30003;
  24531.   {$EXTERNALSYM VOS_NT_WINDOWS32}
  24532.   VOS_NT_WINDOWS32 = $40004;
  24533.  
  24534. { VS_VERSION.dwFileType }
  24535.  
  24536.   {$EXTERNALSYM VFT_UNKNOWN}
  24537.   VFT_UNKNOWN = 0;
  24538.   {$EXTERNALSYM VFT_APP}
  24539.   VFT_APP = 1;
  24540.   {$EXTERNALSYM VFT_DLL}
  24541.   VFT_DLL = 2;
  24542.   {$EXTERNALSYM VFT_DRV}
  24543.   VFT_DRV = 3;
  24544.   {$EXTERNALSYM VFT_FONT}
  24545.   VFT_FONT = 4;
  24546.   {$EXTERNALSYM VFT_VXD}
  24547.   VFT_VXD = 5;
  24548.   {$EXTERNALSYM VFT_STATIC_LIB}
  24549.   VFT_STATIC_LIB = 7;
  24550.  
  24551. { VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV }
  24552.  
  24553.   {$EXTERNALSYM VFT2_UNKNOWN}
  24554.   VFT2_UNKNOWN = 0;
  24555.   {$EXTERNALSYM VFT2_DRV_PRINTER}
  24556.   VFT2_DRV_PRINTER = 1;
  24557.   {$EXTERNALSYM VFT2_DRV_KEYBOARD}
  24558.   VFT2_DRV_KEYBOARD = 2;
  24559.   {$EXTERNALSYM VFT2_DRV_LANGUAGE}
  24560.   VFT2_DRV_LANGUAGE = 3;
  24561.   {$EXTERNALSYM VFT2_DRV_DISPLAY}
  24562.   VFT2_DRV_DISPLAY = 4;
  24563.   {$EXTERNALSYM VFT2_DRV_MOUSE}
  24564.   VFT2_DRV_MOUSE = 5;
  24565.   {$EXTERNALSYM VFT2_DRV_NETWORK}
  24566.   VFT2_DRV_NETWORK = 6;
  24567.   {$EXTERNALSYM VFT2_DRV_SYSTEM}
  24568.   VFT2_DRV_SYSTEM = 7;
  24569.   {$EXTERNALSYM VFT2_DRV_INSTALLABLE}
  24570.   VFT2_DRV_INSTALLABLE = 8;
  24571.   {$EXTERNALSYM VFT2_DRV_SOUND}
  24572.   VFT2_DRV_SOUND = 9;
  24573.   {$EXTERNALSYM VFT2_DRV_COMM}
  24574.   VFT2_DRV_COMM = 10;
  24575.  
  24576. { VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT }
  24577.  
  24578.   {$EXTERNALSYM VFT2_FONT_RASTER}
  24579.   VFT2_FONT_RASTER = 1;
  24580.   {$EXTERNALSYM VFT2_FONT_VECTOR}
  24581.   VFT2_FONT_VECTOR = 2;
  24582.   {$EXTERNALSYM VFT2_FONT_TRUETYPE}
  24583.   VFT2_FONT_TRUETYPE = 3;
  24584.  
  24585. { VerFindFile() flags }
  24586.  
  24587.   {$EXTERNALSYM VFFF_ISSHAREDFILE}
  24588.   VFFF_ISSHAREDFILE = 1;
  24589.  
  24590.   {$EXTERNALSYM VFF_CURNEDEST}
  24591.   VFF_CURNEDEST = 1;
  24592.   {$EXTERNALSYM VFF_FILEINUSE}
  24593.   VFF_FILEINUSE = 2;
  24594.   {$EXTERNALSYM VFF_BUFFTOOSMALL}
  24595.   VFF_BUFFTOOSMALL = 4;
  24596.  
  24597. { VerInstallFile() flags }
  24598.  
  24599.   {$EXTERNALSYM VIFF_FORCEINSTALL}
  24600.   VIFF_FORCEINSTALL = 1;
  24601.   {$EXTERNALSYM VIFF_DONTDELETEOLD}
  24602.   VIFF_DONTDELETEOLD = 2;
  24603.  
  24604.   {$EXTERNALSYM VIF_TEMPFILE}
  24605.   VIF_TEMPFILE = 1;
  24606.   {$EXTERNALSYM VIF_MISMATCH}
  24607.   VIF_MISMATCH = 2;
  24608.   {$EXTERNALSYM VIF_SRCOLD}
  24609.   VIF_SRCOLD = 4;
  24610.  
  24611.   {$EXTERNALSYM VIF_DIFFLANG}
  24612.   VIF_DIFFLANG = 8;
  24613.   {$EXTERNALSYM VIF_DIFFCODEPG}
  24614.   VIF_DIFFCODEPG = $10;
  24615.   {$EXTERNALSYM VIF_DIFFTYPE}
  24616.   VIF_DIFFTYPE = $20;
  24617.  
  24618.   {$EXTERNALSYM VIF_WRITEPROT}
  24619.   VIF_WRITEPROT = $40;
  24620.   {$EXTERNALSYM VIF_FILEINUSE}
  24621.   VIF_FILEINUSE = $80;
  24622.   {$EXTERNALSYM VIF_OUTOFSPACE}
  24623.   VIF_OUTOFSPACE = $100;
  24624.   {$EXTERNALSYM VIF_ACCESSVIOLATION}
  24625.   VIF_ACCESSVIOLATION = $200;
  24626.   {$EXTERNALSYM VIF_SHARINGVIOLATION}
  24627.   VIF_SHARINGVIOLATION = $400;
  24628.   {$EXTERNALSYM VIF_CANNOTCREATE}
  24629.   VIF_CANNOTCREATE = $800;
  24630.   {$EXTERNALSYM VIF_CANNOTDELETE}
  24631.   VIF_CANNOTDELETE = $1000;
  24632.   {$EXTERNALSYM VIF_CANNOTRENAME}
  24633.   VIF_CANNOTRENAME = $2000;
  24634.   {$EXTERNALSYM VIF_CANNOTDELETECUR}
  24635.   VIF_CANNOTDELETECUR = $4000;
  24636.   {$EXTERNALSYM VIF_OUTOFMEMORY}
  24637.   VIF_OUTOFMEMORY = $8000;
  24638.  
  24639.   {$EXTERNALSYM VIF_CANNOTREADSRC}
  24640.   VIF_CANNOTREADSRC = $10000;
  24641.   {$EXTERNALSYM VIF_CANNOTREADDST}
  24642.   VIF_CANNOTREADDST = $20000;
  24643.  
  24644.   {$EXTERNALSYM VIF_BUFFTOOSMALL}
  24645.   VIF_BUFFTOOSMALL = $40000;
  24646.  
  24647. type
  24648.   PVSFixedFileInfo = ^TVSFixedFileInfo;
  24649.   {$EXTERNALSYM tagVS_FIXEDFILEINFO}
  24650.   tagVS_FIXEDFILEINFO = packed record
  24651.     dwSignature: DWORD;        { e.g. $feef04bd }
  24652.     dwStrucVersion: DWORD;     { e.g. $00000042 = "0.42" }
  24653.     dwFileVersionMS: DWORD;    { e.g. $00030075 = "3.75" }
  24654.     dwFileVersionLS: DWORD;    { e.g. $00000031 = "0.31" }
  24655.     dwProductVersionMS: DWORD; { e.g. $00030010 = "3.10" }
  24656.     dwProductVersionLS: DWORD; { e.g. $00000031 = "0.31" }
  24657.     dwFileFlagsMask: DWORD;    { = $3F for version "0.42" }
  24658.     dwFileFlags: DWORD;        { e.g. VFF_DEBUG | VFF_PRERELEASE }
  24659.     dwFileOS: DWORD;           { e.g. VOS_DOS_WINDOWS16 }
  24660.     dwFileType: DWORD;         { e.g. VFT_DRIVER }
  24661.     dwFileSubtype: DWORD;      { e.g. VFT2_DRV_KEYBOARD }
  24662.     dwFileDateMS: DWORD;       { e.g. 0 }
  24663.     dwFileDateLS: DWORD;       { e.g. 0 }
  24664.   end;
  24665.   TVSFixedFileInfo = tagVS_FIXEDFILEINFO;
  24666.   {$EXTERNALSYM VS_FIXEDFILEINFO}
  24667.   VS_FIXEDFILEINFO = tagVS_FIXEDFILEINFO;
  24668.  
  24669. {$EXTERNALSYM VerFindFileA}
  24670. function VerFindFileA(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PAnsiChar;
  24671.   var lpuCurDirLen: UINT; szDestDir: PAnsiChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  24672. {$EXTERNALSYM VerFindFileW}
  24673. function VerFindFileW(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PWideChar;
  24674.   var lpuCurDirLen: UINT; szDestDir: PWideChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  24675. {$EXTERNALSYM VerFindFile}
  24676. function VerFindFile(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PChar;
  24677.   var lpuCurDirLen: UINT; szDestDir: PChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  24678. {$EXTERNALSYM VerInstallFileA}
  24679. function VerInstallFileA(uFlags: DWORD;
  24680.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PAnsiChar;
  24681.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  24682. {$EXTERNALSYM VerInstallFileW}
  24683. function VerInstallFileW(uFlags: DWORD;
  24684.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PWideChar;
  24685.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  24686. {$EXTERNALSYM VerInstallFile}
  24687. function VerInstallFile(uFlags: DWORD;
  24688.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PChar;
  24689.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  24690.  
  24691. {$EXTERNALSYM GetFileVersionInfoSizeA}
  24692. function GetFileVersionInfoSizeA(lptstrFilename: PAnsiChar; var lpdwHandle: DWORD): DWORD; stdcall;
  24693. {$EXTERNALSYM GetFileVersionInfoSizeW}
  24694. function GetFileVersionInfoSizeW(lptstrFilename: PWideChar; var lpdwHandle: DWORD): DWORD; stdcall;
  24695. {$EXTERNALSYM GetFileVersionInfoSize}
  24696. function GetFileVersionInfoSize(lptstrFilename: PChar; var lpdwHandle: DWORD): DWORD; stdcall;
  24697. {$EXTERNALSYM GetFileVersionInfoA}
  24698. function GetFileVersionInfoA(lptstrFilename: PAnsiChar; dwHandle, dwLen: DWORD;
  24699.   lpData: Pointer): BOOL; stdcall;
  24700. {$EXTERNALSYM GetFileVersionInfoW}
  24701. function GetFileVersionInfoW(lptstrFilename: PWideChar; dwHandle, dwLen: DWORD;
  24702.   lpData: Pointer): BOOL; stdcall;
  24703. {$EXTERNALSYM GetFileVersionInfo}
  24704. function GetFileVersionInfo(lptstrFilename: PChar; dwHandle, dwLen: DWORD;
  24705.   lpData: Pointer): BOOL; stdcall;
  24706. {$EXTERNALSYM VerLanguageNameA}
  24707. function VerLanguageNameA(wLang: DWORD; szLang: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  24708. {$EXTERNALSYM VerLanguageNameW}
  24709. function VerLanguageNameW(wLang: DWORD; szLang: PWideChar; nSize: DWORD): DWORD; stdcall;
  24710. {$EXTERNALSYM VerLanguageName}
  24711. function VerLanguageName(wLang: DWORD; szLang: PChar; nSize: DWORD): DWORD; stdcall;
  24712. {$EXTERNALSYM VerQueryValueA}
  24713. function VerQueryValueA(pBlock: Pointer; lpSubBlock: PAnsiChar;
  24714.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  24715. {$EXTERNALSYM VerQueryValueW}
  24716. function VerQueryValueW(pBlock: Pointer; lpSubBlock: PWideChar;
  24717.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  24718. {$EXTERNALSYM VerQueryValue}
  24719. function VerQueryValue(pBlock: Pointer; lpSubBlock: PChar;
  24720.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  24721.  
  24722.  
  24723. { Translated from WINREG.H }
  24724.  
  24725. { This module contains the function prototypes and constant, type and
  24726.    structure definitions for the Windows 32-Bit Registry API. }
  24727.  
  24728. type
  24729.   {$EXTERNALSYM REGSAM}
  24730.   REGSAM = ACCESS_MASK;  { Requested Key access mask type. }
  24731.  
  24732. {$IFDEF STRICT}
  24733.   HKEY__ = packed record
  24734.     unused: BOOL;
  24735.   end;
  24736.   {$EXTERNALSYM HKEY}
  24737.   HKEY = ^HKEY__;
  24738. {$ELSE}
  24739.   {$EXTERNALSYM HKEY}
  24740.   HKEY = type Integer;
  24741. {$ENDIF}
  24742.   PHKEY = ^HKEY;
  24743.  
  24744. const
  24745. { Reserved Key Handles. }
  24746.  
  24747.   {$EXTERNALSYM HKEY_CLASSES_ROOT}
  24748.   HKEY_CLASSES_ROOT     = $80000000;
  24749.   {$EXTERNALSYM HKEY_CURRENT_USER}
  24750.   HKEY_CURRENT_USER     = $80000001;
  24751.   {$EXTERNALSYM HKEY_LOCAL_MACHINE}
  24752.   HKEY_LOCAL_MACHINE    = $80000002;
  24753.   {$EXTERNALSYM HKEY_USERS}
  24754.   HKEY_USERS            = $80000003;
  24755.   {$EXTERNALSYM HKEY_PERFORMANCE_DATA}
  24756.   HKEY_PERFORMANCE_DATA = $80000004;
  24757.   {$EXTERNALSYM HKEY_CURRENT_CONFIG}
  24758.   HKEY_CURRENT_CONFIG   = $80000005;
  24759.   {$EXTERNALSYM HKEY_DYN_DATA}
  24760.   HKEY_DYN_DATA         = $80000006;
  24761.  
  24762.  
  24763.   {$EXTERNALSYM PROVIDER_KEEPS_VALUE_LENGTH}
  24764.   PROVIDER_KEEPS_VALUE_LENGTH = 1;
  24765.  
  24766. type
  24767.   PValContext = ^TValContext;
  24768.   {$EXTERNALSYM val_context}
  24769.   val_context = packed record
  24770.     valuelen: Integer;       { the total length of this value }
  24771.     value_context: Pointer;  { provider's context }
  24772.     val_buff_ptr: Pointer;   { where in the ouput buffer the value is }
  24773.   end;
  24774.   TValContext = val_context;
  24775.  
  24776.  
  24777. type
  24778. { Provider supplied value/context.}
  24779.   PPValueA = ^TPValueA;
  24780.   PPValueW = ^TPValueW;
  24781.   PPValue = PPValueA;
  24782.   {$EXTERNALSYM pvalueA}
  24783.   pvalueA = packed record
  24784.     pv_valuename: PAnsiChar;           { The value name pointer }
  24785.     pv_valuelen: BOOL;
  24786.     pv_value_context: Pointer;
  24787.     pv_type: DWORD;
  24788.   end;
  24789.   {$EXTERNALSYM pvalueW}
  24790.   pvalueW = packed record
  24791.     pv_valuename: PWideChar;           { The value name pointer }
  24792.     pv_valuelen: BOOL;
  24793.     pv_value_context: Pointer;
  24794.     pv_type: DWORD;
  24795.   end;
  24796.   {$EXTERNALSYM pvalue}
  24797.   pvalue = pvalueA;
  24798.   TPValueA = pvalueA;
  24799.   TPValueW = pvalueW;
  24800.   TPValue = TPValueA;
  24801.  
  24802. {$IFDEF STRICT}
  24803.   TFNQueryHandler = function (keycontext: Pointer; const val_list: TValContext;
  24804.     num_vals: DWORD; outputbuffer: Pointer; var total_outlen: DWORD;
  24805.     input_blen: DWORD): DWORD stdcall;
  24806. {$ELSE}
  24807.   TFNQueryHandler = TFarProc;
  24808. {$ENDIF}
  24809.   PFNQueryHandler = ^TFNQueryHandler;
  24810.  
  24811.   PProviderInfo = ^TProviderInfo;
  24812.   {$EXTERNALSYM provider_info}
  24813.   provider_info = packed record
  24814.     pi_R0_1val: PFNQueryHandler;
  24815.     pi_R0_allvals: PFNQueryHandler;
  24816.     pi_R3_1val: PFNQueryHandler;
  24817.     pi_R3_allvals: PFNQueryHandler;
  24818.     pi_flags: DWORD;              { capability flags (none defined yet). }
  24819.     pi_key_context: Pointer;
  24820.   end;
  24821.   TProviderInfo = provider_info;
  24822.   {$EXTERNALSYM REG_PROVIDER}
  24823.   REG_PROVIDER = provider_info;
  24824.   TRegProvider = TProviderInfo;
  24825.   PProvider = PProviderInfo;
  24826.  
  24827.   PValueEntA = ^TValueEntA;
  24828.   PValueEntW = ^TValueEntW;
  24829.   PValueEnt = PValueEntA;
  24830.   {$EXTERNALSYM value_entA}
  24831.   value_entA = packed record
  24832.     ve_valuename: PAnsiChar;
  24833.     ve_valuelen: DWORD;
  24834.     ve_valueptr: DWORD;
  24835.     ve_type: DWORD;
  24836.   end;
  24837.   {$EXTERNALSYM value_entW}
  24838.   value_entW = packed record
  24839.     ve_valuename: PWideChar;
  24840.     ve_valuelen: DWORD;
  24841.     ve_valueptr: DWORD;
  24842.     ve_type: DWORD;
  24843.   end;
  24844.   {$EXTERNALSYM value_ent}
  24845.   value_ent = value_entA;
  24846.   TValueEntA = value_entA;
  24847.   TValueEntW = value_entW;
  24848.   TValueEnt = TValueEntA;
  24849.   {$EXTERNALSYM VALENTA}
  24850.   VALENTA = value_entA;
  24851.   {$EXTERNALSYM VALENTW}
  24852.   VALENTW = value_entW;
  24853.   {$EXTERNALSYM VALENT}
  24854.   VALENT = VALENTA;
  24855.   TValEnt = TValueEnt;
  24856.   PValEnt = PValueEnt;
  24857.  
  24858.  
  24859. { Default values for parameters that do not exist in the Win 3.1
  24860.   compatible APIs. }
  24861.  
  24862. {$EXTERNALSYM RegCloseKey}
  24863. function RegCloseKey(hKey: HKEY): Longint; stdcall;
  24864.  
  24865. {$EXTERNALSYM RegConnectRegistryA}
  24866. function RegConnectRegistryA(lpMachineName: PAnsiChar; hKey: HKEY;
  24867.   var phkResult: HKEY): Longint; stdcall;
  24868. {$EXTERNALSYM RegConnectRegistryW}
  24869. function RegConnectRegistryW(lpMachineName: PWideChar; hKey: HKEY;
  24870.   var phkResult: HKEY): Longint; stdcall;
  24871. {$EXTERNALSYM RegConnectRegistry}
  24872. function RegConnectRegistry(lpMachineName: PChar; hKey: HKEY;
  24873.   var phkResult: HKEY): Longint; stdcall;
  24874. {$EXTERNALSYM RegCreateKeyA}
  24875. function RegCreateKeyA(hKey: HKEY; lpSubKey: PAnsiChar;
  24876.   var phkResult: HKEY): Longint; stdcall;
  24877. {$EXTERNALSYM RegCreateKeyW}
  24878. function RegCreateKeyW(hKey: HKEY; lpSubKey: PWideChar;
  24879.   var phkResult: HKEY): Longint; stdcall;
  24880. {$EXTERNALSYM RegCreateKey}
  24881. function RegCreateKey(hKey: HKEY; lpSubKey: PChar;
  24882.   var phkResult: HKEY): Longint; stdcall;
  24883. {$EXTERNALSYM RegCreateKeyExA}
  24884. function RegCreateKeyExA(hKey: HKEY; lpSubKey: PAnsiChar;
  24885.   Reserved: DWORD; lpClass: PAnsiChar; dwOptions: DWORD; samDesired: REGSAM;
  24886.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  24887.   lpdwDisposition: PDWORD): Longint; stdcall;
  24888. {$EXTERNALSYM RegCreateKeyExW}
  24889. function RegCreateKeyExW(hKey: HKEY; lpSubKey: PWideChar;
  24890.   Reserved: DWORD; lpClass: PWideChar; dwOptions: DWORD; samDesired: REGSAM;
  24891.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  24892.   lpdwDisposition: PDWORD): Longint; stdcall;
  24893. {$EXTERNALSYM RegCreateKeyEx}
  24894. function RegCreateKeyEx(hKey: HKEY; lpSubKey: PChar;
  24895.   Reserved: DWORD; lpClass: PChar; dwOptions: DWORD; samDesired: REGSAM;
  24896.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  24897.   lpdwDisposition: PDWORD): Longint; stdcall;
  24898. {$EXTERNALSYM RegDeleteKeyA}
  24899. function RegDeleteKeyA(hKey: HKEY; lpSubKey: PAnsiChar): Longint; stdcall;
  24900. {$EXTERNALSYM RegDeleteKeyW}
  24901. function RegDeleteKeyW(hKey: HKEY; lpSubKey: PWideChar): Longint; stdcall;
  24902. {$EXTERNALSYM RegDeleteKey}
  24903. function RegDeleteKey(hKey: HKEY; lpSubKey: PChar): Longint; stdcall;
  24904. {$EXTERNALSYM RegDeleteValueA}
  24905. function RegDeleteValueA(hKey: HKEY; lpValueName: PAnsiChar): Longint; stdcall;
  24906. {$EXTERNALSYM RegDeleteValueW}
  24907. function RegDeleteValueW(hKey: HKEY; lpValueName: PWideChar): Longint; stdcall;
  24908. {$EXTERNALSYM RegDeleteValue}
  24909. function RegDeleteValue(hKey: HKEY; lpValueName: PChar): Longint; stdcall;
  24910. {$EXTERNALSYM RegEnumKeyA}
  24911. function RegEnumKeyA(hKey: HKEY; dwIndex: DWORD; lpName: PAnsiChar; cbName: DWORD): Longint; stdcall;
  24912. {$EXTERNALSYM RegEnumKeyW}
  24913. function RegEnumKeyW(hKey: HKEY; dwIndex: DWORD; lpName: PWideChar; cbName: DWORD): Longint; stdcall;
  24914. {$EXTERNALSYM RegEnumKey}
  24915. function RegEnumKey(hKey: HKEY; dwIndex: DWORD; lpName: PChar; cbName: DWORD): Longint; stdcall;
  24916. {$EXTERNALSYM RegEnumKeyExA}
  24917. function RegEnumKeyExA(hKey: HKEY; dwIndex: DWORD; lpName: PAnsiChar;
  24918.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PAnsiChar;
  24919.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  24920. {$EXTERNALSYM RegEnumKeyExW}
  24921. function RegEnumKeyExW(hKey: HKEY; dwIndex: DWORD; lpName: PWideChar;
  24922.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PWideChar;
  24923.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  24924. {$EXTERNALSYM RegEnumKeyEx}
  24925. function RegEnumKeyEx(hKey: HKEY; dwIndex: DWORD; lpName: PChar;
  24926.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PChar;
  24927.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  24928. {$EXTERNALSYM RegEnumValueA}
  24929. function RegEnumValueA(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  24930.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  24931.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  24932. {$EXTERNALSYM RegEnumValueW}
  24933. function RegEnumValueW(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  24934.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  24935.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  24936. {$EXTERNALSYM RegEnumValue}
  24937. function RegEnumValue(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  24938.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  24939.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  24940. {$EXTERNALSYM RegFlushKey}
  24941. function RegFlushKey(hKey: HKEY): Longint; stdcall;
  24942. {$EXTERNALSYM RegGetKeySecurity}
  24943. function RegGetKeySecurity(hKey: HKEY; SecurityInformation: SECURITY_INFORMATION;
  24944.   pSecurityDescriptor: PSecurityDescriptor; var lpcbSecurityDescriptor: DWORD): Longint; stdcall;
  24945. {$EXTERNALSYM RegLoadKeyA}
  24946. function RegLoadKeyA(hKey: HKEY; lpSubKey, lpFile: PAnsiChar): Longint; stdcall;
  24947. {$EXTERNALSYM RegLoadKeyW}
  24948. function RegLoadKeyW(hKey: HKEY; lpSubKey, lpFile: PWideChar): Longint; stdcall;
  24949. {$EXTERNALSYM RegLoadKey}
  24950. function RegLoadKey(hKey: HKEY; lpSubKey, lpFile: PChar): Longint; stdcall;
  24951. {$EXTERNALSYM RegNotifyChangeKeyValue}
  24952. function RegNotifyChangeKeyValue(hKey: HKEY; bWatchSubtree: BOOL;
  24953.   dwNotifyFilter: DWORD; hEvent: THandle; fAsynchronus: BOOL): Longint; stdcall;
  24954. {$EXTERNALSYM RegOpenKeyA}
  24955. function RegOpenKeyA(hKey: HKEY; lpSubKey: PAnsiChar; var phkResult: HKEY): Longint; stdcall;
  24956. {$EXTERNALSYM RegOpenKeyW}
  24957. function RegOpenKeyW(hKey: HKEY; lpSubKey: PWideChar; var phkResult: HKEY): Longint; stdcall;
  24958. {$EXTERNALSYM RegOpenKey}
  24959. function RegOpenKey(hKey: HKEY; lpSubKey: PChar; var phkResult: HKEY): Longint; stdcall;
  24960. {$EXTERNALSYM RegOpenKeyExA}
  24961. function RegOpenKeyExA(hKey: HKEY; lpSubKey: PAnsiChar;
  24962.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  24963. {$EXTERNALSYM RegOpenKeyExW}
  24964. function RegOpenKeyExW(hKey: HKEY; lpSubKey: PWideChar;
  24965.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  24966. {$EXTERNALSYM RegOpenKeyEx}
  24967. function RegOpenKeyEx(hKey: HKEY; lpSubKey: PChar;
  24968.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  24969. {$EXTERNALSYM RegQueryInfoKeyA}
  24970. function RegQueryInfoKeyA(hKey: HKEY; lpClass: PChar;
  24971.   lpcbClass: PDWORD; lpReserved: Pointer;
  24972.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  24973.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  24974.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  24975. {$EXTERNALSYM RegQueryInfoKeyW}
  24976. function RegQueryInfoKeyW(hKey: HKEY; lpClass: PChar;
  24977.   lpcbClass: PDWORD; lpReserved: Pointer;
  24978.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  24979.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  24980.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  24981. {$EXTERNALSYM RegQueryInfoKey}
  24982. function RegQueryInfoKey(hKey: HKEY; lpClass: PChar;
  24983.   lpcbClass: PDWORD; lpReserved: Pointer;
  24984.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  24985.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  24986.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  24987. {$EXTERNALSYM RegQueryValueA}
  24988. function RegQueryValueA(hKey: HKEY; lpSubKey: PAnsiChar;
  24989.   lpValue: PAnsiChar; var lpcbValue: Longint): Longint; stdcall;
  24990. {$EXTERNALSYM RegQueryValueW}
  24991. function RegQueryValueW(hKey: HKEY; lpSubKey: PWideChar;
  24992.   lpValue: PWideChar; var lpcbValue: Longint): Longint; stdcall;
  24993. {$EXTERNALSYM RegQueryValue}
  24994. function RegQueryValue(hKey: HKEY; lpSubKey: PChar;
  24995.   lpValue: PChar; var lpcbValue: Longint): Longint; stdcall;
  24996. {$EXTERNALSYM RegQueryMultipleValuesA}
  24997. function RegQueryMultipleValuesA(hKey: HKEY; var ValList;
  24998.   NumVals: DWORD; lpValueBuf: PAnsiChar; var ldwTotsize: DWORD): Longint; stdcall;
  24999. {$EXTERNALSYM RegQueryMultipleValuesW}
  25000. function RegQueryMultipleValuesW(hKey: HKEY; var ValList;
  25001.   NumVals: DWORD; lpValueBuf: PWideChar; var ldwTotsize: DWORD): Longint; stdcall;
  25002. {$EXTERNALSYM RegQueryMultipleValues}
  25003. function RegQueryMultipleValues(hKey: HKEY; var ValList;
  25004.   NumVals: DWORD; lpValueBuf: PChar; var ldwTotsize: DWORD): Longint; stdcall;
  25005. {$EXTERNALSYM RegQueryValueExA}
  25006. function RegQueryValueExA(hKey: HKEY; lpValueName: PAnsiChar;
  25007.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  25008. {$EXTERNALSYM RegQueryValueExW}
  25009. function RegQueryValueExW(hKey: HKEY; lpValueName: PWideChar;
  25010.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  25011. {$EXTERNALSYM RegQueryValueEx}
  25012. function RegQueryValueEx(hKey: HKEY; lpValueName: PChar;
  25013.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  25014. {$EXTERNALSYM RegReplaceKeyA}
  25015. function RegReplaceKeyA(hKey: HKEY; lpSubKey: PAnsiChar;
  25016.    lpNewFile: PAnsiChar; lpOldFile: PAnsiChar): Longint; stdcall;
  25017. {$EXTERNALSYM RegReplaceKeyW}
  25018. function RegReplaceKeyW(hKey: HKEY; lpSubKey: PWideChar;
  25019.    lpNewFile: PWideChar; lpOldFile: PWideChar): Longint; stdcall;
  25020. {$EXTERNALSYM RegReplaceKey}
  25021. function RegReplaceKey(hKey: HKEY; lpSubKey: PChar;
  25022.    lpNewFile: PChar; lpOldFile: PChar): Longint; stdcall;
  25023. {$EXTERNALSYM RegRestoreKeyA}
  25024. function RegRestoreKeyA(hKey: HKEY; lpFile: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
  25025. {$EXTERNALSYM RegRestoreKeyW}
  25026. function RegRestoreKeyW(hKey: HKEY; lpFile: PWideChar; dwFlags: DWORD): Longint; stdcall;
  25027. {$EXTERNALSYM RegRestoreKey}
  25028. function RegRestoreKey(hKey: HKEY; lpFile: PChar; dwFlags: DWORD): Longint; stdcall;
  25029. {$EXTERNALSYM RegSaveKeyA}
  25030. function RegSaveKeyA(hKey: HKEY; lpFile: PAnsiChar;
  25031.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  25032. {$EXTERNALSYM RegSaveKeyW}
  25033. function RegSaveKeyW(hKey: HKEY; lpFile: PWideChar;
  25034.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  25035. {$EXTERNALSYM RegSaveKey}
  25036. function RegSaveKey(hKey: HKEY; lpFile: PChar;
  25037.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  25038. {$EXTERNALSYM RegSetKeySecurity}
  25039. function RegSetKeySecurity(hKey: HKEY; SecurityInformation: SECURITY_INFORMATION;
  25040.   pSecurityDescriptor: PSECURITY_DESCRIPTOR): Longint; stdcall;
  25041. {$EXTERNALSYM RegSetValueA}
  25042. function RegSetValueA(hKey: HKEY; lpSubKey: PAnsiChar;
  25043.   dwType: DWORD; lpData: PAnsiChar; cbData: DWORD): Longint; stdcall;
  25044. {$EXTERNALSYM RegSetValueW}
  25045. function RegSetValueW(hKey: HKEY; lpSubKey: PWideChar;
  25046.   dwType: DWORD; lpData: PWideChar; cbData: DWORD): Longint; stdcall;
  25047. {$EXTERNALSYM RegSetValue}
  25048. function RegSetValue(hKey: HKEY; lpSubKey: PChar;
  25049.   dwType: DWORD; lpData: PChar; cbData: DWORD): Longint; stdcall;
  25050. {$EXTERNALSYM RegSetValueExA}
  25051. function RegSetValueExA(hKey: HKEY; lpValueName: PAnsiChar;
  25052.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  25053. {$EXTERNALSYM RegSetValueExW}
  25054. function RegSetValueExW(hKey: HKEY; lpValueName: PWideChar;
  25055.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  25056. {$EXTERNALSYM RegSetValueEx}
  25057. function RegSetValueEx(hKey: HKEY; lpValueName: PChar;
  25058.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  25059. {$EXTERNALSYM RegUnLoadKeyA}
  25060. function RegUnLoadKeyA(hKey: HKEY; lpSubKey: PAnsiChar): Longint; stdcall;
  25061. {$EXTERNALSYM RegUnLoadKeyW}
  25062. function RegUnLoadKeyW(hKey: HKEY; lpSubKey: PWideChar): Longint; stdcall;
  25063. {$EXTERNALSYM RegUnLoadKey}
  25064. function RegUnLoadKey(hKey: HKEY; lpSubKey: PChar): Longint; stdcall;
  25065.  
  25066. { Remoteable System Shutdown APIs }
  25067.  
  25068. {$EXTERNALSYM InitiateSystemShutdownA}
  25069. function InitiateSystemShutdownA(lpMachineName, lpMessage: PAnsiChar;
  25070.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  25071. {$EXTERNALSYM InitiateSystemShutdownW}
  25072. function InitiateSystemShutdownW(lpMachineName, lpMessage: PWideChar;
  25073.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  25074. {$EXTERNALSYM InitiateSystemShutdown}
  25075. function InitiateSystemShutdown(lpMachineName, lpMessage: PChar;
  25076.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  25077. {$EXTERNALSYM AbortSystemShutdownA}
  25078. function AbortSystemShutdownA(lpMachineName: PAnsiChar): BOOL; stdcall;
  25079. {$EXTERNALSYM AbortSystemShutdownW}
  25080. function AbortSystemShutdownW(lpMachineName: PWideChar): BOOL; stdcall;
  25081. {$EXTERNALSYM AbortSystemShutdown}
  25082. function AbortSystemShutdown(lpMachineName: PChar): BOOL; stdcall;
  25083.  
  25084.  
  25085. { Translated from WINNETWK.H }
  25086.  
  25087. const
  25088. { Network types }
  25089.  
  25090.   {$EXTERNALSYM WNNC_NET_MSNET}
  25091.   WNNC_NET_MSNET              = $00010000;
  25092.   {$EXTERNALSYM WNNC_NET_LANMAN}
  25093.   WNNC_NET_LANMAN             = $00020000;
  25094.   {$EXTERNALSYM WNNC_NET_NETWARE}
  25095.   WNNC_NET_NETWARE            = $00030000;
  25096.   {$EXTERNALSYM WNNC_NET_VINES}
  25097.   WNNC_NET_VINES              = $00040000;
  25098.   {$EXTERNALSYM WNNC_NET_10NET}
  25099.   WNNC_NET_10NET              = $00050000;
  25100.   {$EXTERNALSYM WNNC_NET_LOCUS}
  25101.   WNNC_NET_LOCUS              = $00060000;
  25102.   {$EXTERNALSYM WNNC_NET_SUN_PC_NFS}
  25103.   WNNC_NET_SUN_PC_NFS         = $00070000;
  25104.   {$EXTERNALSYM WNNC_NET_LANSTEP}
  25105.   WNNC_NET_LANSTEP            = $00080000;
  25106.   {$EXTERNALSYM WNNC_NET_9TILES}
  25107.   WNNC_NET_9TILES             = $00090000;
  25108.   {$EXTERNALSYM WNNC_NET_LANTASTIC}
  25109.   WNNC_NET_LANTASTIC          = $000A0000;
  25110.   {$EXTERNALSYM WNNC_NET_AS400}
  25111.   WNNC_NET_AS400              = $000B0000;
  25112.   {$EXTERNALSYM WNNC_NET_FTP_NFS}
  25113.   WNNC_NET_FTP_NFS            = $000C0000;
  25114.   {$EXTERNALSYM WNNC_NET_PATHWORKS}
  25115.   WNNC_NET_PATHWORKS          = $000D0000;
  25116.   {$EXTERNALSYM WNNC_NET_LIFENET}
  25117.   WNNC_NET_LIFENET            = $000E0000;
  25118.   {$EXTERNALSYM WNNC_NET_POWERLAN}
  25119.   WNNC_NET_POWERLAN           = $000F0000;
  25120.   {$EXTERNALSYM WNNC_NET_BWNFS}
  25121.   WNNC_NET_BWNFS              = $00100000;
  25122.   {$EXTERNALSYM WNNC_NET_COGENT}
  25123.   WNNC_NET_COGENT             = $00110000;
  25124.   {$EXTERNALSYM WNNC_NET_FARALLON}
  25125.   WNNC_NET_FARALLON           = $00120000;
  25126.   {$EXTERNALSYM WNNC_NET_APPLETALK}
  25127.   WNNC_NET_APPLETALK          = $00130000;
  25128.   {$EXTERNALSYM WNNC_NET_INTERGRAPH}
  25129.   WNNC_NET_INTERGRAPH         = $00140000;
  25130.   {$EXTERNALSYM WNNC_NET_SYMFONET}
  25131.   WNNC_NET_SYMFONET           = $00150000;
  25132.   {$EXTERNALSYM WNNC_NET_CLEARCASE}
  25133.   WNNC_NET_CLEARCASE          = $00160000;
  25134.  
  25135. { Network Resources. }
  25136.  
  25137.   {$EXTERNALSYM RESOURCE_CONNECTED}
  25138.   RESOURCE_CONNECTED = 1;
  25139.   {$EXTERNALSYM RESOURCE_GLOBALNET}
  25140.   RESOURCE_GLOBALNET = 2;
  25141.   {$EXTERNALSYM RESOURCE_REMEMBERED}
  25142.   RESOURCE_REMEMBERED = 3;
  25143.   {$EXTERNALSYM RESOURCE_RECENT}
  25144.   RESOURCE_RECENT = 4;
  25145.   {$EXTERNALSYM RESOURCE_CONTEXT}
  25146.   RESOURCE_CONTEXT = 5;
  25147.  
  25148.   {$EXTERNALSYM RESOURCETYPE_ANY}
  25149.   RESOURCETYPE_ANY = 0;
  25150.   {$EXTERNALSYM RESOURCETYPE_DISK}
  25151.   RESOURCETYPE_DISK = 1;
  25152.   {$EXTERNALSYM RESOURCETYPE_PRINT}
  25153.   RESOURCETYPE_PRINT = 2;
  25154.   {$EXTERNALSYM RESOURCETYPE_RESERVED}
  25155.   RESOURCETYPE_RESERVED = 8;
  25156.   {$EXTERNALSYM RESOURCETYPE_UNKNOWN}
  25157.   RESOURCETYPE_UNKNOWN = $FFFFFFFF;
  25158.  
  25159.   {$EXTERNALSYM RESOURCEUSAGE_CONNECTABLE}
  25160.   RESOURCEUSAGE_CONNECTABLE = 1;
  25161.   {$EXTERNALSYM RESOURCEUSAGE_CONTAINER}
  25162.   RESOURCEUSAGE_CONTAINER = 2;
  25163.   {$EXTERNALSYM RESOURCEUSAGE_NOLOCALDEVICE}
  25164.   RESOURCEUSAGE_NOLOCALDEVICE = 4;
  25165.   {$EXTERNALSYM RESOURCEUSAGE_SIBLING}
  25166.   RESOURCEUSAGE_SIBLING = 8;
  25167.  
  25168.   {$EXTERNALSYM RESOURCEUSAGE_ATTACHED}
  25169.   RESOURCEUSAGE_ATTACHED = $00000010;
  25170.   {$EXTERNALSYM RESOURCEUSAGE_ALL}
  25171.   RESOURCEUSAGE_ALL = (RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER or RESOURCEUSAGE_ATTACHED);
  25172.   {$EXTERNALSYM RESOURCEUSAGE_RESERVED}
  25173.   RESOURCEUSAGE_RESERVED = $80000000;
  25174.  
  25175.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GENERIC}
  25176.   RESOURCEDISPLAYTYPE_GENERIC            = $00000000;
  25177.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DOMAIN}
  25178.   RESOURCEDISPLAYTYPE_DOMAIN             = $00000001;
  25179.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SERVER}
  25180.   RESOURCEDISPLAYTYPE_SERVER             = $00000002;
  25181.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHARE}
  25182.   RESOURCEDISPLAYTYPE_SHARE              = $00000003;
  25183.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_FILE}
  25184.   RESOURCEDISPLAYTYPE_FILE               = $00000004;
  25185.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GROUP}
  25186.   RESOURCEDISPLAYTYPE_GROUP              = $00000005;
  25187.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NETWORK}
  25188.   RESOURCEDISPLAYTYPE_NETWORK            = $00000006;
  25189.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_ROOT}
  25190.   RESOURCEDISPLAYTYPE_ROOT               = $00000007;
  25191.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHAREADMIN}
  25192.   RESOURCEDISPLAYTYPE_SHAREADMIN         = $00000008;
  25193.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DIRECTORY}
  25194.   RESOURCEDISPLAYTYPE_DIRECTORY          = $00000009;
  25195.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_TREE}
  25196.   RESOURCEDISPLAYTYPE_TREE               = $0000000A;
  25197.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NDSCONTAINER}
  25198.   RESOURCEDISPLAYTYPE_NDSCONTAINER       = $0000000B;
  25199.  
  25200. type
  25201.   PNetResourceA = ^TNetResourceA;
  25202.   PNetResourceW = ^TNetResourceW;
  25203.   PNetResource = PNetResourceA;
  25204.   {$EXTERNALSYM _NETRESOURCEA}
  25205.   _NETRESOURCEA = packed record
  25206.     dwScope: DWORD;
  25207.     dwType: DWORD;
  25208.     dwDisplayType: DWORD;
  25209.     dwUsage: DWORD;
  25210.     lpLocalName: PAnsiChar;
  25211.     lpRemoteName: PAnsiChar;
  25212.     lpComment: PAnsiChar;
  25213.     lpProvider: PAnsiChar;
  25214.   end;
  25215.   {$EXTERNALSYM _NETRESOURCEW}
  25216.   _NETRESOURCEW = packed record
  25217.     dwScope: DWORD;
  25218.     dwType: DWORD;
  25219.     dwDisplayType: DWORD;
  25220.     dwUsage: DWORD;
  25221.     lpLocalName: PWideChar;
  25222.     lpRemoteName: PWideChar;
  25223.     lpComment: PWideChar;
  25224.     lpProvider: PWideChar;
  25225.   end;
  25226.   {$EXTERNALSYM _NETRESOURCE}
  25227.   _NETRESOURCE = _NETRESOURCEA;
  25228.   TNetResourceA = _NETRESOURCEA;
  25229.   TNetResourceW = _NETRESOURCEW;
  25230.   TNetResource = TNetResourceA;
  25231.   {$EXTERNALSYM NETRESOURCEA}
  25232.   NETRESOURCEA = _NETRESOURCEA;
  25233.   {$EXTERNALSYM NETRESOURCEW}
  25234.   NETRESOURCEW = _NETRESOURCEW;
  25235.   {$EXTERNALSYM NETRESOURCE}
  25236.   NETRESOURCE = NETRESOURCEA;
  25237.  
  25238. const
  25239. { Network Connections. }
  25240.  
  25241.   {$EXTERNALSYM NETPROPERTY_PERSISTENT}
  25242.   NETPROPERTY_PERSISTENT = 1;
  25243.  
  25244.   {$EXTERNALSYM CONNECT_UPDATE_PROFILE}
  25245.   CONNECT_UPDATE_PROFILE          = $00000001;
  25246.   {$EXTERNALSYM CONNECT_UPDATE_RECENT}
  25247.   CONNECT_UPDATE_RECENT           = $00000002;
  25248.   {$EXTERNALSYM CONNECT_TEMPORARY}
  25249.   CONNECT_TEMPORARY               = $00000004;
  25250.   {$EXTERNALSYM CONNECT_INTERACTIVE}
  25251.   CONNECT_INTERACTIVE             = $00000008;
  25252.   {$EXTERNALSYM CONNECT_PROMPT}
  25253.   CONNECT_PROMPT                  = $00000010;
  25254.   {$EXTERNALSYM CONNECT_NEED_DRIVE}
  25255.   CONNECT_NEED_DRIVE              = $00000020;
  25256.   {$EXTERNALSYM CONNECT_REFCOUNT}
  25257.   CONNECT_REFCOUNT                = $00000040;
  25258.   {$EXTERNALSYM CONNECT_REDIRECT}
  25259.   CONNECT_REDIRECT                = $00000080;
  25260.   {$EXTERNALSYM CONNECT_LOCALDRIVE}
  25261.   CONNECT_LOCALDRIVE              = $00000100;
  25262.   {$EXTERNALSYM CONNECT_CURRENT_MEDIA}
  25263.   CONNECT_CURRENT_MEDIA           = $00000200;
  25264.   {$EXTERNALSYM CONNECT_DEFERRED}
  25265.   CONNECT_DEFERRED                = $00000400;
  25266.   {$EXTERNALSYM CONNECT_RESERVED}
  25267.   CONNECT_RESERVED                = $FF000000;
  25268.  
  25269. {$EXTERNALSYM WNetAddConnectionA}
  25270. function WNetAddConnectionA(lpRemoteName, lpPassword, lpLocalName: PAnsiChar): DWORD; stdcall;
  25271. {$EXTERNALSYM WNetAddConnectionW}
  25272. function WNetAddConnectionW(lpRemoteName, lpPassword, lpLocalName: PWideChar): DWORD; stdcall;
  25273. {$EXTERNALSYM WNetAddConnection}
  25274. function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: PChar): DWORD; stdcall;
  25275. {$EXTERNALSYM WNetAddConnection2A}
  25276. function WNetAddConnection2A(var lpNetResource: TNetResourceA;
  25277.   lpPassword, lpUserName: PAnsiChar; dwFlags: DWORD): DWORD; stdcall;
  25278. {$EXTERNALSYM WNetAddConnection2W}
  25279. function WNetAddConnection2W(var lpNetResource: TNetResourceW;
  25280.   lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;
  25281. {$EXTERNALSYM WNetAddConnection2}
  25282. function WNetAddConnection2(var lpNetResource: TNetResource;
  25283.   lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
  25284. {$EXTERNALSYM WNetAddConnection3A}
  25285. function WNetAddConnection3A(hwndOwner: HWND; var lpNetResource: TNetResourceA;
  25286.   lpPassword, lpUserName: PAnsiChar; dwFlags: DWORD): DWORD; stdcall;
  25287. {$EXTERNALSYM WNetAddConnection3W}
  25288. function WNetAddConnection3W(hwndOwner: HWND; var lpNetResource: TNetResourceW;
  25289.   lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;
  25290. {$EXTERNALSYM WNetAddConnection3}
  25291. function WNetAddConnection3(hwndOwner: HWND; var lpNetResource: TNetResource;
  25292.   lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
  25293. {$EXTERNALSYM WNetCancelConnectionA}
  25294. function WNetCancelConnectionA(lpName: PAnsiChar; fForce: BOOL): DWORD; stdcall;
  25295. {$EXTERNALSYM WNetCancelConnectionW}
  25296. function WNetCancelConnectionW(lpName: PWideChar; fForce: BOOL): DWORD; stdcall;
  25297. {$EXTERNALSYM WNetCancelConnection}
  25298. function WNetCancelConnection(lpName: PChar; fForce: BOOL): DWORD; stdcall;
  25299. {$EXTERNALSYM WNetCancelConnection2A}
  25300. function WNetCancelConnection2A(lpName: PAnsiChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  25301. {$EXTERNALSYM WNetCancelConnection2W}
  25302. function WNetCancelConnection2W(lpName: PWideChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  25303. {$EXTERNALSYM WNetCancelConnection2}
  25304. function WNetCancelConnection2(lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  25305. {$EXTERNALSYM WNetGetConnectionA}
  25306. function WNetGetConnectionA(lpLocalName: PAnsiChar;
  25307.   lpRemoteName: PAnsiChar; var lpnLength: DWORD): DWORD; stdcall;
  25308. {$EXTERNALSYM WNetGetConnectionW}
  25309. function WNetGetConnectionW(lpLocalName: PWideChar;
  25310.   lpRemoteName: PWideChar; var lpnLength: DWORD): DWORD; stdcall;
  25311. {$EXTERNALSYM WNetGetConnection}
  25312. function WNetGetConnection(lpLocalName: PChar;
  25313.   lpRemoteName: PChar; var lpnLength: DWORD): DWORD; stdcall;
  25314. {$EXTERNALSYM WNetUseConnectionA}
  25315. function WNetUseConnectionA(hwndOwner: HWND;
  25316.   var lpNetResource: TNetResourceA; lpUserID: PAnsiChar;
  25317.   lpPassword: PAnsiChar; dwFlags: DWORD; lpAccessName: PAnsiChar;
  25318.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  25319. {$EXTERNALSYM WNetUseConnectionW}
  25320. function WNetUseConnectionW(hwndOwner: HWND;
  25321.   var lpNetResource: TNetResourceW; lpUserID: PWideChar;
  25322.   lpPassword: PWideChar; dwFlags: DWORD; lpAccessName: PWideChar;
  25323.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  25324. {$EXTERNALSYM WNetUseConnection}
  25325. function WNetUseConnection(hwndOwner: HWND;
  25326.   var lpNetResource: TNetResource; lpUserID: PChar;
  25327.   lpPassword: PChar; dwFlags: DWORD; lpAccessName: PChar;
  25328.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  25329. {$EXTERNALSYM WNetSetConnectionA}
  25330. function WNetSetConnectionA(lpName: PAnsiChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  25331. {$EXTERNALSYM WNetSetConnectionW}
  25332. function WNetSetConnectionW(lpName: PWideChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  25333. {$EXTERNALSYM WNetSetConnection}
  25334. function WNetSetConnection(lpName: PChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  25335.  
  25336. { Network Connection Dialogs. }
  25337.  
  25338. {$EXTERNALSYM WNetConnectionDialog}
  25339. function WNetConnectionDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  25340. {$EXTERNALSYM WNetDisconnectDialog}
  25341. function WNetDisconnectDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  25342.  
  25343. type
  25344.   PConnectDlgStruct = ^TConnectDlgStruct;
  25345.   {$EXTERNALSYM _CONNECTDLGSTRUCTA}
  25346.   _CONNECTDLGSTRUCTA = packed record
  25347.     cbStructure: DWORD;          { size of this structure in bytes }
  25348.     hwndOwner: HWND;             { owner window for the dialog }
  25349.     lpConnRes: PNetResource;     { Requested Resource info    }
  25350.     dwFlags: DWORD;              { flags (see below) }
  25351.     dwDevNum: DWORD;             { number of devices connected to }
  25352.   end;
  25353.   TConnectDlgStruct = _CONNECTDLGSTRUCTA;
  25354.   {$EXTERNALSYM CONNECTDLGSTRUCT}
  25355.   CONNECTDLGSTRUCT = _CONNECTDLGSTRUCTA;
  25356.  
  25357. const
  25358.   {$EXTERNALSYM CONNDLG_RO_PATH}
  25359.   CONNDLG_RO_PATH = 1;    { Resource path should be read-only     }
  25360.   {$EXTERNALSYM CONNDLG_CONN_POINT}
  25361.   CONNDLG_CONN_POINT = 2; { Netware -style movable connection point enabled  }
  25362.   {$EXTERNALSYM CONNDLG_USE_MRU}
  25363.   CONNDLG_USE_MRU = 4;    { Use MRU combobox   }
  25364.   {$EXTERNALSYM CONNDLG_HIDE_BOX}
  25365.   CONNDLG_HIDE_BOX = 8;   { Hide persistent connect checkbox   }
  25366.  
  25367.   { NOTE:  Set at most ONE of the below flags.  If neither flag is set,
  25368.            then the persistence is set to whatever the user chose during
  25369.            a previous connection }
  25370.  
  25371.   {$EXTERNALSYM CONNDLG_PERSIST}
  25372.   CONNDLG_PERSIST = $10;       { Force persistent connection  }
  25373.   {$EXTERNALSYM CONNDLG_NOT_PERSIST}
  25374.   CONNDLG_NOT_PERSIST = $20;   { Force connection NOT persistent  }
  25375.  
  25376. {$EXTERNALSYM WNetConnectionDialog1A}
  25377. function WNetConnectionDialog1A(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  25378. {$EXTERNALSYM WNetConnectionDialog1W}
  25379. function WNetConnectionDialog1W(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  25380. {$EXTERNALSYM WNetConnectionDialog1}
  25381. function WNetConnectionDialog1(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  25382.  
  25383. type
  25384.   PDiscDlgStructA = ^TDiscDlgStructA;
  25385.   PDiscDlgStructW = ^TDiscDlgStructW;
  25386.   PDiscDlgStruct = PDiscDlgStructA;
  25387.   {$EXTERNALSYM _DISCDLGSTRUCTA}
  25388.   _DISCDLGSTRUCTA = packed record
  25389.     cbStructure: DWORD;       { size of this structure in bytes }
  25390.     hwndOwner: HWND;          { owner window for the dialog }
  25391.     lpLocalName: PAnsiChar;       { local device name }
  25392.     lpRemoteName: PAnsiChar;      { network resource name }
  25393.     dwFlags: DWORD;
  25394.   end;
  25395.   {$EXTERNALSYM _DISCDLGSTRUCTW}
  25396.   _DISCDLGSTRUCTW = packed record
  25397.     cbStructure: DWORD;       { size of this structure in bytes }
  25398.     hwndOwner: HWND;          { owner window for the dialog }
  25399.     lpLocalName: PWideChar;       { local device name }
  25400.     lpRemoteName: PWideChar;      { network resource name }
  25401.     dwFlags: DWORD;
  25402.   end;
  25403.   {$EXTERNALSYM _DISCDLGSTRUCT}
  25404.   _DISCDLGSTRUCT = _DISCDLGSTRUCTA;
  25405.   TDiscDlgStructA = _DISCDLGSTRUCTA;
  25406.   TDiscDlgStructW = _DISCDLGSTRUCTW;
  25407.   TDiscDlgStruct = TDiscDlgStructA;
  25408.   {$EXTERNALSYM DISCDLGSTRUCTA}
  25409.   DISCDLGSTRUCTA = _DISCDLGSTRUCTA;
  25410.   {$EXTERNALSYM DISCDLGSTRUCTW}
  25411.   DISCDLGSTRUCTW = _DISCDLGSTRUCTW;
  25412.   {$EXTERNALSYM DISCDLGSTRUCT}
  25413.   DISCDLGSTRUCT = DISCDLGSTRUCTA;
  25414.  
  25415. const
  25416.   {$EXTERNALSYM DISC_UPDATE_PROFILE}
  25417.   DISC_UPDATE_PROFILE = 1;
  25418.   {$EXTERNALSYM DISC_NO_FORCE}
  25419.   DISC_NO_FORCE = $40;
  25420.  
  25421. {$EXTERNALSYM WNetDisconnectDialog1A}
  25422. function WNetDisconnectDialog1A(var lpConnDlgStruct: TDiscDlgStructA): DWORD; stdcall;
  25423. {$EXTERNALSYM WNetDisconnectDialog1W}
  25424. function WNetDisconnectDialog1W(var lpConnDlgStruct: TDiscDlgStructW): DWORD; stdcall;
  25425. {$EXTERNALSYM WNetDisconnectDialog1}
  25426. function WNetDisconnectDialog1(var lpConnDlgStruct: TDiscDlgStruct): DWORD; stdcall;
  25427.  
  25428. { Network Browsing. }
  25429.  
  25430. {$EXTERNALSYM WNetOpenEnumA}
  25431. function WNetOpenEnumA(dwScope, dwType, dwUsage: DWORD;
  25432.   lpNetResource: PNetResourceA; var lphEnum: THandle): DWORD; stdcall;
  25433. {$EXTERNALSYM WNetOpenEnumW}
  25434. function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD;
  25435.   lpNetResource: PNetResourceW; var lphEnum: THandle): DWORD; stdcall;
  25436. {$EXTERNALSYM WNetOpenEnum}
  25437. function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;
  25438.   lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;
  25439. {$EXTERNALSYM WNetEnumResourceA}
  25440. function WNetEnumResourceA(hEnum: THandle; var lpcCount: DWORD;
  25441.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25442. {$EXTERNALSYM WNetEnumResourceW}
  25443. function WNetEnumResourceW(hEnum: THandle; var lpcCount: DWORD;
  25444.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25445. {$EXTERNALSYM WNetEnumResource}
  25446. function WNetEnumResource(hEnum: THandle; var lpcCount: DWORD;
  25447.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25448. {$EXTERNALSYM WNetCloseEnum}
  25449. function WNetCloseEnum(hEnum: THandle): DWORD; stdcall;
  25450. {$EXTERNALSYM WNetGetResourceParentA}
  25451. function WNetGetResourceParentA(lpNetResource: PNetResourceA;
  25452.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  25453. {$EXTERNALSYM WNetGetResourceParentW}
  25454. function WNetGetResourceParentW(lpNetResource: PNetResourceW;
  25455.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  25456. {$EXTERNALSYM WNetGetResourceParent}
  25457. function WNetGetResourceParent(lpNetResource: PNetResource;
  25458.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  25459.  
  25460. const
  25461. { Universal Naming. }
  25462.  
  25463.   {$EXTERNALSYM UNIVERSAL_NAME_INFO_LEVEL}
  25464.   UNIVERSAL_NAME_INFO_LEVEL = 1;
  25465.   {$EXTERNALSYM REMOTE_NAME_INFO_LEVEL}
  25466.   REMOTE_NAME_INFO_LEVEL = 2;
  25467.  
  25468. type
  25469.   PUniversalNameInfoA = ^TUniversalNameInfoA;
  25470.   PUniversalNameInfoW = ^TUniversalNameInfoW;
  25471.   PUniversalNameInfo = PUniversalNameInfoA;
  25472.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOA}
  25473.   _UNIVERSAL_NAME_INFOA = packed record
  25474.     lpUniversalName: PAnsiChar;
  25475.   end;
  25476.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOW}
  25477.   _UNIVERSAL_NAME_INFOW = packed record
  25478.     lpUniversalName: PWideChar;
  25479.   end;
  25480.   {$EXTERNALSYM _UNIVERSAL_NAME_INFO}
  25481.   _UNIVERSAL_NAME_INFO = _UNIVERSAL_NAME_INFOA;
  25482.   TUniversalNameInfoA = _UNIVERSAL_NAME_INFOA;
  25483.   TUniversalNameInfoW = _UNIVERSAL_NAME_INFOW;
  25484.   TUniversalNameInfo = TUniversalNameInfoA;
  25485.   {$EXTERNALSYM UNIVERSAL_NAME_INFOA}
  25486.   UNIVERSAL_NAME_INFOA = _UNIVERSAL_NAME_INFOA;
  25487.   {$EXTERNALSYM UNIVERSAL_NAME_INFOW}
  25488.   UNIVERSAL_NAME_INFOW = _UNIVERSAL_NAME_INFOW;
  25489.   {$EXTERNALSYM UNIVERSAL_NAME_INFO}
  25490.   UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFOA;
  25491.  
  25492.   PRemoteNameInfoA = ^TRemoteNameInfoA;
  25493.   PRemoteNameInfoW = ^TRemoteNameInfoW;
  25494.   PRemoteNameInfo = PRemoteNameInfoA;
  25495.   {$EXTERNALSYM _REMOTE_NAME_INFOA}
  25496.   _REMOTE_NAME_INFOA = packed record
  25497.     lpUniversalName: PAnsiChar;
  25498.     lpConnectionName: PAnsiChar;
  25499.     lpRemainingPath: PAnsiChar;
  25500.   end;
  25501.   {$EXTERNALSYM _REMOTE_NAME_INFOW}
  25502.   _REMOTE_NAME_INFOW = packed record
  25503.     lpUniversalName: PWideChar;
  25504.     lpConnectionName: PWideChar;
  25505.     lpRemainingPath: PWideChar;
  25506.   end;
  25507.   {$EXTERNALSYM _REMOTE_NAME_INFO}
  25508.   _REMOTE_NAME_INFO = _REMOTE_NAME_INFOA;
  25509.   TRemoteNameInfoA = _REMOTE_NAME_INFOA;
  25510.   TRemoteNameInfoW = _REMOTE_NAME_INFOW;
  25511.   TRemoteNameInfo = TRemoteNameInfoA;
  25512.   {$EXTERNALSYM REMOTE_NAME_INFOA}
  25513.   REMOTE_NAME_INFOA = _REMOTE_NAME_INFOA;
  25514.   {$EXTERNALSYM REMOTE_NAME_INFOW}
  25515.   REMOTE_NAME_INFOW = _REMOTE_NAME_INFOW;
  25516.   {$EXTERNALSYM REMOTE_NAME_INFO}
  25517.   REMOTE_NAME_INFO = REMOTE_NAME_INFOA;
  25518.  
  25519. {$EXTERNALSYM WNetGetUniversalNameA}
  25520. function WNetGetUniversalNameA(lpLocalPath: PAnsiChar; dwInfoLevel: DWORD;
  25521.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25522. {$EXTERNALSYM WNetGetUniversalNameW}
  25523. function WNetGetUniversalNameW(lpLocalPath: PWideChar; dwInfoLevel: DWORD;
  25524.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25525. {$EXTERNALSYM WNetGetUniversalName}
  25526. function WNetGetUniversalName(lpLocalPath: PChar; dwInfoLevel: DWORD;
  25527.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  25528.  
  25529. { Authentication and Logon/Logoff }
  25530.  
  25531. {$EXTERNALSYM WNetGetUserA}
  25532. function WNetGetUserA(lpName: PAnsiChar; lpUserName: PAnsiChar; var lpnLength: DWORD): DWORD; stdcall;
  25533. {$EXTERNALSYM WNetGetUserW}
  25534. function WNetGetUserW(lpName: PWideChar; lpUserName: PWideChar; var lpnLength: DWORD): DWORD; stdcall;
  25535. {$EXTERNALSYM WNetGetUser}
  25536. function WNetGetUser(lpName: PChar; lpUserName: PChar; var lpnLength: DWORD): DWORD; stdcall;
  25537.  
  25538. const
  25539.   {$EXTERNALSYM WNFMT_MULTILINE}
  25540.   WNFMT_MULTILINE = 1;
  25541.   {$EXTERNALSYM WNFMT_ABBREVIATED}
  25542.   WNFMT_ABBREVIATED = 2;
  25543.   {$EXTERNALSYM WNFMT_INENUM}
  25544.   WNFMT_INENUM = $10;
  25545.   {$EXTERNALSYM WNFMT_CONNECTION}
  25546.   WNFMT_CONNECTION = $20;
  25547.  
  25548. {$EXTERNALSYM WNetGetProviderNameA}
  25549. function WNetGetProviderNameA(dwNetType: DWORD; lpProviderName: PAnsiChar;
  25550.   var lpBufferSize: DWORD): DWORD; stdcall;
  25551. {$EXTERNALSYM WNetGetProviderNameW}
  25552. function WNetGetProviderNameW(dwNetType: DWORD; lpProviderName: PWideChar;
  25553.   var lpBufferSize: DWORD): DWORD; stdcall;
  25554. {$EXTERNALSYM WNetGetProviderName}
  25555. function WNetGetProviderName(dwNetType: DWORD; lpProviderName: PChar;
  25556.   var lpBufferSize: DWORD): DWORD; stdcall;
  25557.  
  25558. type
  25559.   PNetInfoStruct = ^TNetInfoStruct;
  25560.   {$EXTERNALSYM _NETINFOSTRUCT}
  25561.   _NETINFOSTRUCT = record
  25562.     cbStructure: DWORD;
  25563.     dwProviderVersion: DWORD;
  25564.     dwStatus: DWORD;
  25565.     dwCharacteristics: DWORD;
  25566.     dwHandle: DWORD;
  25567.     wNetType: Word;
  25568.     dwPrinters: DWORD;
  25569.     dwDrives: DWORD;
  25570.   end;
  25571.   TNetInfoStruct = _NETINFOSTRUCT;
  25572.   {$EXTERNALSYM NETINFOSTRUCT}
  25573.   NETINFOSTRUCT = _NETINFOSTRUCT;
  25574.  
  25575. const
  25576.   {$EXTERNALSYM NETINFO_DLL16}
  25577.   NETINFO_DLL16 = 1;      { Provider running as 16 bit Winnet Driver  }
  25578.   {$EXTERNALSYM NETINFO_DISKRED}
  25579.   NETINFO_DISKRED = 4;    { Provider requires disk redirections to connect  }
  25580.   {$EXTERNALSYM NETINFO_PRINTERRED}
  25581.   NETINFO_PRINTERRED = 8; { Provider requires printer redirections to connect  }
  25582.  
  25583. {$EXTERNALSYM WNetGetNetworkInformationA}
  25584. function WNetGetNetworkInformationA(lpProvider: PAnsiChar;
  25585.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  25586. {$EXTERNALSYM WNetGetNetworkInformationW}
  25587. function WNetGetNetworkInformationW(lpProvider: PWideChar;
  25588.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  25589. {$EXTERNALSYM WNetGetNetworkInformation}
  25590. function WNetGetNetworkInformation(lpProvider: PChar;
  25591.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  25592.  
  25593. type
  25594. { User Profiles }
  25595. {$IFDEF STRICT}
  25596.   TFNGetProfilePath = function (pszUsername: LPCTSTR; pszBuffer: LPTSTR;
  25597.     cbBuffer: UINT): UINT stdcall;
  25598.   TFNReconcileProfile = function (pszCentralFile: LPCTSTR; pszLocalFile: LPCTSTR;
  25599.     dwFlags: DWORD): UINT stdcall;
  25600. {$ELSE}
  25601.   TFNGetProfilePath = TFarProc;
  25602.   TFNReconcileProfile = TFarProc;
  25603. {$ENDIF}
  25604.  
  25605.  
  25606. const
  25607.   {$EXTERNALSYM RP_LOGON}
  25608.   RP_LOGON = 1;    { if set, do for logon, else for logoff }
  25609.   {$EXTERNALSYM RP_INIFILE}
  25610.   RP_INIFILE = 2;  { if set, reconcile .INI file, else reg. hive }
  25611.  
  25612. type
  25613. { Policies }
  25614.  
  25615. {$IFDEF STRICT}
  25616.   TFNProcessPolicies = function (pszPath: LPCTSTR; pszUsername: LPCTSTR;
  25617.     pszComputerName: LPCTSTR; dwFlags: DWORD): BOOL stdcall;
  25618. {$ELSE}
  25619.   TFNProcessPolicies = TFarProc;
  25620. {$ENDIF}
  25621.  
  25622. const
  25623.   {$EXTERNALSYM PP_DISPLAYERRORS}
  25624.   PP_DISPLAYERRORS = 1;  { if set, display error messages, else fail silently if error }
  25625.  
  25626. { Error handling }
  25627.  
  25628. {$EXTERNALSYM WNetGetLastErrorA}
  25629. function WNetGetLastErrorA(var lpError: DWORD; lpErrorBuf: PAnsiChar;
  25630.   nErrorBufSize: DWORD; lpNameBuf: PAnsiChar; nNameBufSize: DWORD): DWORD; stdcall;
  25631. {$EXTERNALSYM WNetGetLastErrorW}
  25632. function WNetGetLastErrorW(var lpError: DWORD; lpErrorBuf: PWideChar;
  25633.   nErrorBufSize: DWORD; lpNameBuf: PWideChar; nNameBufSize: DWORD): DWORD; stdcall;
  25634. {$EXTERNALSYM WNetGetLastError}
  25635. function WNetGetLastError(var lpError: DWORD; lpErrorBuf: PChar;
  25636.   nErrorBufSize: DWORD; lpNameBuf: PChar; nNameBufSize: DWORD): DWORD; stdcall;
  25637.  
  25638.  
  25639. const
  25640. { STATUS CODES }
  25641. { General }
  25642.  
  25643.   {$EXTERNALSYM WN_SUCCESS}
  25644.   WN_SUCCESS = NO_ERROR;
  25645.   {$EXTERNALSYM WN_NO_ERROR}
  25646.   WN_NO_ERROR = NO_ERROR;
  25647.   {$EXTERNALSYM WN_NOT_SUPPORTED}
  25648.   WN_NOT_SUPPORTED = ERROR_NOT_SUPPORTED;
  25649.   {$EXTERNALSYM WN_CANCEL}
  25650.   WN_CANCEL = ERROR_CANCELLED;
  25651.   {$EXTERNALSYM WN_RETRY}
  25652.   WN_RETRY = ERROR_RETRY;
  25653.   {$EXTERNALSYM WN_NET_ERROR}
  25654.   WN_NET_ERROR = ERROR_UNEXP_NET_ERR;
  25655.   {$EXTERNALSYM WN_MORE_DATA}
  25656.   WN_MORE_DATA = ERROR_MORE_DATA;
  25657.   {$EXTERNALSYM WN_BAD_POINTER}
  25658.   WN_BAD_POINTER = ERROR_INVALID_ADDRESS;
  25659.   {$EXTERNALSYM WN_BAD_VALUE}
  25660.   WN_BAD_VALUE = ERROR_INVALID_PARAMETER;
  25661.   {$EXTERNALSYM WN_BAD_USER}
  25662.   WN_BAD_USER = ERROR_BAD_USERNAME;
  25663.   {$EXTERNALSYM WN_BAD_PASSWORD}
  25664.   WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD;
  25665.   {$EXTERNALSYM WN_ACCESS_DENIED}
  25666.   WN_ACCESS_DENIED = ERROR_ACCESS_DENIED;
  25667.   {$EXTERNALSYM WN_FUNCTION_BUSY}
  25668.   WN_FUNCTION_BUSY = ERROR_BUSY;
  25669.   {$EXTERNALSYM WN_WINDOWS_ERROR}
  25670.   WN_WINDOWS_ERROR = ERROR_UNEXP_NET_ERR;
  25671.   {$EXTERNALSYM WN_OUT_OF_MEMORY}
  25672.   WN_OUT_OF_MEMORY = ERROR_NOT_ENOUGH_MEMORY;
  25673.   {$EXTERNALSYM WN_NO_NETWORK}
  25674.   WN_NO_NETWORK = ERROR_NO_NETWORK;
  25675.   {$EXTERNALSYM WN_EXTENDED_ERROR}
  25676.   WN_EXTENDED_ERROR = ERROR_EXTENDED_ERROR;
  25677.   {$EXTERNALSYM WN_BAD_LEVEL}
  25678.   WN_BAD_LEVEL = ERROR_INVALID_LEVEL;
  25679.   {$EXTERNALSYM WN_BAD_HANDLE}
  25680.   WN_BAD_HANDLE = ERROR_INVALID_HANDLE;
  25681.   {$EXTERNALSYM WN_NOT_INITIALIZING}
  25682.   WN_NOT_INITIALIZING = ERROR_ALREADY_INITIALIZED;
  25683.   {$EXTERNALSYM WN_NO_MORE_DEVICES}
  25684.   WN_NO_MORE_DEVICES = ERROR_NO_MORE_DEVICES;
  25685.  
  25686. { Connection }
  25687.  
  25688.   {$EXTERNALSYM WN_NOT_CONNECTED}
  25689.   WN_NOT_CONNECTED = ERROR_NOT_CONNECTED;
  25690.   {$EXTERNALSYM WN_OPEN_FILES}
  25691.   WN_OPEN_FILES = ERROR_OPEN_FILES;
  25692.   {$EXTERNALSYM WN_DEVICE_IN_USE}
  25693.   WN_DEVICE_IN_USE = ERROR_DEVICE_IN_USE;
  25694.   {$EXTERNALSYM WN_BAD_NETNAME}
  25695.   WN_BAD_NETNAME = ERROR_BAD_NET_NAME;
  25696.   {$EXTERNALSYM WN_BAD_LOCALNAME}
  25697.   WN_BAD_LOCALNAME = ERROR_BAD_DEVICE;
  25698.   {$EXTERNALSYM WN_ALREADY_CONNECTED}
  25699.   WN_ALREADY_CONNECTED = ERROR_ALREADY_ASSIGNED;
  25700.   {$EXTERNALSYM WN_DEVICE_ERROR}
  25701.   WN_DEVICE_ERROR = ERROR_GEN_FAILURE;
  25702.   {$EXTERNALSYM WN_CONNECTION_CLOSED}
  25703.   WN_CONNECTION_CLOSED = ERROR_CONNECTION_UNAVAIL;
  25704.   {$EXTERNALSYM WN_NO_NET_OR_BAD_PATH}
  25705.   WN_NO_NET_OR_BAD_PATH = ERROR_NO_NET_OR_BAD_PATH;
  25706.   {$EXTERNALSYM WN_BAD_PROVIDER}
  25707.   WN_BAD_PROVIDER = ERROR_BAD_PROVIDER;
  25708.   {$EXTERNALSYM WN_CANNOT_OPEN_PROFILE}
  25709.   WN_CANNOT_OPEN_PROFILE = ERROR_CANNOT_OPEN_PROFILE;
  25710.   {$EXTERNALSYM WN_BAD_PROFILE}
  25711.   WN_BAD_PROFILE = ERROR_BAD_PROFILE;
  25712.   {$EXTERNALSYM WN_BAD_DEV_TYPE}
  25713.   WN_BAD_DEV_TYPE = ERROR_BAD_DEV_TYPE;
  25714.   {$EXTERNALSYM WN_DEVICE_ALREADY_REMEMBERED}
  25715.   WN_DEVICE_ALREADY_REMEMBERED = ERROR_DEVICE_ALREADY_REMEMBERED;
  25716.  
  25717. { Enumeration }
  25718.  
  25719.   {$EXTERNALSYM WN_NO_MORE_ENTRIES}
  25720.   WN_NO_MORE_ENTRIES = ERROR_NO_MORE_ITEMS;
  25721.   {$EXTERNALSYM WN_NOT_CONTAINER}
  25722.   WN_NOT_CONTAINER = ERROR_NOT_CONTAINER;
  25723.  
  25724. { Authentication }
  25725.  
  25726.   {$EXTERNALSYM WN_NOT_AUTHENTICATED}
  25727.   WN_NOT_AUTHENTICATED = ERROR_NOT_AUTHENTICATED;
  25728.   {$EXTERNALSYM WN_NOT_LOGGED_ON}
  25729.   WN_NOT_LOGGED_ON = ERROR_NOT_LOGGED_ON;
  25730.   {$EXTERNALSYM WN_NOT_VALIDATED}
  25731.   WN_NOT_VALIDATED = ERROR_NO_LOGON_SERVERS;
  25732.  
  25733. type
  25734. { For Shell }
  25735.   PNetConnectInfoStruct = ^TNetConnectInfoStruct;
  25736.   {$EXTERNALSYM _NETCONNECTINFOSTRUCT}
  25737.   _NETCONNECTINFOSTRUCT = packed record
  25738.     cbStructure: DWORD;
  25739.     dwFlags: DWORD;
  25740.     dwSpeed: DWORD;
  25741.     dwDelay: DWORD;
  25742.     dwOptDataSize: DWORD;
  25743.   end;
  25744.   TNetConnectInfoStruct = _NETCONNECTINFOSTRUCT;
  25745.   {$EXTERNALSYM NETCONNECTINFOSTRUCT}
  25746.   NETCONNECTINFOSTRUCT = _NETCONNECTINFOSTRUCT;
  25747.  
  25748. const
  25749.   {$EXTERNALSYM WNCON_FORNETCARD}
  25750.   WNCON_FORNETCARD = 1;
  25751.   {$EXTERNALSYM WNCON_NOTROUTED}
  25752.   WNCON_NOTROUTED = 2;
  25753.   {$EXTERNALSYM WNCON_SLOWLINK}
  25754.   WNCON_SLOWLINK = 4;
  25755.   {$EXTERNALSYM WNCON_DYNAMIC}
  25756.   WNCON_DYNAMIC = 8;
  25757.  
  25758. {$EXTERNALSYM MultinetGetConnectionPerformanceA}
  25759. function MultinetGetConnectionPerformanceA(lpNetResource: PNetResourceA;
  25760.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  25761. {$EXTERNALSYM MultinetGetConnectionPerformanceW}
  25762. function MultinetGetConnectionPerformanceW(lpNetResource: PNetResourceW;
  25763.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  25764. {$EXTERNALSYM MultinetGetConnectionPerformance}
  25765. function MultinetGetConnectionPerformance(lpNetResource: PNetResource;
  25766.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  25767.  
  25768. { Translated from DDE.H }
  25769.  
  25770. const
  25771.   {$EXTERNALSYM WM_DDE_FIRST}
  25772.   WM_DDE_FIRST      = $03E0;
  25773.   {$EXTERNALSYM WM_DDE_INITIATE}
  25774.   WM_DDE_INITIATE   = WM_DDE_FIRST;
  25775.   {$EXTERNALSYM WM_DDE_TERMINATE}
  25776.   WM_DDE_TERMINATE  = WM_DDE_FIRST+1;
  25777.   {$EXTERNALSYM WM_DDE_ADVISE}
  25778.   WM_DDE_ADVISE     = WM_DDE_FIRST+2;
  25779.   {$EXTERNALSYM WM_DDE_UNADVISE}
  25780.   WM_DDE_UNADVISE   = WM_DDE_FIRST+3;
  25781.   {$EXTERNALSYM WM_DDE_ACK}
  25782.   WM_DDE_ACK        = WM_DDE_FIRST+4;
  25783.   {$EXTERNALSYM WM_DDE_DATA}
  25784.   WM_DDE_DATA       = WM_DDE_FIRST+5;
  25785.   {$EXTERNALSYM WM_DDE_REQUEST}
  25786.   WM_DDE_REQUEST    = WM_DDE_FIRST+6;
  25787.   {$EXTERNALSYM WM_DDE_POKE}
  25788.   WM_DDE_POKE       = WM_DDE_FIRST+7;
  25789.   {$EXTERNALSYM WM_DDE_EXECUTE}
  25790.   WM_DDE_EXECUTE    = WM_DDE_FIRST+8;
  25791.   {$EXTERNALSYM WM_DDE_LAST}
  25792.   WM_DDE_LAST       = WM_DDE_FIRST+8;
  25793.  
  25794. { Constants used for a WM_DDE_ACK message sent in responce to a WM_DDE_DATA
  25795.   WM_DDE_REQUEST, WM_DDE_POKE, WM_DDE_ADVISE, or WM_DDE_UNADVISE message.
  25796.   For example
  25797.     if lParam and dde_Ack <> 0 then ...
  25798. }
  25799.  
  25800. type
  25801.   PDDEAck = ^TDDEAck;
  25802.   {$EXTERNALSYM DDEACK}
  25803.   DDEACK = packed record
  25804. (*
  25805.     unsigned bAppReturnCode:8,
  25806.              reserved:6,
  25807.              fBusy:1,
  25808.              fAck:1;
  25809. *)
  25810.     Flags: Word;
  25811.   end;
  25812.   TDDEAck = DDEACK;
  25813.  
  25814. const
  25815.   dde_AppReturnCode = $00FF;
  25816.   dde_Busy          = $4000;
  25817.   dde_Ack           = $8000;
  25818.  
  25819. { Record for the  WM_DDE_ADVISE Options parameter (LoWord(lParam)) }
  25820.  
  25821. type
  25822.   PDDEAdvise = ^TDDEAdvise;
  25823.   {$EXTERNALSYM DDEADVISE}
  25824.   DDEADVISE = packed record
  25825. (*
  25826.     unsigned reserved:14,
  25827.              fDeferUpd:1,
  25828.              fAckReq:1;
  25829. *)
  25830.     Flags: Word;
  25831.     cfFormat: SmallInt;
  25832.   end;
  25833.   TDDEAdvise = DDEADVISE;
  25834.  
  25835. const
  25836.   dde_DeferUpd     = $4000;
  25837.   dde_AckReq       = $8000;
  25838.  
  25839. { Record for the hData parameter of a WM_DDE_DATA message (LoWord(lParam)).
  25840.   The actual size of this record depends on the size of the Value
  25841.   array. }
  25842.  
  25843. type
  25844.   PDDEData = ^TDDEData;
  25845.   {$EXTERNALSYM DDEDATA}
  25846.   DDEDATA = packed record
  25847. (*  unsigned unused:12,
  25848.              fResponse:1,
  25849.              fRelease:1,
  25850.              reserved:1,
  25851.              fAckReq:1;
  25852. *)
  25853.     Flags: Word;
  25854.     cfFormat: SmallInt;
  25855.     Value: array[0..0] of Byte;
  25856.     Reserved: array[0..0] of Byte;
  25857.   end;
  25858.   TDDEData = DDEDATA;
  25859.  
  25860. const
  25861.   dde_Response = $1000;
  25862.   dde_Release  = $2000;
  25863.  
  25864. { Record for the hData parameter of the WM_DDE_POKE record (LoWord(lParam)).
  25865.   The actual size of this record depends on the size of the Value array. }
  25866.  
  25867. type
  25868.   PDDEPoke = ^TDDEPoke;
  25869.   {$EXTERNALSYM DDEPOKE}
  25870.   DDEPOKE = packed record
  25871. (*  unsigned unused:13,
  25872.              fRelease:1,
  25873.              fReserved:2;
  25874. *)
  25875.     Flags: Word;
  25876.     cfFormat: SmallInt;
  25877.     Value: array[0..0] of Byte;
  25878.     Reserved: array[0..0] of Byte;
  25879.   end;
  25880.   TDDEPoke = DDEPOKE;
  25881.  
  25882. { DDE Security }
  25883.  
  25884. {$EXTERNALSYM DdeSetQualityOfService}
  25885. function DdeSetQualityOfService(hWndClient: HWnd; const pqosNew: TSecurityQualityOfService;
  25886.   pqosPrev: PSecurityQualityOfService): BOOL; stdcall;
  25887. {$EXTERNALSYM ImpersonateDdeClientWindow}
  25888. function ImpersonateDdeClientWindow(hWndClient: HWnd; hWndServer: HWnd): BOOL; stdcall;
  25889.  
  25890. { DDE message packing APIs }
  25891. {$EXTERNALSYM PackDDElParam}
  25892. function PackDDElParam(msg: UINT; uiLo: UINT; uiHi: UINT): Longint; stdcall;
  25893. {$EXTERNALSYM UnpackDDElParam}
  25894. function UnpackDDElParam(msg: UINT; lParam: Longint; puiLo: PUINT; puiHi: PUINT): BOOL; stdcall;
  25895. {$EXTERNALSYM FreeDDElParam}
  25896. function FreeDDElParam(msg: UINT; lParam: Longint): BOOL; stdcall;
  25897. {$EXTERNALSYM ReuseDDElParam}
  25898. function ReuseDDElParam(lParam: Longint; msgIn: UINT; msgOut: UINT; uiLo: UINT; uiHi: UINT): Longint; stdcall;
  25899.  
  25900. const
  25901.   advapi32  = 'advapi32.dll';
  25902.   kernel32  = 'kernel32.dll';
  25903.   mpr       = 'mpr.dll';
  25904.   {$EXTERNALSYM version}
  25905.   version   = 'version.dll';
  25906.   comctl32  = 'comctl32.dll';
  25907.   gdi32     = 'gdi32.dll';
  25908.   opengl32  = 'opengl32.dll';
  25909.   user32    = 'user32.dll';
  25910.   wintrust  = 'wintrust.dll';
  25911.  
  25912.  
  25913. implementation
  25914.  
  25915. { Externals from advapi32.dll }
  25916.  
  25917. {$EXTERNALSYM AbortSystemShutdownA}
  25918. function AbortSystemShutdownA; external advapi32 name 'AbortSystemShutdownA';
  25919. {$EXTERNALSYM AbortSystemShutdownW}
  25920. function AbortSystemShutdownW; external advapi32 name 'AbortSystemShutdownW';
  25921. {$EXTERNALSYM AbortSystemShutdown}
  25922. function AbortSystemShutdown; external advapi32 name 'AbortSystemShutdownA';
  25923. {$EXTERNALSYM AccessCheck}
  25924. function AccessCheck; external advapi32 name 'AccessCheck';
  25925. {$EXTERNALSYM AccessCheckAndAuditAlarmA}
  25926. function AccessCheckAndAuditAlarmA; external advapi32 name 'AccessCheckAndAuditAlarmA';
  25927. {$EXTERNALSYM AccessCheckAndAuditAlarmW}
  25928. function AccessCheckAndAuditAlarmW; external advapi32 name 'AccessCheckAndAuditAlarmW';
  25929. {$EXTERNALSYM AccessCheckAndAuditAlarm}
  25930. function AccessCheckAndAuditAlarm; external advapi32 name 'AccessCheckAndAuditAlarmA';
  25931. {$EXTERNALSYM AddAccessAllowedAce}
  25932. function AddAccessAllowedAce; external advapi32 name 'AddAccessAllowedAce';
  25933. {$EXTERNALSYM AddAccessDeniedAce}
  25934. function AddAccessDeniedAce; external advapi32 name 'AddAccessDeniedAce';
  25935. {$EXTERNALSYM AddAce}
  25936. function AddAce; external advapi32 name 'AddAce';
  25937. {$EXTERNALSYM AddAuditAccessAce}
  25938. function AddAuditAccessAce; external advapi32 name 'AddAuditAccessAce';
  25939. {$EXTERNALSYM AdjustTokenGroups}
  25940. function AdjustTokenGroups; external advapi32 name 'AdjustTokenGroups';
  25941. {$EXTERNALSYM AdjustTokenPrivileges}
  25942. function AdjustTokenPrivileges; external advapi32 name 'AdjustTokenPrivileges';
  25943. {$EXTERNALSYM AllocateAndInitializeSid}
  25944. function AllocateAndInitializeSid; external advapi32 name 'AllocateAndInitializeSid';
  25945. {$EXTERNALSYM AllocateLocallyUniqueId}
  25946. function AllocateLocallyUniqueId; external advapi32 name 'AllocateLocallyUniqueId';
  25947. {$EXTERNALSYM AreAllAccessesGranted}
  25948. function AreAllAccessesGranted; external advapi32 name 'AreAllAccessesGranted';
  25949. {$EXTERNALSYM AreAnyAccessesGranted}
  25950. function AreAnyAccessesGranted; external advapi32 name 'AreAnyAccessesGranted';
  25951. {$EXTERNALSYM BackupEventLogA}
  25952. function BackupEventLogA; external advapi32 name 'BackupEventLogA';
  25953. {$EXTERNALSYM BackupEventLogW}
  25954. function BackupEventLogW; external advapi32 name 'BackupEventLogW';
  25955. {$EXTERNALSYM BackupEventLog}
  25956. function BackupEventLog; external advapi32 name 'BackupEventLogA';
  25957. {$EXTERNALSYM ClearEventLogA}
  25958. function ClearEventLogA; external advapi32 name 'ClearEventLogA';
  25959. {$EXTERNALSYM ClearEventLogW}
  25960. function ClearEventLogW; external advapi32 name 'ClearEventLogW';
  25961. {$EXTERNALSYM ClearEventLog}
  25962. function ClearEventLog; external advapi32 name 'ClearEventLogA';
  25963. {$EXTERNALSYM CloseEventLog}
  25964. function CloseEventLog; external advapi32 name 'CloseEventLog';
  25965. {$EXTERNALSYM CopySid}
  25966. function CopySid; external advapi32 name 'CopySid';
  25967. {$EXTERNALSYM CreatePrivateObjectSecurity}
  25968. function CreatePrivateObjectSecurity; external advapi32 name 'CreatePrivateObjectSecurity';
  25969. {$EXTERNALSYM CreateProcessAsUserA}
  25970. function CreateProcessAsUserA; external advapi32 name 'CreateProcessAsUserA';
  25971. {$EXTERNALSYM CreateProcessAsUserW}
  25972. function CreateProcessAsUserW; external advapi32 name 'CreateProcessAsUserW';
  25973. {$EXTERNALSYM CreateProcessAsUser}
  25974. function CreateProcessAsUser; external advapi32 name 'CreateProcessAsUserA';
  25975. {$EXTERNALSYM DeleteAce}
  25976. function DeleteAce; external advapi32 name 'DeleteAce';
  25977. {$EXTERNALSYM DeregisterEventSource}
  25978. function DeregisterEventSource; external advapi32 name 'DeregisterEventSource';
  25979. {$EXTERNALSYM DestroyPrivateObjectSecurity}
  25980. function DestroyPrivateObjectSecurity; external advapi32 name 'DestroyPrivateObjectSecurity';
  25981. {$EXTERNALSYM DuplicateToken}
  25982. function DuplicateToken; external advapi32 name 'DuplicateToken';
  25983. {$EXTERNALSYM DuplicateTokenEx}
  25984. function DuplicateTokenEx; external advapi32 name 'DuplicateTokenEx';
  25985. {$EXTERNALSYM EqualPrefixSid}
  25986. function EqualPrefixSid; external advapi32 name 'EqualPrefixSid';
  25987. {$EXTERNALSYM EqualSid}
  25988. function EqualSid; external advapi32 name 'EqualSid';
  25989. {$EXTERNALSYM FindFirstFreeAce}
  25990. function FindFirstFreeAce; external advapi32 name 'FindFirstFreeAce';
  25991. {$EXTERNALSYM FreeSid}
  25992. function FreeSid; external advapi32 name 'FreeSid';
  25993. {$EXTERNALSYM GetAce}
  25994. function GetAce; external advapi32 name 'GetAce';
  25995. {$EXTERNALSYM GetAclInformation}
  25996. function GetAclInformation; external advapi32 name 'GetAclInformation';
  25997. {$EXTERNALSYM GetCurrentHwProfileA}
  25998. function GetCurrentHwProfileA; external advapi32 name 'GetCurrentHwProfileA';
  25999. {$EXTERNALSYM GetCurrentHwProfileW}
  26000. function GetCurrentHwProfileW; external advapi32 name 'GetCurrentHwProfileW';
  26001. {$EXTERNALSYM GetCurrentHwProfile}
  26002. function GetCurrentHwProfile; external advapi32 name 'GetCurrentHwProfileA';
  26003. {$EXTERNALSYM GetFileSecurityA}
  26004. function GetFileSecurityA; external advapi32 name 'GetFileSecurityA';
  26005. {$EXTERNALSYM GetFileSecurityW}
  26006. function GetFileSecurityW; external advapi32 name 'GetFileSecurityW';
  26007. {$EXTERNALSYM GetFileSecurity}
  26008. function GetFileSecurity; external advapi32 name 'GetFileSecurityA';
  26009. {$EXTERNALSYM GetKernelObjectSecurity}
  26010. function GetKernelObjectSecurity; external advapi32 name 'GetKernelObjectSecurity';
  26011. {$EXTERNALSYM GetLengthSid}
  26012. function GetLengthSid; external advapi32 name 'GetLengthSid';
  26013. {$EXTERNALSYM GetNumberOfEventLogRecords}
  26014. function GetNumberOfEventLogRecords; external advapi32 name 'GetNumberOfEventLogRecords';
  26015. {$EXTERNALSYM GetOldestEventLogRecord}
  26016. function GetOldestEventLogRecord; external advapi32 name 'GetOldestEventLogRecord';
  26017. {$EXTERNALSYM GetPrivateObjectSecurity}
  26018. function GetPrivateObjectSecurity; external advapi32 name 'GetPrivateObjectSecurity';
  26019. {$EXTERNALSYM GetSecurityDescriptorControl}
  26020. function GetSecurityDescriptorControl; external advapi32 name 'GetSecurityDescriptorControl';
  26021. {$EXTERNALSYM GetSecurityDescriptorDacl}
  26022. function GetSecurityDescriptorDacl; external advapi32 name 'GetSecurityDescriptorDacl';
  26023. {$EXTERNALSYM GetSecurityDescriptorGroup}
  26024. function GetSecurityDescriptorGroup; external advapi32 name 'GetSecurityDescriptorGroup';
  26025. {$EXTERNALSYM GetSecurityDescriptorLength}
  26026. function GetSecurityDescriptorLength; external advapi32 name 'GetSecurityDescriptorLength';
  26027. {$EXTERNALSYM GetSecurityDescriptorOwner}
  26028. function GetSecurityDescriptorOwner; external advapi32 name 'GetSecurityDescriptorOwner';
  26029. {$EXTERNALSYM GetSecurityDescriptorSacl}
  26030. function GetSecurityDescriptorSacl; external advapi32 name 'GetSecurityDescriptorSacl';
  26031. {$EXTERNALSYM GetSidIdentifierAuthority}
  26032. function GetSidIdentifierAuthority; external advapi32 name 'GetSidIdentifierAuthority';
  26033. {$EXTERNALSYM GetSidLengthRequired}
  26034. function GetSidLengthRequired; external advapi32 name 'GetSidLengthRequired';
  26035. {$EXTERNALSYM GetSidSubAuthority}
  26036. function GetSidSubAuthority; external advapi32 name 'GetSidSubAuthority';
  26037. {$EXTERNALSYM GetSidSubAuthorityCount}
  26038. function GetSidSubAuthorityCount; external advapi32 name 'GetSidSubAuthorityCount';
  26039. {$EXTERNALSYM GetTokenInformation}
  26040. function GetTokenInformation; external advapi32 name 'GetTokenInformation';
  26041. {$EXTERNALSYM GetUserNameA}
  26042. function GetUserNameA; external advapi32 name 'GetUserNameA';
  26043. {$EXTERNALSYM GetUserNameW}
  26044. function GetUserNameW; external advapi32 name 'GetUserNameW';
  26045. {$EXTERNALSYM GetUserName}
  26046. function GetUserName; external advapi32 name 'GetUserNameA';
  26047. {$EXTERNALSYM ImpersonateLoggedOnUser}
  26048. function ImpersonateLoggedOnUser; external advapi32 name 'ImpersonateLoggedOnUser';
  26049. {$EXTERNALSYM ImpersonateNamedPipeClient}
  26050. function ImpersonateNamedPipeClient; external advapi32 name 'ImpersonateNamedPipeClient';
  26051. {$EXTERNALSYM ImpersonateSelf}
  26052. function ImpersonateSelf; external advapi32 name 'ImpersonateSelf';
  26053. {$EXTERNALSYM InitializeAcl}
  26054. function InitializeAcl; external advapi32 name 'InitializeAcl';
  26055. {$EXTERNALSYM InitializeSecurityDescriptor}
  26056. function InitializeSecurityDescriptor; external advapi32 name 'InitializeSecurityDescriptor';
  26057. {$EXTERNALSYM InitializeSid}
  26058. function InitializeSid; external advapi32 name 'InitializeSid';
  26059. {$EXTERNALSYM InitiateSystemShutdownA}
  26060. function InitiateSystemShutdownA; external advapi32 name 'InitiateSystemShutdownA';
  26061. {$EXTERNALSYM InitiateSystemShutdownW}
  26062. function InitiateSystemShutdownW; external advapi32 name 'InitiateSystemShutdownW';
  26063. {$EXTERNALSYM InitiateSystemShutdown}
  26064. function InitiateSystemShutdown; external advapi32 name 'InitiateSystemShutdownA';
  26065. function IsTextUnicode; external advapi32 name 'IsTextUnicode';
  26066. {$EXTERNALSYM IsValidAcl}
  26067. function IsValidAcl; external advapi32 name 'IsValidAcl';
  26068. {$EXTERNALSYM IsValidSecurityDescriptor}
  26069. function IsValidSecurityDescriptor; external advapi32 name 'IsValidSecurityDescriptor';
  26070. {$EXTERNALSYM IsValidSid}
  26071. function IsValidSid; external advapi32 name 'IsValidSid';
  26072. {$EXTERNALSYM LogonUserA}
  26073. function LogonUserA; external advapi32 name 'LogonUserA';
  26074. {$EXTERNALSYM LogonUserW}
  26075. function LogonUserW; external advapi32 name 'LogonUserW';
  26076. {$EXTERNALSYM LogonUser}
  26077. function LogonUser; external advapi32 name 'LogonUserA';
  26078. {$EXTERNALSYM LookupAccountNameA}
  26079. function LookupAccountNameA; external advapi32 name 'LookupAccountNameA';
  26080. {$EXTERNALSYM LookupAccountNameW}
  26081. function LookupAccountNameW; external advapi32 name 'LookupAccountNameW';
  26082. {$EXTERNALSYM LookupAccountName}
  26083. function LookupAccountName; external advapi32 name 'LookupAccountNameA';
  26084. {$EXTERNALSYM LookupAccountSidA}
  26085. function LookupAccountSidA; external advapi32 name 'LookupAccountSidA';
  26086. {$EXTERNALSYM LookupAccountSidW}
  26087. function LookupAccountSidW; external advapi32 name 'LookupAccountSidW';
  26088. {$EXTERNALSYM LookupAccountSid}
  26089. function LookupAccountSid; external advapi32 name 'LookupAccountSidA';
  26090. {$EXTERNALSYM LookupPrivilegeDisplayNameA}
  26091. function LookupPrivilegeDisplayNameA; external advapi32 name 'LookupPrivilegeDisplayNameA';
  26092. {$EXTERNALSYM LookupPrivilegeDisplayNameW}
  26093. function LookupPrivilegeDisplayNameW; external advapi32 name 'LookupPrivilegeDisplayNameW';
  26094. {$EXTERNALSYM LookupPrivilegeDisplayName}
  26095. function LookupPrivilegeDisplayName; external advapi32 name 'LookupPrivilegeDisplayNameA';
  26096. {$EXTERNALSYM LookupPrivilegeNameA}
  26097. function LookupPrivilegeNameA; external advapi32 name 'LookupPrivilegeNameA';
  26098. {$EXTERNALSYM LookupPrivilegeNameW}
  26099. function LookupPrivilegeNameW; external advapi32 name 'LookupPrivilegeNameW';
  26100. {$EXTERNALSYM LookupPrivilegeName}
  26101. function LookupPrivilegeName; external advapi32 name 'LookupPrivilegeNameA';
  26102. {$EXTERNALSYM LookupPrivilegeValueA}
  26103. function LookupPrivilegeValueA; external advapi32 name 'LookupPrivilegeValueA';
  26104. {$EXTERNALSYM LookupPrivilegeValueW}
  26105. function LookupPrivilegeValueW; external advapi32 name 'LookupPrivilegeValueW';
  26106. {$EXTERNALSYM LookupPrivilegeValue}
  26107. function LookupPrivilegeValue; external advapi32 name 'LookupPrivilegeValueA';
  26108. {$EXTERNALSYM MakeAbsoluteSD}
  26109. function MakeAbsoluteSD; external advapi32 name 'MakeAbsoluteSD';
  26110. {$EXTERNALSYM MakeSelfRelativeSD}
  26111. function MakeSelfRelativeSD; external advapi32 name 'MakeSelfRelativeSD';
  26112. {$EXTERNALSYM MapGenericMask}
  26113. procedure MapGenericMask; external advapi32 name 'MapGenericMask';
  26114. {$EXTERNALSYM NotifyChangeEventLog}
  26115. function NotifyChangeEventLog; external advapi32 name 'NotifyChangeEventLog';
  26116. {$EXTERNALSYM ObjectCloseAuditAlarmA}
  26117. function ObjectCloseAuditAlarmA; external advapi32 name 'ObjectCloseAuditAlarmA';
  26118. {$EXTERNALSYM ObjectCloseAuditAlarmW}
  26119. function ObjectCloseAuditAlarmW; external advapi32 name 'ObjectCloseAuditAlarmW';
  26120. {$EXTERNALSYM ObjectCloseAuditAlarm}
  26121. function ObjectCloseAuditAlarm; external advapi32 name 'ObjectCloseAuditAlarmA';
  26122. {$EXTERNALSYM ObjectDeleteAuditAlarmA}
  26123. function ObjectDeleteAuditAlarmA; external advapi32 name 'ObjectDeleteAuditAlarmA';
  26124. {$EXTERNALSYM ObjectDeleteAuditAlarmW}
  26125. function ObjectDeleteAuditAlarmW; external advapi32 name 'ObjectDeleteAuditAlarmW';
  26126. {$EXTERNALSYM ObjectDeleteAuditAlarm}
  26127. function ObjectDeleteAuditAlarm; external advapi32 name 'ObjectDeleteAuditAlarmA';
  26128. {$EXTERNALSYM ObjectOpenAuditAlarmA}
  26129. function ObjectOpenAuditAlarmA; external advapi32 name 'ObjectOpenAuditAlarmA';
  26130. {$EXTERNALSYM ObjectOpenAuditAlarmW}
  26131. function ObjectOpenAuditAlarmW; external advapi32 name 'ObjectOpenAuditAlarmW';
  26132. {$EXTERNALSYM ObjectOpenAuditAlarm}
  26133. function ObjectOpenAuditAlarm; external advapi32 name 'ObjectOpenAuditAlarmA';
  26134. {$EXTERNALSYM ObjectPrivilegeAuditAlarmA}
  26135. function ObjectPrivilegeAuditAlarmA; external advapi32 name 'ObjectPrivilegeAuditAlarmA';
  26136. {$EXTERNALSYM ObjectPrivilegeAuditAlarmW}
  26137. function ObjectPrivilegeAuditAlarmW; external advapi32 name 'ObjectPrivilegeAuditAlarmW';
  26138. {$EXTERNALSYM ObjectPrivilegeAuditAlarm}
  26139. function ObjectPrivilegeAuditAlarm; external advapi32 name 'ObjectPrivilegeAuditAlarmA';
  26140. {$EXTERNALSYM OpenBackupEventLogA}
  26141. function OpenBackupEventLogA; external advapi32 name 'OpenBackupEventLogA';
  26142. {$EXTERNALSYM OpenBackupEventLogW}
  26143. function OpenBackupEventLogW; external advapi32 name 'OpenBackupEventLogW';
  26144. {$EXTERNALSYM OpenBackupEventLog}
  26145. function OpenBackupEventLog; external advapi32 name 'OpenBackupEventLogA';
  26146. {$EXTERNALSYM OpenEventLogA}
  26147. function OpenEventLogA; external advapi32 name 'OpenEventLogA';
  26148. {$EXTERNALSYM OpenEventLogW}
  26149. function OpenEventLogW; external advapi32 name 'OpenEventLogW';
  26150. {$EXTERNALSYM OpenEventLog}
  26151. function OpenEventLog; external advapi32 name 'OpenEventLogA';
  26152. {$EXTERNALSYM OpenProcessToken}
  26153. function OpenProcessToken; external advapi32 name 'OpenProcessToken';
  26154. {$EXTERNALSYM OpenThreadToken}
  26155. function OpenThreadToken; external advapi32 name 'OpenThreadToken';
  26156. {$EXTERNALSYM PrivilegeCheck}
  26157. function PrivilegeCheck; external advapi32 name 'PrivilegeCheck';
  26158. {$EXTERNALSYM PrivilegedServiceAuditAlarmA}
  26159. function PrivilegedServiceAuditAlarmA; external advapi32 name 'PrivilegedServiceAuditAlarmA';
  26160. {$EXTERNALSYM PrivilegedServiceAuditAlarmW}
  26161. function PrivilegedServiceAuditAlarmW; external advapi32 name 'PrivilegedServiceAuditAlarmW';
  26162. {$EXTERNALSYM PrivilegedServiceAuditAlarm}
  26163. function PrivilegedServiceAuditAlarm; external advapi32 name 'PrivilegedServiceAuditAlarmA';
  26164. {$EXTERNALSYM ReadEventLogA}
  26165. function ReadEventLogA; external advapi32 name 'ReadEventLogA';
  26166. {$EXTERNALSYM ReadEventLogW}
  26167. function ReadEventLogW; external advapi32 name 'ReadEventLogW';
  26168. {$EXTERNALSYM ReadEventLog}
  26169. function ReadEventLog; external advapi32 name 'ReadEventLogA';
  26170. {$EXTERNALSYM RegCloseKey}
  26171. function RegCloseKey; external advapi32 name 'RegCloseKey';
  26172. {$EXTERNALSYM RegConnectRegistryA}
  26173. function RegConnectRegistryA; external advapi32 name 'RegConnectRegistryA';
  26174. {$EXTERNALSYM RegConnectRegistryW}
  26175. function RegConnectRegistryW; external advapi32 name 'RegConnectRegistryW';
  26176. {$EXTERNALSYM RegConnectRegistry}
  26177. function RegConnectRegistry; external advapi32 name 'RegConnectRegistryA';
  26178. {$EXTERNALSYM RegCreateKeyA}
  26179. function RegCreateKeyA; external advapi32 name 'RegCreateKeyA';
  26180. {$EXTERNALSYM RegCreateKeyW}
  26181. function RegCreateKeyW; external advapi32 name 'RegCreateKeyW';
  26182. {$EXTERNALSYM RegCreateKey}
  26183. function RegCreateKey; external advapi32 name 'RegCreateKeyA';
  26184. {$EXTERNALSYM RegCreateKeyExA}
  26185. function RegCreateKeyExA; external advapi32 name 'RegCreateKeyExA';
  26186. {$EXTERNALSYM RegCreateKeyExW}
  26187. function RegCreateKeyExW; external advapi32 name 'RegCreateKeyExW';
  26188. {$EXTERNALSYM RegCreateKeyEx}
  26189. function RegCreateKeyEx; external advapi32 name 'RegCreateKeyExA';
  26190. {$EXTERNALSYM RegDeleteKeyA}
  26191. function RegDeleteKeyA; external advapi32 name 'RegDeleteKeyA';
  26192. {$EXTERNALSYM RegDeleteKeyW}
  26193. function RegDeleteKeyW; external advapi32 name 'RegDeleteKeyW';
  26194. {$EXTERNALSYM RegDeleteKey}
  26195. function RegDeleteKey; external advapi32 name 'RegDeleteKeyA';
  26196. {$EXTERNALSYM RegDeleteValueA}
  26197. function RegDeleteValueA; external advapi32 name 'RegDeleteValueA';
  26198. {$EXTERNALSYM RegDeleteValueW}
  26199. function RegDeleteValueW; external advapi32 name 'RegDeleteValueW';
  26200. {$EXTERNALSYM RegDeleteValue}
  26201. function RegDeleteValue; external advapi32 name 'RegDeleteValueA';
  26202. {$EXTERNALSYM RegEnumKeyExA}
  26203. function RegEnumKeyExA; external advapi32 name 'RegEnumKeyExA';
  26204. {$EXTERNALSYM RegEnumKeyExW}
  26205. function RegEnumKeyExW; external advapi32 name 'RegEnumKeyExW';
  26206. {$EXTERNALSYM RegEnumKeyEx}
  26207. function RegEnumKeyEx; external advapi32 name 'RegEnumKeyExA';
  26208. {$EXTERNALSYM RegEnumKeyA}
  26209. function RegEnumKeyA; external advapi32 name 'RegEnumKeyA';
  26210. {$EXTERNALSYM RegEnumKeyW}
  26211. function RegEnumKeyW; external advapi32 name 'RegEnumKeyW';
  26212. {$EXTERNALSYM RegEnumKey}
  26213. function RegEnumKey; external advapi32 name 'RegEnumKeyA';
  26214. {$EXTERNALSYM RegEnumValueA}
  26215. function RegEnumValueA; external advapi32 name 'RegEnumValueA';
  26216. {$EXTERNALSYM RegEnumValueW}
  26217. function RegEnumValueW; external advapi32 name 'RegEnumValueW';
  26218. {$EXTERNALSYM RegEnumValue}
  26219. function RegEnumValue; external advapi32 name 'RegEnumValueA';
  26220. {$EXTERNALSYM RegFlushKey}
  26221. function RegFlushKey; external advapi32 name 'RegFlushKey';
  26222. {$EXTERNALSYM RegGetKeySecurity}
  26223. function RegGetKeySecurity; external advapi32 name 'RegGetKeySecurity';
  26224. {$EXTERNALSYM RegLoadKeyA}
  26225. function RegLoadKeyA; external advapi32 name 'RegLoadKeyA';
  26226. {$EXTERNALSYM RegLoadKeyW}
  26227. function RegLoadKeyW; external advapi32 name 'RegLoadKeyW';
  26228. {$EXTERNALSYM RegLoadKey}
  26229. function RegLoadKey; external advapi32 name 'RegLoadKeyA';
  26230. {$EXTERNALSYM RegNotifyChangeKeyValue}
  26231. function RegNotifyChangeKeyValue; external advapi32 name 'RegNotifyChangeKeyValue';
  26232. {$EXTERNALSYM RegOpenKeyA}
  26233. function RegOpenKeyA; external advapi32 name 'RegOpenKeyA';
  26234. {$EXTERNALSYM RegOpenKeyW}
  26235. function RegOpenKeyW; external advapi32 name 'RegOpenKeyW';
  26236. {$EXTERNALSYM RegOpenKey}
  26237. function RegOpenKey; external advapi32 name 'RegOpenKeyA';
  26238. {$EXTERNALSYM RegOpenKeyExA}
  26239. function RegOpenKeyExA; external advapi32 name 'RegOpenKeyExA';
  26240. {$EXTERNALSYM RegOpenKeyExW}
  26241. function RegOpenKeyExW; external advapi32 name 'RegOpenKeyExW';
  26242. {$EXTERNALSYM RegOpenKeyEx}
  26243. function RegOpenKeyEx; external advapi32 name 'RegOpenKeyExA';
  26244. {$EXTERNALSYM RegQueryInfoKeyA}
  26245. function RegQueryInfoKeyA; external advapi32 name 'RegQueryInfoKeyA';
  26246. {$EXTERNALSYM RegQueryInfoKeyW}
  26247. function RegQueryInfoKeyW; external advapi32 name 'RegQueryInfoKeyW';
  26248. {$EXTERNALSYM RegQueryInfoKey}
  26249. function RegQueryInfoKey; external advapi32 name 'RegQueryInfoKeyA';
  26250. {$EXTERNALSYM RegQueryMultipleValuesA}
  26251. function RegQueryMultipleValuesA; external advapi32 name 'RegQueryMultipleValuesA';
  26252. {$EXTERNALSYM RegQueryMultipleValuesW}
  26253. function RegQueryMultipleValuesW; external advapi32 name 'RegQueryMultipleValuesW';
  26254. {$EXTERNALSYM RegQueryMultipleValues}
  26255. function RegQueryMultipleValues; external advapi32 name 'RegQueryMultipleValuesA';
  26256. {$EXTERNALSYM RegQueryValueA}
  26257. function RegQueryValueA; external advapi32 name 'RegQueryValueA';
  26258. {$EXTERNALSYM RegQueryValueW}
  26259. function RegQueryValueW; external advapi32 name 'RegQueryValueW';
  26260. {$EXTERNALSYM RegQueryValue}
  26261. function RegQueryValue; external advapi32 name 'RegQueryValueA';
  26262. {$EXTERNALSYM RegQueryValueExA}
  26263. function RegQueryValueExA; external advapi32 name 'RegQueryValueExA';
  26264. {$EXTERNALSYM RegQueryValueExW}
  26265. function RegQueryValueExW; external advapi32 name 'RegQueryValueExW';
  26266. {$EXTERNALSYM RegQueryValueEx}
  26267. function RegQueryValueEx; external advapi32 name 'RegQueryValueExA';
  26268. {$EXTERNALSYM RegReplaceKeyA}
  26269. function RegReplaceKeyA; external advapi32 name 'RegReplaceKeyA';
  26270. {$EXTERNALSYM RegReplaceKeyW}
  26271. function RegReplaceKeyW; external advapi32 name 'RegReplaceKeyW';
  26272. {$EXTERNALSYM RegReplaceKey}
  26273. function RegReplaceKey; external advapi32 name 'RegReplaceKeyA';
  26274. {$EXTERNALSYM RegRestoreKeyA}
  26275. function RegRestoreKeyA; external advapi32 name 'RegRestoreKeyA';
  26276. {$EXTERNALSYM RegRestoreKeyW}
  26277. function RegRestoreKeyW; external advapi32 name 'RegRestoreKeyW';
  26278. {$EXTERNALSYM RegRestoreKey}
  26279. function RegRestoreKey; external advapi32 name 'RegRestoreKeyA';
  26280. {$EXTERNALSYM RegSaveKeyA}
  26281. function RegSaveKeyA; external advapi32 name 'RegSaveKeyA';
  26282. {$EXTERNALSYM RegSaveKeyW}
  26283. function RegSaveKeyW; external advapi32 name 'RegSaveKeyW';
  26284. {$EXTERNALSYM RegSaveKey}
  26285. function RegSaveKey; external advapi32 name 'RegSaveKeyA';
  26286. {$EXTERNALSYM RegSetKeySecurity}
  26287. function RegSetKeySecurity; external advapi32 name 'RegSetKeySecurity';
  26288. {$EXTERNALSYM RegSetValueA}
  26289. function RegSetValueA; external advapi32 name 'RegSetValueA';
  26290. {$EXTERNALSYM RegSetValueW}
  26291. function RegSetValueW; external advapi32 name 'RegSetValueW';
  26292. {$EXTERNALSYM RegSetValue}
  26293. function RegSetValue; external advapi32 name 'RegSetValueA';
  26294. {$EXTERNALSYM RegSetValueExA}
  26295. function RegSetValueExA; external advapi32 name 'RegSetValueExA';
  26296. {$EXTERNALSYM RegSetValueExW}
  26297. function RegSetValueExW; external advapi32 name 'RegSetValueExW';
  26298. {$EXTERNALSYM RegSetValueEx}
  26299. function RegSetValueEx; external advapi32 name 'RegSetValueExA';
  26300. {$EXTERNALSYM RegUnLoadKeyA}
  26301. function RegUnLoadKeyA; external advapi32 name 'RegUnLoadKeyA';
  26302. {$EXTERNALSYM RegUnLoadKeyW}
  26303. function RegUnLoadKeyW; external advapi32 name 'RegUnLoadKeyW';
  26304. {$EXTERNALSYM RegUnLoadKey}
  26305. function RegUnLoadKey; external advapi32 name 'RegUnLoadKeyA';
  26306. {$EXTERNALSYM RegisterEventSourceA}
  26307. function RegisterEventSourceA; external advapi32 name 'RegisterEventSourceA';
  26308. {$EXTERNALSYM RegisterEventSourceW}
  26309. function RegisterEventSourceW; external advapi32 name 'RegisterEventSourceW';
  26310. {$EXTERNALSYM RegisterEventSource}
  26311. function RegisterEventSource; external advapi32 name 'RegisterEventSourceA';
  26312. {$EXTERNALSYM ReportEventA}
  26313. function ReportEventA; external advapi32 name 'ReportEventA';
  26314. {$EXTERNALSYM ReportEventW}
  26315. function ReportEventW; external advapi32 name 'ReportEventW';
  26316. {$EXTERNALSYM ReportEvent}
  26317. function ReportEvent; external advapi32 name 'ReportEventA';
  26318. {$EXTERNALSYM RevertToSelf}
  26319. function RevertToSelf; external advapi32 name 'RevertToSelf';
  26320. {$EXTERNALSYM SetAclInformation}
  26321. function SetAclInformation; external advapi32 name 'SetAclInformation';
  26322. {$EXTERNALSYM SetFileSecurityA}
  26323. function SetFileSecurityA; external advapi32 name 'SetFileSecurityA';
  26324. {$EXTERNALSYM SetFileSecurityW}
  26325. function SetFileSecurityW; external advapi32 name 'SetFileSecurityW';
  26326. {$EXTERNALSYM SetFileSecurity}
  26327. function SetFileSecurity; external advapi32 name 'SetFileSecurityA';
  26328. {$EXTERNALSYM SetKernelObjectSecurity}
  26329. function SetKernelObjectSecurity; external advapi32 name 'SetKernelObjectSecurity';
  26330. {$EXTERNALSYM SetPrivateObjectSecurity}
  26331. function SetPrivateObjectSecurity; external advapi32 name 'SetPrivateObjectSecurity';
  26332. {$EXTERNALSYM SetSecurityDescriptorDacl}
  26333. function SetSecurityDescriptorDacl; external advapi32 name 'SetSecurityDescriptorDacl';
  26334. {$EXTERNALSYM SetSecurityDescriptorGroup}
  26335. function SetSecurityDescriptorGroup; external advapi32 name 'SetSecurityDescriptorGroup';
  26336. {$EXTERNALSYM SetSecurityDescriptorOwner}
  26337. function SetSecurityDescriptorOwner; external advapi32 name 'SetSecurityDescriptorOwner';
  26338. {$EXTERNALSYM SetSecurityDescriptorSacl}
  26339. function SetSecurityDescriptorSacl; external advapi32 name 'SetSecurityDescriptorSacl';
  26340. {$EXTERNALSYM SetThreadToken}
  26341. function SetThreadToken; external advapi32 name 'SetThreadToken';
  26342. {$EXTERNALSYM SetTokenInformation}
  26343. function SetTokenInformation; external advapi32 name 'SetTokenInformation';
  26344.  
  26345. { Externals from imaghlp.dll }
  26346.  
  26347. { !!! these fuctions are not yet available in this dll
  26348. function WinSubmitCertificate; external imaghlp name 'WinSubmitCertificate';
  26349. function WinVerifyTrust; external imaghlp name 'WinVerifyTrust'; }
  26350.  
  26351. { Externals from kernel32.dll }
  26352.  
  26353. {$EXTERNALSYM AddAtomA}
  26354. function AddAtomA; external kernel32 name 'AddAtomA';
  26355. {$EXTERNALSYM AddAtomW}
  26356. function AddAtomW; external kernel32 name 'AddAtomW';
  26357. {$EXTERNALSYM AddAtom}
  26358. function AddAtom; external kernel32 name 'AddAtomA';
  26359. {$EXTERNALSYM AllocConsole}
  26360. function AllocConsole; external kernel32 name 'AllocConsole';
  26361. {$EXTERNALSYM AreFileApisANSI}
  26362. function AreFileApisANSI; external kernel32 name 'AreFileApisANSI';
  26363. {$EXTERNALSYM BackupRead}
  26364. function BackupRead; external kernel32 name 'BackupRead';
  26365. {$EXTERNALSYM BackupSeek}
  26366. function BackupSeek; external kernel32 name 'BackupSeek';
  26367. {$EXTERNALSYM BackupWrite}
  26368. function BackupWrite; external kernel32 name 'BackupWrite';
  26369. {$EXTERNALSYM Beep}
  26370. function Beep; external kernel32 name 'Beep';
  26371. {$EXTERNALSYM BeginUpdateResourceA}
  26372. function BeginUpdateResourceA; external kernel32 name 'BeginUpdateResourceA';
  26373. {$EXTERNALSYM BeginUpdateResourceW}
  26374. function BeginUpdateResourceW; external kernel32 name 'BeginUpdateResourceW';
  26375. {$EXTERNALSYM BeginUpdateResource}
  26376. function BeginUpdateResource; external kernel32 name 'BeginUpdateResourceA';
  26377. {$EXTERNALSYM BuildCommDCBA}
  26378. function BuildCommDCBA; external kernel32 name 'BuildCommDCBA';
  26379. {$EXTERNALSYM BuildCommDCBW}
  26380. function BuildCommDCBW; external kernel32 name 'BuildCommDCBW';
  26381. {$EXTERNALSYM BuildCommDCB}
  26382. function BuildCommDCB; external kernel32 name 'BuildCommDCBA';
  26383. {$EXTERNALSYM BuildCommDCBAndTimeoutsA}
  26384. function BuildCommDCBAndTimeoutsA; external kernel32 name 'BuildCommDCBAndTimeoutsA';
  26385. {$EXTERNALSYM BuildCommDCBAndTimeoutsW}
  26386. function BuildCommDCBAndTimeoutsW; external kernel32 name 'BuildCommDCBAndTimeoutsW';
  26387. {$EXTERNALSYM BuildCommDCBAndTimeouts}
  26388. function BuildCommDCBAndTimeouts; external kernel32 name 'BuildCommDCBAndTimeoutsA';
  26389. {$EXTERNALSYM CallNamedPipeA}
  26390. function CallNamedPipeA; external kernel32 name 'CallNamedPipeA';
  26391. {$EXTERNALSYM CallNamedPipeW}
  26392. function CallNamedPipeW; external kernel32 name 'CallNamedPipeW';
  26393. {$EXTERNALSYM CallNamedPipe}
  26394. function CallNamedPipe; external kernel32 name 'CallNamedPipeA';
  26395. {$EXTERNALSYM CancelIo}
  26396. function CancelIo; external kernel32 name 'CancelIo';
  26397. {$EXTERNALSYM CancelWaitableTimer}
  26398. function CancelWaitableTimer; external kernel32 name 'CancelWaitableTimer';
  26399. {$EXTERNALSYM ClearCommBreak}
  26400. function ClearCommBreak; external kernel32 name 'ClearCommBreak';
  26401. {$EXTERNALSYM ClearCommError}
  26402. function ClearCommError; external kernel32 name 'ClearCommError';
  26403. {$EXTERNALSYM CloseHandle}
  26404. function CloseHandle; external kernel32 name 'CloseHandle';
  26405. {$EXTERNALSYM CommConfigDialogA}
  26406. function CommConfigDialogA; external kernel32 name 'CommConfigDialogA';
  26407. {$EXTERNALSYM CommConfigDialogW}
  26408. function CommConfigDialogW; external kernel32 name 'CommConfigDialogW';
  26409. {$EXTERNALSYM CommConfigDialog}
  26410. function CommConfigDialog; external kernel32 name 'CommConfigDialogA';
  26411. {$EXTERNALSYM CompareFileTime}
  26412. function CompareFileTime; external kernel32 name 'CompareFileTime';
  26413. {$EXTERNALSYM CompareStringA}
  26414. function CompareStringA; external kernel32 name 'CompareStringA';
  26415. {$EXTERNALSYM CompareStringW}
  26416. function CompareStringW; external kernel32 name 'CompareStringW';
  26417. {$EXTERNALSYM CompareString}
  26418. function CompareString; external kernel32 name 'CompareStringA';
  26419. {$EXTERNALSYM ConnectNamedPipe}
  26420. function ConnectNamedPipe; external kernel32 name 'ConnectNamedPipe';
  26421. {$EXTERNALSYM ContinueDebugEvent}
  26422. function ContinueDebugEvent; external kernel32 name 'ContinueDebugEvent';
  26423. function ConvertThreadToFiber; external kernel32 name 'ConvertThreadToFiber';
  26424. {$EXTERNALSYM ConvertDefaultLocale}
  26425. function ConvertDefaultLocale; external kernel32 name 'ConvertDefaultLocale';
  26426. {$EXTERNALSYM CopyFileA}
  26427. function CopyFileA; external kernel32 name 'CopyFileA';
  26428. {$EXTERNALSYM CopyFileExA}
  26429. function CopyFileExA; external kernel32 name 'CopyFileExA';
  26430. {$EXTERNALSYM CopyFileW}
  26431. function CopyFileW; external kernel32 name 'CopyFileW';
  26432. {$EXTERNALSYM CopyFileExW}
  26433. function CopyFileExW; external kernel32 name 'CopyFileExW';
  26434. {$EXTERNALSYM CopyFile}
  26435. function CopyFile; external kernel32 name 'CopyFileA';
  26436. {$EXTERNALSYM CopyFileEx}
  26437. function CopyFileEx; external kernel32 name 'CopyFileExA';
  26438. {$EXTERNALSYM CreateConsoleScreenBuffer}
  26439. function CreateConsoleScreenBuffer; external kernel32 name 'CreateConsoleScreenBuffer';
  26440. {$EXTERNALSYM CreateDirectoryA}
  26441. function CreateDirectoryA; external kernel32 name 'CreateDirectoryA';
  26442. {$EXTERNALSYM CreateDirectoryW}
  26443. function CreateDirectoryW; external kernel32 name 'CreateDirectoryW';
  26444. {$EXTERNALSYM CreateDirectory}
  26445. function CreateDirectory; external kernel32 name 'CreateDirectoryA';
  26446. {$EXTERNALSYM CreateDirectoryExA}
  26447. function CreateDirectoryExA; external kernel32 name 'CreateDirectoryExA';
  26448. {$EXTERNALSYM CreateDirectoryExW}
  26449. function CreateDirectoryExW; external kernel32 name 'CreateDirectoryExW';
  26450. {$EXTERNALSYM CreateDirectoryEx}
  26451. function CreateDirectoryEx; external kernel32 name 'CreateDirectoryExA';
  26452. {$EXTERNALSYM CreateEventA}
  26453. function CreateEventA; external kernel32 name 'CreateEventA';
  26454. {$EXTERNALSYM CreateEventW}
  26455. function CreateEventW; external kernel32 name 'CreateEventW';
  26456. {$EXTERNALSYM CreateEvent}
  26457. function CreateEvent; external kernel32 name 'CreateEventA';
  26458. function CreateFiber; external kernel32 name 'CreateFiber';
  26459. {$EXTERNALSYM CreateFileA}
  26460. function CreateFileA; external kernel32 name 'CreateFileA';
  26461. {$EXTERNALSYM CreateFileW}
  26462. function CreateFileW; external kernel32 name 'CreateFileW';
  26463. {$EXTERNALSYM CreateFile}
  26464. function CreateFile; external kernel32 name 'CreateFileA';
  26465. {$EXTERNALSYM CreateFileMappingA}
  26466. function CreateFileMappingA; external kernel32 name 'CreateFileMappingA';
  26467. {$EXTERNALSYM CreateFileMappingW}
  26468. function CreateFileMappingW; external kernel32 name 'CreateFileMappingW';
  26469. {$EXTERNALSYM CreateFileMapping}
  26470. function CreateFileMapping; external kernel32 name 'CreateFileMappingA';
  26471. {$EXTERNALSYM CreateIoCompletionPort}
  26472. function CreateIoCompletionPort; external kernel32 name 'CreateIoCompletionPort';
  26473. {$EXTERNALSYM CreateMailslotA}
  26474. function CreateMailslotA; external kernel32 name 'CreateMailslotA';
  26475. {$EXTERNALSYM CreateMailslotW}
  26476. function CreateMailslotW; external kernel32 name 'CreateMailslotW';
  26477. {$EXTERNALSYM CreateMailslot}
  26478. function CreateMailslot; external kernel32 name 'CreateMailslotA';
  26479. {$EXTERNALSYM CreateMutexA}
  26480. function CreateMutexA; external kernel32 name 'CreateMutexA';
  26481. {$EXTERNALSYM CreateMutexW}
  26482. function CreateMutexW; external kernel32 name 'CreateMutexW';
  26483. {$EXTERNALSYM CreateMutex}
  26484. function CreateMutex; external kernel32 name 'CreateMutexA';
  26485. {$EXTERNALSYM CreateNamedPipeA}
  26486. function CreateNamedPipeA; external kernel32 name 'CreateNamedPipeA';
  26487. {$EXTERNALSYM CreateNamedPipeW}
  26488. function CreateNamedPipeW; external kernel32 name 'CreateNamedPipeW';
  26489. {$EXTERNALSYM CreateNamedPipe}
  26490. function CreateNamedPipe; external kernel32 name 'CreateNamedPipeA';
  26491. {$EXTERNALSYM CreatePipe}
  26492. function CreatePipe; external kernel32 name 'CreatePipe';
  26493. {$EXTERNALSYM CreateProcessA}
  26494. function CreateProcessA; external kernel32 name 'CreateProcessA';
  26495. {$EXTERNALSYM CreateProcessW}
  26496. function CreateProcessW; external kernel32 name 'CreateProcessW';
  26497. {$EXTERNALSYM CreateProcess}
  26498. function CreateProcess; external kernel32 name 'CreateProcessA';
  26499. {$EXTERNALSYM CreateRemoteThread}
  26500. function CreateRemoteThread; external kernel32 name 'CreateRemoteThread';
  26501. {$EXTERNALSYM CreateSemaphoreA}
  26502. function CreateSemaphoreA; external kernel32 name 'CreateSemaphoreA';
  26503. {$EXTERNALSYM CreateSemaphoreW}
  26504. function CreateSemaphoreW; external kernel32 name 'CreateSemaphoreW';
  26505. {$EXTERNALSYM CreateSemaphore}
  26506. function CreateSemaphore; external kernel32 name 'CreateSemaphoreA';
  26507. {$EXTERNALSYM CreateTapePartition}
  26508. function CreateTapePartition; external kernel32 name 'CreateTapePartition';
  26509. {$EXTERNALSYM CreateThread}
  26510. function CreateThread; external kernel32 name 'CreateThread';
  26511. {$EXTERNALSYM CreateWaitableTimerA}
  26512. function CreateWaitableTimerA; external kernel32 name 'CreateWaitableTimerA';
  26513. {$EXTERNALSYM CreateWaitableTimerW}
  26514. function CreateWaitableTimerW; external kernel32 name 'CreateWaitableTimerW';
  26515. {$EXTERNALSYM CreateWaitableTimer}
  26516. function CreateWaitableTimer; external kernel32 name 'CreateWaitableTimerA';
  26517. {$EXTERNALSYM DebugActiveProcess}
  26518. function DebugActiveProcess; external kernel32 name 'DebugActiveProcess';
  26519. {$EXTERNALSYM DebugBreak}
  26520. procedure DebugBreak; external kernel32 name 'DebugBreak';
  26521. {$EXTERNALSYM DefineDosDeviceA}
  26522. function DefineDosDeviceA; external kernel32 name 'DefineDosDeviceA';
  26523. {$EXTERNALSYM DefineDosDeviceW}
  26524. function DefineDosDeviceW; external kernel32 name 'DefineDosDeviceW';
  26525. {$EXTERNALSYM DefineDosDevice}
  26526. function DefineDosDevice; external kernel32 name 'DefineDosDeviceA';
  26527. {$EXTERNALSYM DeleteAtom}
  26528. function DeleteAtom; external kernel32 name 'DeleteAtom';
  26529. {$EXTERNALSYM DeleteCriticalSection}
  26530. procedure DeleteCriticalSection; external kernel32 name 'DeleteCriticalSection';
  26531. function DeleteFiber; external kernel32 name 'DeleteFiber';
  26532. {$EXTERNALSYM DeleteFileA}
  26533. function DeleteFileA; external kernel32 name 'DeleteFileA';
  26534. {$EXTERNALSYM DeleteFileW}
  26535. function DeleteFileW; external kernel32 name 'DeleteFileW';
  26536. {$EXTERNALSYM DeleteFile}
  26537. function DeleteFile; external kernel32 name 'DeleteFileA';
  26538. {$EXTERNALSYM DeviceIoControl}
  26539. function DeviceIoControl; external kernel32 name 'DeviceIoControl';
  26540. {$EXTERNALSYM DisableThreadLibraryCalls}
  26541. function DisableThreadLibraryCalls; external kernel32 name 'DisableThreadLibraryCalls';
  26542. {$EXTERNALSYM DisconnectNamedPipe}
  26543. function DisconnectNamedPipe; external kernel32 name 'DisconnectNamedPipe';
  26544. {$EXTERNALSYM DosDateTimeToFileTime}
  26545. function DosDateTimeToFileTime; external kernel32 name 'DosDateTimeToFileTime';
  26546. {$EXTERNALSYM DuplicateHandle}
  26547. function DuplicateHandle; external kernel32 name 'DuplicateHandle';
  26548. {$EXTERNALSYM EndUpdateResourceA}
  26549. function EndUpdateResourceA; external kernel32 name 'EndUpdateResourceA';
  26550. {$EXTERNALSYM EndUpdateResourceW}
  26551. function EndUpdateResourceW; external kernel32 name 'EndUpdateResourceW';
  26552. {$EXTERNALSYM EndUpdateResource}
  26553. function EndUpdateResource; external kernel32 name 'EndUpdateResourceA';
  26554. {$EXTERNALSYM EnterCriticalSection}
  26555. procedure EnterCriticalSection; external kernel32 name 'EnterCriticalSection';
  26556. {$EXTERNALSYM EnumCalendarInfoA}
  26557. function EnumCalendarInfoA; external kernel32 name 'EnumCalendarInfoA';
  26558. {$EXTERNALSYM EnumCalendarInfoW}
  26559. function EnumCalendarInfoW; external kernel32 name 'EnumCalendarInfoW';
  26560. {$EXTERNALSYM EnumCalendarInfo}
  26561. function EnumCalendarInfo; external kernel32 name 'EnumCalendarInfoA';
  26562. {$EXTERNALSYM EnumDateFormatsA}
  26563. function EnumDateFormatsA; external kernel32 name 'EnumDateFormatsA';
  26564. {$EXTERNALSYM EnumDateFormatsW}
  26565. function EnumDateFormatsW; external kernel32 name 'EnumDateFormatsW';
  26566. {$EXTERNALSYM EnumDateFormats}
  26567. function EnumDateFormats; external kernel32 name 'EnumDateFormatsA';
  26568. {$EXTERNALSYM EnumResourceLanguagesA}
  26569. function EnumResourceLanguagesA; external kernel32 name 'EnumResourceLanguagesA';
  26570. {$EXTERNALSYM EnumResourceLanguagesW}
  26571. function EnumResourceLanguagesW; external kernel32 name 'EnumResourceLanguagesW';
  26572. {$EXTERNALSYM EnumResourceLanguages}
  26573. function EnumResourceLanguages; external kernel32 name 'EnumResourceLanguagesA';
  26574. {$EXTERNALSYM EnumResourceNamesA}
  26575. function EnumResourceNamesA; external kernel32 name 'EnumResourceNamesA';
  26576. {$EXTERNALSYM EnumResourceNamesW}
  26577. function EnumResourceNamesW; external kernel32 name 'EnumResourceNamesW';
  26578. {$EXTERNALSYM EnumResourceNames}
  26579. function EnumResourceNames; external kernel32 name 'EnumResourceNamesA';
  26580. {$EXTERNALSYM EnumResourceTypesA}
  26581. function EnumResourceTypesA; external kernel32 name 'EnumResourceTypesA';
  26582. {$EXTERNALSYM EnumResourceTypesW}
  26583. function EnumResourceTypesW; external kernel32 name 'EnumResourceTypesW';
  26584. {$EXTERNALSYM EnumResourceTypes}
  26585. function EnumResourceTypes; external kernel32 name 'EnumResourceTypesA';
  26586. {$EXTERNALSYM EnumSystemCodePagesA}
  26587. function EnumSystemCodePagesA; external kernel32 name 'EnumSystemCodePagesA';
  26588. {$EXTERNALSYM EnumSystemCodePagesW}
  26589. function EnumSystemCodePagesW; external kernel32 name 'EnumSystemCodePagesW';
  26590. {$EXTERNALSYM EnumSystemCodePages}
  26591. function EnumSystemCodePages; external kernel32 name 'EnumSystemCodePagesA';
  26592. {$EXTERNALSYM EnumSystemLocalesA}
  26593. function EnumSystemLocalesA; external kernel32 name 'EnumSystemLocalesA';
  26594. {$EXTERNALSYM EnumSystemLocalesW}
  26595. function EnumSystemLocalesW; external kernel32 name 'EnumSystemLocalesW';
  26596. {$EXTERNALSYM EnumSystemLocales}
  26597. function EnumSystemLocales; external kernel32 name 'EnumSystemLocalesA';
  26598. {$EXTERNALSYM EnumTimeFormatsA}
  26599. function EnumTimeFormatsA; external kernel32 name 'EnumTimeFormatsA';
  26600. {$EXTERNALSYM EnumTimeFormatsW}
  26601. function EnumTimeFormatsW; external kernel32 name 'EnumTimeFormatsW';
  26602. {$EXTERNALSYM EnumTimeFormats}
  26603. function EnumTimeFormats; external kernel32 name 'EnumTimeFormatsA';
  26604. {$EXTERNALSYM EraseTape}
  26605. function EraseTape; external kernel32 name 'EraseTape';
  26606. {$EXTERNALSYM EscapeCommFunction}
  26607. function EscapeCommFunction; external kernel32 name 'EscapeCommFunction';
  26608. {$EXTERNALSYM ExitProcess}
  26609. procedure ExitProcess; external kernel32 name 'ExitProcess';
  26610. {$EXTERNALSYM ExitThread}
  26611. procedure ExitThread; external kernel32 name 'ExitThread';
  26612. {$EXTERNALSYM ExpandEnvironmentStringsA}
  26613. function ExpandEnvironmentStringsA; external kernel32 name 'ExpandEnvironmentStringsA';
  26614. {$EXTERNALSYM ExpandEnvironmentStringsW}
  26615. function ExpandEnvironmentStringsW; external kernel32 name 'ExpandEnvironmentStringsW';
  26616. {$EXTERNALSYM ExpandEnvironmentStrings}
  26617. function ExpandEnvironmentStrings; external kernel32 name 'ExpandEnvironmentStringsA';
  26618. {$EXTERNALSYM FatalAppExitA}
  26619. procedure FatalAppExitA; external kernel32 name 'FatalAppExitA';
  26620. {$EXTERNALSYM FatalAppExitW}
  26621. procedure FatalAppExitW; external kernel32 name 'FatalAppExitW';
  26622. {$EXTERNALSYM FatalAppExit}
  26623. procedure FatalAppExit; external kernel32 name 'FatalAppExitA';
  26624. {$EXTERNALSYM FatalExit}
  26625. procedure FatalExit; external kernel32 name 'FatalExit';
  26626. {$EXTERNALSYM FileTimeToDosDateTime}
  26627. function FileTimeToDosDateTime; external kernel32 name 'FileTimeToDosDateTime';
  26628. {$EXTERNALSYM FileTimeToLocalFileTime}
  26629. function FileTimeToLocalFileTime; external kernel32 name 'FileTimeToLocalFileTime';
  26630. {$EXTERNALSYM FileTimeToSystemTime}
  26631. function FileTimeToSystemTime; external kernel32 name 'FileTimeToSystemTime';
  26632. {$EXTERNALSYM FillConsoleOutputAttribute}
  26633. function FillConsoleOutputAttribute; external kernel32 name 'FillConsoleOutputAttribute';
  26634. {$EXTERNALSYM FillConsoleOutputCharacterA}
  26635. function FillConsoleOutputCharacterA; external kernel32 name 'FillConsoleOutputCharacterA';
  26636. {$EXTERNALSYM FillConsoleOutputCharacterW}
  26637. function FillConsoleOutputCharacterW; external kernel32 name 'FillConsoleOutputCharacterW';
  26638. {$EXTERNALSYM FillConsoleOutputCharacter}
  26639. function FillConsoleOutputCharacter; external kernel32 name 'FillConsoleOutputCharacterA';
  26640. {$EXTERNALSYM FindAtomA}
  26641. function FindAtomA; external kernel32 name 'FindAtomA';
  26642. {$EXTERNALSYM FindAtomW}
  26643. function FindAtomW; external kernel32 name 'FindAtomW';
  26644. {$EXTERNALSYM FindAtom}
  26645. function FindAtom; external kernel32 name 'FindAtomA';
  26646. {$EXTERNALSYM FindClose}
  26647. function FindClose; external kernel32 name 'FindClose';
  26648. {$EXTERNALSYM FindCloseChangeNotification}
  26649. function FindCloseChangeNotification; external kernel32 name 'FindCloseChangeNotification';
  26650. {$EXTERNALSYM FindFirstChangeNotificationA}
  26651. function FindFirstChangeNotificationA; external kernel32 name 'FindFirstChangeNotificationA';
  26652. {$EXTERNALSYM FindFirstChangeNotificationW}
  26653. function FindFirstChangeNotificationW; external kernel32 name 'FindFirstChangeNotificationW';
  26654. {$EXTERNALSYM FindFirstChangeNotification}
  26655. function FindFirstChangeNotification; external kernel32 name 'FindFirstChangeNotificationA';
  26656. {$EXTERNALSYM FindFirstFileA}
  26657. function FindFirstFileA; external kernel32 name 'FindFirstFileA';
  26658. function FindFirstFileExA; external kernel32 name 'FindFirstFileExA';
  26659. {$EXTERNALSYM FindFirstFileW}
  26660. function FindFirstFileW; external kernel32 name 'FindFirstFileW';
  26661. function FindFirstFileExW; external kernel32 name 'FindFirstFileExW';
  26662. {$EXTERNALSYM FindFirstFile}
  26663. function FindFirstFile; external kernel32 name 'FindFirstFileA';
  26664. function FindFirstFileEx; external kernel32 name 'FindFirstFileExA';
  26665. {$EXTERNALSYM FindNextChangeNotification}
  26666. function FindNextChangeNotification; external kernel32 name 'FindNextChangeNotification';
  26667. {$EXTERNALSYM FindNextFileA}
  26668. function FindNextFileA; external kernel32 name 'FindNextFileA';
  26669. {$EXTERNALSYM FindNextFileW}
  26670. function FindNextFileW; external kernel32 name 'FindNextFileW';
  26671. {$EXTERNALSYM FindNextFile}
  26672. function FindNextFile; external kernel32 name 'FindNextFileA';
  26673. {$EXTERNALSYM FindResourceA}
  26674. function FindResourceA; external kernel32 name 'FindResourceA';
  26675. {$EXTERNALSYM FindResourceW}
  26676. function FindResourceW; external kernel32 name 'FindResourceW';
  26677. {$EXTERNALSYM FindResource}
  26678. function FindResource; external kernel32 name 'FindResourceA';
  26679. {$EXTERNALSYM FindResourceExA}
  26680. function FindResourceExA; external kernel32 name 'FindResourceExA';
  26681. {$EXTERNALSYM FindResourceExW}
  26682. function FindResourceExW; external kernel32 name 'FindResourceExW';
  26683. {$EXTERNALSYM FindResourceEx}
  26684. function FindResourceEx; external kernel32 name 'FindResourceExA';
  26685. {$EXTERNALSYM FlushConsoleInputBuffer}
  26686. function FlushConsoleInputBuffer; external kernel32 name 'FlushConsoleInputBuffer';
  26687. {$EXTERNALSYM FlushFileBuffers}
  26688. function FlushFileBuffers; external kernel32 name 'FlushFileBuffers';
  26689. {$EXTERNALSYM FlushInstructionCache}
  26690. function FlushInstructionCache; external kernel32 name 'FlushInstructionCache';
  26691. {$EXTERNALSYM FlushViewOfFile}
  26692. function FlushViewOfFile; external kernel32 name 'FlushViewOfFile';
  26693. {$EXTERNALSYM FoldStringA}
  26694. function FoldStringA; external kernel32 name 'FoldStringA';
  26695. {$EXTERNALSYM FoldStringW}
  26696. function FoldStringW; external kernel32 name 'FoldStringW';
  26697. {$EXTERNALSYM FoldString}
  26698. function FoldString; external kernel32 name 'FoldStringA';
  26699. {$EXTERNALSYM FormatMessageA}
  26700. function FormatMessageA; external kernel32 name 'FormatMessageA';
  26701. {$EXTERNALSYM FormatMessageW}
  26702. function FormatMessageW; external kernel32 name 'FormatMessageW';
  26703. {$EXTERNALSYM FormatMessage}
  26704. function FormatMessage; external kernel32 name 'FormatMessageA';
  26705. {$EXTERNALSYM FreeConsole}
  26706. function FreeConsole; external kernel32 name 'FreeConsole';
  26707. {$EXTERNALSYM FreeEnvironmentStringsA}
  26708. function FreeEnvironmentStringsA; external kernel32 name 'FreeEnvironmentStringsA';
  26709. {$EXTERNALSYM FreeEnvironmentStringsW}
  26710. function FreeEnvironmentStringsW; external kernel32 name 'FreeEnvironmentStringsW';
  26711. {$EXTERNALSYM FreeEnvironmentStrings}
  26712. function FreeEnvironmentStrings; external kernel32 name 'FreeEnvironmentStringsA';
  26713. {$EXTERNALSYM FreeLibrary}
  26714. function FreeLibrary; external kernel32 name 'FreeLibrary';
  26715. {$EXTERNALSYM FreeLibraryAndExitThread}
  26716. procedure FreeLibraryAndExitThread; external kernel32 name 'FreeLibraryAndExitThread';
  26717. {$EXTERNALSYM InterlockedCompareExchange}
  26718. function InterlockedCompareExchange; external kernel32 name 'InterlockedCompareExchange';
  26719. {$EXTERNALSYM InterlockedDecrement}
  26720. function InterlockedDecrement; external kernel32 name 'InterlockedDecrement';
  26721. {$EXTERNALSYM InterlockedExchange}
  26722. function InterlockedExchange; external kernel32 name 'InterlockedExchange';
  26723. {$EXTERNALSYM InterlockedExchangeAdd}
  26724. function InterlockedExchangeAdd; external kernel32 name 'InterlockedExchangeAdd';
  26725. {$EXTERNALSYM InterlockedIncrement}
  26726. function InterlockedIncrement; external kernel32 name 'InterlockedIncrement';
  26727. {$EXTERNALSYM FreeResource}
  26728. function FreeResource; external kernel32 name 'FreeResource';
  26729. {$EXTERNALSYM GenerateConsoleCtrlEvent}
  26730. function GenerateConsoleCtrlEvent; external kernel32 name 'GenerateConsoleCtrlEvent';
  26731. {$EXTERNALSYM GetACP}
  26732. function GetACP; external kernel32 name 'GetACP';
  26733. {$EXTERNALSYM GetAtomNameA}
  26734. function GetAtomNameA; external kernel32 name 'GetAtomNameA';
  26735. {$EXTERNALSYM GetAtomNameW}
  26736. function GetAtomNameW; external kernel32 name 'GetAtomNameW';
  26737. {$EXTERNALSYM GetAtomName}
  26738. function GetAtomName; external kernel32 name 'GetAtomNameA';
  26739. {$EXTERNALSYM GetBinaryTypeA}
  26740. function GetBinaryTypeA; external kernel32 name 'GetBinaryTypeA';
  26741. {$EXTERNALSYM GetBinaryTypeW}
  26742. function GetBinaryTypeW; external kernel32 name 'GetBinaryTypeW';
  26743. {$EXTERNALSYM GetBinaryType}
  26744. function GetBinaryType; external kernel32 name 'GetBinaryTypeA';
  26745. {$EXTERNALSYM GetCPInfo}
  26746. function GetCPInfo; external kernel32 name 'GetCPInfo';
  26747. {$EXTERNALSYM GetCommandLineA}
  26748. function GetCommandLineA; external kernel32 name 'GetCommandLineA';
  26749. {$EXTERNALSYM GetCommandLineW}
  26750. function GetCommandLineW; external kernel32 name 'GetCommandLineW';
  26751. {$EXTERNALSYM GetCommandLine}
  26752. function GetCommandLine; external kernel32 name 'GetCommandLineA';
  26753. {$EXTERNALSYM GetCommConfig}
  26754. function GetCommConfig; external kernel32 name 'GetCommConfig';
  26755. {$EXTERNALSYM GetCommMask}
  26756. function GetCommMask; external kernel32 name 'GetCommMask';
  26757. {$EXTERNALSYM GetCommModemStatus}
  26758. function GetCommModemStatus; external kernel32 name 'GetCommModemStatus';
  26759. {$EXTERNALSYM GetCommProperties}
  26760. function GetCommProperties; external kernel32 name 'GetCommProperties';
  26761. {$EXTERNALSYM GetCommState}
  26762. function GetCommState; external kernel32 name 'GetCommState';
  26763. {$EXTERNALSYM GetCommTimeouts}
  26764. function GetCommTimeouts; external kernel32 name 'GetCommTimeouts';
  26765. {$EXTERNALSYM GetCompressedFileSizeA}
  26766. function GetCompressedFileSizeA; external kernel32 name 'GetCompressedFileSizeA';
  26767. {$EXTERNALSYM GetCompressedFileSizeW}
  26768. function GetCompressedFileSizeW; external kernel32 name 'GetCompressedFileSizeW';
  26769. {$EXTERNALSYM GetCompressedFileSize}
  26770. function GetCompressedFileSize; external kernel32 name 'GetCompressedFileSizeA';
  26771. {$EXTERNALSYM GetComputerNameA}
  26772. function GetComputerNameA; external kernel32 name 'GetComputerNameA';
  26773. {$EXTERNALSYM GetComputerNameW}
  26774. function GetComputerNameW; external kernel32 name 'GetComputerNameW';
  26775. {$EXTERNALSYM GetComputerName}
  26776. function GetComputerName; external kernel32 name 'GetComputerNameA';
  26777. {$EXTERNALSYM GetConsoleCP}
  26778. function GetConsoleCP; external kernel32 name 'GetConsoleCP';
  26779. {$EXTERNALSYM GetConsoleCursorInfo}
  26780. function GetConsoleCursorInfo; external kernel32 name 'GetConsoleCursorInfo';
  26781. {$EXTERNALSYM GetConsoleMode}
  26782. function GetConsoleMode; external kernel32 name 'GetConsoleMode';
  26783. {$EXTERNALSYM GetConsoleOutputCP}
  26784. function GetConsoleOutputCP; external kernel32 name 'GetConsoleOutputCP';
  26785. {$EXTERNALSYM GetConsoleScreenBufferInfo}
  26786. function GetConsoleScreenBufferInfo; external kernel32 name 'GetConsoleScreenBufferInfo';
  26787. {$EXTERNALSYM GetConsoleTitleA}
  26788. function GetConsoleTitleA; external kernel32 name 'GetConsoleTitleA';
  26789. {$EXTERNALSYM GetConsoleTitleW}
  26790. function GetConsoleTitleW; external kernel32 name 'GetConsoleTitleW';
  26791. {$EXTERNALSYM GetConsoleTitle}
  26792. function GetConsoleTitle; external kernel32 name 'GetConsoleTitleA';
  26793. {$EXTERNALSYM GetCurrencyFormatA}
  26794. function GetCurrencyFormatA; external kernel32 name 'GetCurrencyFormatA';
  26795. {$EXTERNALSYM GetCurrencyFormatW}
  26796. function GetCurrencyFormatW; external kernel32 name 'GetCurrencyFormatW';
  26797. {$EXTERNALSYM GetCurrencyFormat}
  26798. function GetCurrencyFormat; external kernel32 name 'GetCurrencyFormatA';
  26799. {$EXTERNALSYM GetCurrentDirectoryA}
  26800. function GetCurrentDirectoryA; external kernel32 name 'GetCurrentDirectoryA';
  26801. {$EXTERNALSYM GetCurrentDirectoryW}
  26802. function GetCurrentDirectoryW; external kernel32 name 'GetCurrentDirectoryW';
  26803. {$EXTERNALSYM GetCurrentDirectory}
  26804. function GetCurrentDirectory; external kernel32 name 'GetCurrentDirectoryA';
  26805. {$EXTERNALSYM GetCurrentProcess}
  26806. function GetCurrentProcess; external kernel32 name 'GetCurrentProcess';
  26807. {$EXTERNALSYM GetCurrentProcessId}
  26808. function GetCurrentProcessId; external kernel32 name 'GetCurrentProcessId';
  26809. {$EXTERNALSYM GetCurrentThread}
  26810. function GetCurrentThread; external kernel32 name 'GetCurrentThread';
  26811. {$EXTERNALSYM GetCurrentThreadId}
  26812. function GetCurrentThreadId; external kernel32 name 'GetCurrentThreadId';
  26813. {$EXTERNALSYM GetDateFormatA}
  26814. function GetDateFormatA; external kernel32 name 'GetDateFormatA';
  26815. {$EXTERNALSYM GetDateFormatW}
  26816. function GetDateFormatW; external kernel32 name 'GetDateFormatW';
  26817. {$EXTERNALSYM GetDateFormat}
  26818. function GetDateFormat; external kernel32 name 'GetDateFormatA';
  26819. {$EXTERNALSYM GetDefaultCommConfigA}
  26820. function GetDefaultCommConfigA; external kernel32 name 'GetDefaultCommConfigA';
  26821. {$EXTERNALSYM GetDefaultCommConfigW}
  26822. function GetDefaultCommConfigW; external kernel32 name 'GetDefaultCommConfigW';
  26823. {$EXTERNALSYM GetDefaultCommConfig}
  26824. function GetDefaultCommConfig; external kernel32 name 'GetDefaultCommConfigA';
  26825. {$EXTERNALSYM GetDiskFreeSpaceA}
  26826. function GetDiskFreeSpaceA; external kernel32 name 'GetDiskFreeSpaceA';
  26827. {$EXTERNALSYM GetDiskFreeSpaceW}
  26828. function GetDiskFreeSpaceW; external kernel32 name 'GetDiskFreeSpaceW';
  26829. {$EXTERNALSYM GetDiskFreeSpace}
  26830. function GetDiskFreeSpace; external kernel32 name 'GetDiskFreeSpaceA';
  26831. function GetDiskFreeSpaceExA; external kernel32 name 'GetDiskFreeSpaceExA';
  26832. function GetDiskFreeSpaceExW; external kernel32 name 'GetDiskFreeSpaceExW';
  26833. function GetDiskFreeSpaceEx; external kernel32 name 'GetDiskFreeSpaceExA';
  26834. {$EXTERNALSYM GetDriveTypeA}
  26835. function GetDriveTypeA; external kernel32 name 'GetDriveTypeA';
  26836. {$EXTERNALSYM GetDriveTypeW}
  26837. function GetDriveTypeW; external kernel32 name 'GetDriveTypeW';
  26838. {$EXTERNALSYM GetDriveType}
  26839. function GetDriveType; external kernel32 name 'GetDriveTypeA';
  26840. {$EXTERNALSYM GetEnvironmentStringsA}
  26841. function GetEnvironmentStringsA; external kernel32 name 'GetEnvironmentStringsA';
  26842. {$EXTERNALSYM GetEnvironmentStringsW}
  26843. function GetEnvironmentStringsW; external kernel32 name 'GetEnvironmentStringsW';
  26844. {$EXTERNALSYM GetEnvironmentStrings}
  26845. function GetEnvironmentStrings; external kernel32 name 'GetEnvironmentStringsA';
  26846. {$EXTERNALSYM GetEnvironmentVariableA}
  26847. function GetEnvironmentVariableA; external kernel32 name 'GetEnvironmentVariableA';
  26848. {$EXTERNALSYM GetEnvironmentVariableW}
  26849. function GetEnvironmentVariableW; external kernel32 name 'GetEnvironmentVariableW';
  26850. {$EXTERNALSYM GetEnvironmentVariable}
  26851. function GetEnvironmentVariable; external kernel32 name 'GetEnvironmentVariableA';
  26852. {$EXTERNALSYM GetExitCodeProcess}
  26853. function GetExitCodeProcess; external kernel32 name 'GetExitCodeProcess';
  26854. {$EXTERNALSYM GetExitCodeThread}
  26855. function GetExitCodeThread; external kernel32 name 'GetExitCodeThread';
  26856. {$EXTERNALSYM GetFileAttributesA}
  26857. function GetFileAttributesA; external kernel32 name 'GetFileAttributesA';
  26858. {$EXTERNALSYM GetFileAttributesW}
  26859. function GetFileAttributesW; external kernel32 name 'GetFileAttributesW';
  26860. {$EXTERNALSYM GetFileAttributes}
  26861. function GetFileAttributes; external kernel32 name 'GetFileAttributesA';
  26862. {$EXTERNALSYM GetFileAttributesExA}
  26863. function GetFileAttributesExA; external kernel32 name 'GetFileAttributesExA';
  26864. {$EXTERNALSYM GetFileAttributesExW}
  26865. function GetFileAttributesExW; external kernel32 name 'GetFileAttributesExW';
  26866. {$EXTERNALSYM GetFileAttributesEx}
  26867. function GetFileAttributesEx; external kernel32 name 'GetFileAttributesExA';
  26868. {$EXTERNALSYM GetFileInformationByHandle}
  26869. function GetFileInformationByHandle; external kernel32 name 'GetFileInformationByHandle';
  26870. {$EXTERNALSYM GetFileSize}
  26871. function GetFileSize; external kernel32 name 'GetFileSize';
  26872. {$EXTERNALSYM GetFileTime}
  26873. function GetFileTime; external kernel32 name 'GetFileTime';
  26874. {$EXTERNALSYM GetFileType}
  26875. function GetFileType; external kernel32 name 'GetFileType';
  26876. {$EXTERNALSYM GetFullPathNameA}
  26877. function GetFullPathNameA; external kernel32 name 'GetFullPathNameA';
  26878. {$EXTERNALSYM GetFullPathNameW}
  26879. function GetFullPathNameW; external kernel32 name 'GetFullPathNameW';
  26880. {$EXTERNALSYM GetFullPathName}
  26881. function GetFullPathName; external kernel32 name 'GetFullPathNameA';
  26882. {$EXTERNALSYM GetHandleInformation}
  26883. function GetHandleInformation; external kernel32 name 'GetHandleInformation';
  26884. {$EXTERNALSYM GetLargestConsoleWindowSize}
  26885. function GetLargestConsoleWindowSize; external kernel32 name 'GetLargestConsoleWindowSize';
  26886. {$EXTERNALSYM GetLastError}
  26887. function GetLastError; external kernel32 name 'GetLastError';
  26888. {$EXTERNALSYM GetLocalTime}
  26889. procedure GetLocalTime; external kernel32 name 'GetLocalTime';
  26890. {$EXTERNALSYM GetLocaleInfoA}
  26891. function GetLocaleInfoA; external kernel32 name 'GetLocaleInfoA';
  26892. {$EXTERNALSYM GetLocaleInfoW}
  26893. function GetLocaleInfoW; external kernel32 name 'GetLocaleInfoW';
  26894. {$EXTERNALSYM GetLocaleInfo}
  26895. function GetLocaleInfo; external kernel32 name 'GetLocaleInfoA';
  26896. {$EXTERNALSYM GetLogicalDriveStringsA}
  26897. function GetLogicalDriveStringsA; external kernel32 name 'GetLogicalDriveStringsA';
  26898. {$EXTERNALSYM GetLogicalDriveStringsW}
  26899. function GetLogicalDriveStringsW; external kernel32 name 'GetLogicalDriveStringsW';
  26900. {$EXTERNALSYM GetLogicalDriveStrings}
  26901. function GetLogicalDriveStrings; external kernel32 name 'GetLogicalDriveStringsA';
  26902. {$EXTERNALSYM GetLogicalDrives}
  26903. function GetLogicalDrives; external kernel32 name 'GetLogicalDrives';
  26904. {$EXTERNALSYM GetMailslotInfo}
  26905. function GetMailslotInfo; external kernel32 name 'GetMailslotInfo';
  26906. {$EXTERNALSYM GetModuleFileNameA}
  26907. function GetModuleFileNameA; external kernel32 name 'GetModuleFileNameA';
  26908. {$EXTERNALSYM GetModuleFileNameW}
  26909. function GetModuleFileNameW; external kernel32 name 'GetModuleFileNameW';
  26910. {$EXTERNALSYM GetModuleFileName}
  26911. function GetModuleFileName; external kernel32 name 'GetModuleFileNameA';
  26912. {$EXTERNALSYM GetModuleHandleA}
  26913. function GetModuleHandleA; external kernel32 name 'GetModuleHandleA';
  26914. {$EXTERNALSYM GetModuleHandleW}
  26915. function GetModuleHandleW; external kernel32 name 'GetModuleHandleW';
  26916. {$EXTERNALSYM GetModuleHandle}
  26917. function GetModuleHandle; external kernel32 name 'GetModuleHandleA';
  26918. {$EXTERNALSYM GetNamedPipeHandleStateA}
  26919. function GetNamedPipeHandleStateA; external kernel32 name 'GetNamedPipeHandleStateA';
  26920. {$EXTERNALSYM GetNamedPipeHandleStateW}
  26921. function GetNamedPipeHandleStateW; external kernel32 name 'GetNamedPipeHandleStateW';
  26922. {$EXTERNALSYM GetNamedPipeHandleState}
  26923. function GetNamedPipeHandleState; external kernel32 name 'GetNamedPipeHandleStateA';
  26924. {$EXTERNALSYM GetNamedPipeInfo}
  26925. function GetNamedPipeInfo; external kernel32 name 'GetNamedPipeInfo';
  26926. {$EXTERNALSYM GetNumberFormatA}
  26927. function GetNumberFormatA; external kernel32 name 'GetNumberFormatA';
  26928. {$EXTERNALSYM GetNumberFormatW}
  26929. function GetNumberFormatW; external kernel32 name 'GetNumberFormatW';
  26930. {$EXTERNALSYM GetNumberFormat}
  26931. function GetNumberFormat; external kernel32 name 'GetNumberFormatA';
  26932. {$EXTERNALSYM GetNumberOfConsoleInputEvents}
  26933. function GetNumberOfConsoleInputEvents; external kernel32 name 'GetNumberOfConsoleInputEvents';
  26934. {$EXTERNALSYM GetNumberOfConsoleMouseButtons}
  26935. function GetNumberOfConsoleMouseButtons; external kernel32 name 'GetNumberOfConsoleMouseButtons';
  26936. {$EXTERNALSYM GetOEMCP}
  26937. function GetOEMCP; external kernel32 name 'GetOEMCP';
  26938. {$EXTERNALSYM GetOverlappedResult}
  26939. function GetOverlappedResult; external kernel32 name 'GetOverlappedResult';
  26940. {$EXTERNALSYM GetPriorityClass}
  26941. function GetPriorityClass; external kernel32 name 'GetPriorityClass';
  26942. {$EXTERNALSYM GetPrivateProfileIntA}
  26943. function GetPrivateProfileIntA; external kernel32 name 'GetPrivateProfileIntA';
  26944. {$EXTERNALSYM GetPrivateProfileIntW}
  26945. function GetPrivateProfileIntW; external kernel32 name 'GetPrivateProfileIntW';
  26946. {$EXTERNALSYM GetPrivateProfileInt}
  26947. function GetPrivateProfileInt; external kernel32 name 'GetPrivateProfileIntA';
  26948. {$EXTERNALSYM GetPrivateProfileSectionA}
  26949. function GetPrivateProfileSectionA; external kernel32 name 'GetPrivateProfileSectionA';
  26950. {$EXTERNALSYM GetPrivateProfileSectionW}
  26951. function GetPrivateProfileSectionW; external kernel32 name 'GetPrivateProfileSectionW';
  26952. {$EXTERNALSYM GetPrivateProfileSection}
  26953. function GetPrivateProfileSection; external kernel32 name 'GetPrivateProfileSectionA';
  26954. {$EXTERNALSYM GetPrivateProfileSectionNamesA}
  26955. function GetPrivateProfileSectionNamesA; external kernel32 name 'GetPrivateProfileSectionNamesA';
  26956. {$EXTERNALSYM GetPrivateProfileSectionNamesW}
  26957. function GetPrivateProfileSectionNamesW; external kernel32 name 'GetPrivateProfileSectionNamesW';
  26958. {$EXTERNALSYM GetPrivateProfileSectionNames}
  26959. function GetPrivateProfileSectionNames; external kernel32 name 'GetPrivateProfileSectionNamesA';
  26960. {$EXTERNALSYM GetPrivateProfileStringA}
  26961. function GetPrivateProfileStringA; external kernel32 name 'GetPrivateProfileStringA';
  26962. {$EXTERNALSYM GetPrivateProfileStringW}
  26963. function GetPrivateProfileStringW; external kernel32 name 'GetPrivateProfileStringW';
  26964. {$EXTERNALSYM GetPrivateProfileString}
  26965. function GetPrivateProfileString; external kernel32 name 'GetPrivateProfileStringA';
  26966. {$EXTERNALSYM GetProcAddress}
  26967. function GetProcAddress; external kernel32 name 'GetProcAddress';
  26968. {$EXTERNALSYM GetProcessAffinityMask}
  26969. function GetProcessAffinityMask; external kernel32 name 'GetProcessAffinityMask';
  26970. {$EXTERNALSYM GetProcessHeap}
  26971. function GetProcessHeap; external kernel32 name 'GetProcessHeap';
  26972. {$EXTERNALSYM GetProcessHeaps}
  26973. function GetProcessHeaps; external kernel32 name 'GetProcessHeaps';
  26974. function GetProcessPriorityBoost; external kernel32 name 'GetProcessPriorityBoost';
  26975. {$EXTERNALSYM GetProcessShutdownParameters}
  26976. function GetProcessShutdownParameters; external kernel32 name 'GetProcessShutdownParameters';
  26977. {$EXTERNALSYM GetProcessTimes}
  26978. function GetProcessTimes; external kernel32 name 'GetProcessTimes';
  26979. {$EXTERNALSYM GetProcessVersion}
  26980. function GetProcessVersion; external kernel32 name 'GetProcessVersion';
  26981. {$EXTERNALSYM GetProcessWorkingSetSize}
  26982. function GetProcessWorkingSetSize; external kernel32 name 'GetProcessWorkingSetSize';
  26983. {$EXTERNALSYM GetProfileIntA}
  26984. function GetProfileIntA; external kernel32 name 'GetProfileIntA';
  26985. {$EXTERNALSYM GetProfileIntW}
  26986. function GetProfileIntW; external kernel32 name 'GetProfileIntW';
  26987. {$EXTERNALSYM GetProfileInt}
  26988. function GetProfileInt; external kernel32 name 'GetProfileIntA';
  26989. {$EXTERNALSYM GetProfileSectionA}
  26990. function GetProfileSectionA; external kernel32 name 'GetProfileSectionA';
  26991. {$EXTERNALSYM GetProfileSectionW}
  26992. function GetProfileSectionW; external kernel32 name 'GetProfileSectionW';
  26993. {$EXTERNALSYM GetProfileSection}
  26994. function GetProfileSection; external kernel32 name 'GetProfileSectionA';
  26995. {$EXTERNALSYM GetProfileStringA}
  26996. function GetProfileStringA; external kernel32 name 'GetProfileStringA';
  26997. {$EXTERNALSYM GetProfileStringW}
  26998. function GetProfileStringW; external kernel32 name 'GetProfileStringW';
  26999. {$EXTERNALSYM GetProfileString}
  27000. function GetProfileString; external kernel32 name 'GetProfileStringA';
  27001. {$EXTERNALSYM GetQueuedCompletionStatus}
  27002. function GetQueuedCompletionStatus; external kernel32 name 'GetQueuedCompletionStatus';
  27003. {$EXTERNALSYM GetShortPathNameA}
  27004. function GetShortPathNameA; external kernel32 name 'GetShortPathNameA';
  27005. {$EXTERNALSYM GetShortPathNameW}
  27006. function GetShortPathNameW; external kernel32 name 'GetShortPathNameW';
  27007. {$EXTERNALSYM GetShortPathName}
  27008. function GetShortPathName; external kernel32 name 'GetShortPathNameA';
  27009. {$EXTERNALSYM GetStartupInfoA}
  27010. procedure GetStartupInfoA; external kernel32 name 'GetStartupInfoA';
  27011. {$EXTERNALSYM GetStartupInfoW}
  27012. procedure GetStartupInfoW; external kernel32 name 'GetStartupInfoW';
  27013. {$EXTERNALSYM GetStartupInfo}
  27014. procedure GetStartupInfo; external kernel32 name 'GetStartupInfoA';
  27015. {$EXTERNALSYM GetStdHandle}
  27016. function GetStdHandle; external kernel32 name 'GetStdHandle';
  27017. {$EXTERNALSYM GetStringTypeExA}
  27018. function GetStringTypeExA; external kernel32 name 'GetStringTypeExA';
  27019. {$EXTERNALSYM GetStringTypeExW}
  27020. function GetStringTypeExW; external kernel32 name 'GetStringTypeExW';
  27021. {$EXTERNALSYM GetStringTypeEx}
  27022. function GetStringTypeEx; external kernel32 name 'GetStringTypeExA';
  27023. {$EXTERNALSYM GetStringTypeA}
  27024. function GetStringTypeA; external kernel32 name 'GetStringTypeA';
  27025. {$EXTERNALSYM GetStringTypeW}
  27026. function GetStringTypeW; external kernel32 name 'GetStringTypeW';
  27027. {$EXTERNALSYM GetSystemDefaultLCID}
  27028. function GetSystemDefaultLCID; external kernel32 name 'GetSystemDefaultLCID';
  27029. {$EXTERNALSYM GetSystemDefaultLangID}
  27030. function GetSystemDefaultLangID; external kernel32 name 'GetSystemDefaultLangID';
  27031. {$EXTERNALSYM GetSystemDirectoryA}
  27032. function GetSystemDirectoryA; external kernel32 name 'GetSystemDirectoryA';
  27033. {$EXTERNALSYM GetSystemDirectoryW}
  27034. function GetSystemDirectoryW; external kernel32 name 'GetSystemDirectoryW';
  27035. {$EXTERNALSYM GetSystemDirectory}
  27036. function GetSystemDirectory; external kernel32 name 'GetSystemDirectoryA';
  27037. {$EXTERNALSYM GetSystemInfo}
  27038. procedure GetSystemInfo; external kernel32 name 'GetSystemInfo';
  27039. {$EXTERNALSYM GetSystemPowerStatus}
  27040. function GetSystemPowerStatus; external kernel32 name 'GetSystemPowerStatus';
  27041. {$EXTERNALSYM GetSystemTime}
  27042. procedure GetSystemTime; external kernel32 name 'GetSystemTime';
  27043. {$EXTERNALSYM GetSystemTimeAsFileTime}
  27044. procedure GetSystemTimeAsFileTime; external kernel32 name 'GetSystemTimeAsFileTime';
  27045. {$EXTERNALSYM GetSystemTimeAdjustment}
  27046. function GetSystemTimeAdjustment; external kernel32 name 'GetSystemTimeAdjustment';
  27047. {$EXTERNALSYM GetTapeParameters}
  27048. function GetTapeParameters; external kernel32 name 'GetTapeParameters';
  27049. {$EXTERNALSYM GetTapePosition}
  27050. function GetTapePosition; external kernel32 name 'GetTapePosition';
  27051. {$EXTERNALSYM GetTapeStatus}
  27052. function GetTapeStatus; external kernel32 name 'GetTapeStatus';
  27053. {$EXTERNALSYM GetTempFileNameA}
  27054. function GetTempFileNameA; external kernel32 name 'GetTempFileNameA';
  27055. {$EXTERNALSYM GetTempFileNameW}
  27056. function GetTempFileNameW; external kernel32 name 'GetTempFileNameW';
  27057. {$EXTERNALSYM GetTempFileName}
  27058. function GetTempFileName; external kernel32 name 'GetTempFileNameA';
  27059. {$EXTERNALSYM GetTempPathA}
  27060. function GetTempPathA; external kernel32 name 'GetTempPathA';
  27061. {$EXTERNALSYM GetTempPathW}
  27062. function GetTempPathW; external kernel32 name 'GetTempPathW';
  27063. {$EXTERNALSYM GetTempPath}
  27064. function GetTempPath; external kernel32 name 'GetTempPathA';
  27065. {$EXTERNALSYM GetThreadContext}
  27066. function GetThreadContext; external kernel32 name 'GetThreadContext';
  27067. {$EXTERNALSYM GetThreadLocale}
  27068. function GetThreadLocale; external kernel32 name 'GetThreadLocale';
  27069. {$EXTERNALSYM GetThreadPriority}
  27070. function GetThreadPriority; external kernel32 name 'GetThreadPriority';
  27071. function GetThreadPriorityBoost; external kernel32 name 'GetThreadPriorityBoost';
  27072. {$EXTERNALSYM GetThreadSelectorEntry}
  27073. function GetThreadSelectorEntry; external kernel32 name 'GetThreadSelectorEntry';
  27074. {$EXTERNALSYM GetThreadTimes}
  27075. function GetThreadTimes; external kernel32 name 'GetThreadTimes';
  27076. {$EXTERNALSYM GetTickCount}
  27077. function GetTickCount; external kernel32 name 'GetTickCount';
  27078. {$EXTERNALSYM GetTimeFormatA}
  27079. function GetTimeFormatA; external kernel32 name 'GetTimeFormatA';
  27080. {$EXTERNALSYM GetTimeFormatW}
  27081. function GetTimeFormatW; external kernel32 name 'GetTimeFormatW';
  27082. {$EXTERNALSYM GetTimeFormat}
  27083. function GetTimeFormat; external kernel32 name 'GetTimeFormatA';
  27084. {$EXTERNALSYM GetTimeZoneInformation}
  27085. function GetTimeZoneInformation; external kernel32 name 'GetTimeZoneInformation';
  27086. {$EXTERNALSYM GetUserDefaultLCID}
  27087. function GetUserDefaultLCID; external kernel32 name 'GetUserDefaultLCID';
  27088. {$EXTERNALSYM GetUserDefaultLangID}
  27089. function GetUserDefaultLangID; external kernel32 name 'GetUserDefaultLangID';
  27090. {$EXTERNALSYM GetVersion}
  27091. function GetVersion; external kernel32 name 'GetVersion';
  27092. {$EXTERNALSYM GetVersionExA}
  27093. function GetVersionExA; external kernel32 name 'GetVersionExA';
  27094. {$EXTERNALSYM GetVersionExW}
  27095. function GetVersionExW; external kernel32 name 'GetVersionExW';
  27096. {$EXTERNALSYM GetVersionEx}
  27097. function GetVersionEx; external kernel32 name 'GetVersionExA';
  27098. {$EXTERNALSYM GetVolumeInformationA}
  27099. function GetVolumeInformationA; external kernel32 name 'GetVolumeInformationA';
  27100. {$EXTERNALSYM GetVolumeInformationW}
  27101. function GetVolumeInformationW; external kernel32 name 'GetVolumeInformationW';
  27102. {$EXTERNALSYM GetVolumeInformation}
  27103. function GetVolumeInformation; external kernel32 name 'GetVolumeInformationA';
  27104. {$EXTERNALSYM GetWindowsDirectoryA}
  27105. function GetWindowsDirectoryA; external kernel32 name 'GetWindowsDirectoryA';
  27106. {$EXTERNALSYM GetWindowsDirectoryW}
  27107. function GetWindowsDirectoryW; external kernel32 name 'GetWindowsDirectoryW';
  27108. {$EXTERNALSYM GetWindowsDirectory}
  27109. function GetWindowsDirectory; external kernel32 name 'GetWindowsDirectoryA';
  27110. {$EXTERNALSYM GlobalAddAtomA}
  27111. function GlobalAddAtomA; external kernel32 name 'GlobalAddAtomA';
  27112. {$EXTERNALSYM GlobalAddAtomW}
  27113. function GlobalAddAtomW; external kernel32 name 'GlobalAddAtomW';
  27114. {$EXTERNALSYM GlobalAddAtom}
  27115. function GlobalAddAtom; external kernel32 name 'GlobalAddAtomA';
  27116. {$EXTERNALSYM GlobalAlloc}
  27117. function GlobalAlloc; external kernel32 name 'GlobalAlloc';
  27118. {$EXTERNALSYM GlobalCompact}
  27119. function GlobalCompact; external kernel32 name 'GlobalCompact';
  27120. {$EXTERNALSYM GlobalDeleteAtom}
  27121. function GlobalDeleteAtom; external kernel32 name 'GlobalDeleteAtom';
  27122. {$EXTERNALSYM GlobalFindAtomA}
  27123. function GlobalFindAtomA; external kernel32 name 'GlobalFindAtomA';
  27124. {$EXTERNALSYM GlobalFindAtomW}
  27125. function GlobalFindAtomW; external kernel32 name 'GlobalFindAtomW';
  27126. {$EXTERNALSYM GlobalFindAtom}
  27127. function GlobalFindAtom; external kernel32 name 'GlobalFindAtomA';
  27128. {$EXTERNALSYM GlobalFix}
  27129. procedure GlobalFix; external kernel32 name 'GlobalFix';
  27130. {$EXTERNALSYM GlobalFlags}
  27131. function GlobalFlags; external kernel32 name 'GlobalFlags';
  27132. {$EXTERNALSYM GlobalFree}
  27133. function GlobalFree; external kernel32 name 'GlobalFree';
  27134. {$EXTERNALSYM GlobalGetAtomNameA}
  27135. function GlobalGetAtomNameA; external kernel32 name 'GlobalGetAtomNameA';
  27136. {$EXTERNALSYM GlobalGetAtomNameW}
  27137. function GlobalGetAtomNameW; external kernel32 name 'GlobalGetAtomNameW';
  27138. {$EXTERNALSYM GlobalGetAtomName}
  27139. function GlobalGetAtomName; external kernel32 name 'GlobalGetAtomNameA';
  27140. {$EXTERNALSYM GlobalLock}
  27141. function GlobalLock; external kernel32 name 'GlobalLock';
  27142. {$EXTERNALSYM GlobalHandle}
  27143. function GlobalHandle; external kernel32 name 'GlobalHandle';
  27144. {$EXTERNALSYM GlobalMemoryStatus}
  27145. procedure GlobalMemoryStatus; external kernel32 name 'GlobalMemoryStatus';
  27146. {$EXTERNALSYM GlobalReAlloc}
  27147. function GlobalReAlloc; external kernel32 name 'GlobalReAlloc';
  27148. {$EXTERNALSYM GlobalSize}
  27149. function GlobalSize; external kernel32 name 'GlobalSize';
  27150. {$EXTERNALSYM GlobalUnWire}
  27151. function GlobalUnWire; external kernel32 name 'GlobalUnWire';
  27152. {$EXTERNALSYM GlobalUnfix}
  27153. procedure GlobalUnfix; external kernel32 name 'GlobalUnfix';
  27154. {$EXTERNALSYM GlobalUnlock}
  27155. function GlobalUnlock; external kernel32 name 'GlobalUnlock';
  27156. {$EXTERNALSYM GlobalWire}
  27157. function GlobalWire; external kernel32 name 'GlobalWire';
  27158. {$EXTERNALSYM HeapAlloc}
  27159. function HeapAlloc; external kernel32 name 'HeapAlloc';
  27160. {$EXTERNALSYM HeapCompact}
  27161. function HeapCompact; external kernel32 name 'HeapCompact';
  27162. {$EXTERNALSYM HeapCreate}
  27163. function HeapCreate; external kernel32 name 'HeapCreate';
  27164. {$EXTERNALSYM HeapDestroy}
  27165. function HeapDestroy; external kernel32 name 'HeapDestroy';
  27166. {$EXTERNALSYM HeapFree}
  27167. function HeapFree; external kernel32 name 'HeapFree';
  27168. {$EXTERNALSYM HeapLock}
  27169. function HeapLock; external kernel32 name 'HeapLock';
  27170. {$EXTERNALSYM HeapReAlloc}
  27171. function HeapReAlloc; external kernel32 name 'HeapReAlloc';
  27172. {$EXTERNALSYM HeapSize}
  27173. function HeapSize; external kernel32 name 'HeapSize';
  27174. {$EXTERNALSYM HeapUnlock}
  27175. function HeapUnlock; external kernel32 name 'HeapUnlock';
  27176. {$EXTERNALSYM HeapValidate}
  27177. function HeapValidate; external kernel32 name 'HeapValidate';
  27178. {$EXTERNALSYM HeapWalk}
  27179. function HeapWalk; external kernel32 name 'HeapWalk';
  27180. {$EXTERNALSYM InitAtomTable}
  27181. function InitAtomTable; external kernel32 name 'InitAtomTable';
  27182. {$EXTERNALSYM InitializeCriticalSection}
  27183. procedure InitializeCriticalSection; external kernel32 name 'InitializeCriticalSection';
  27184. {$EXTERNALSYM IsBadCodePtr}
  27185. function IsBadCodePtr; external kernel32 name 'IsBadCodePtr';
  27186. {$EXTERNALSYM IsBadHugeReadPtr}
  27187. function IsBadHugeReadPtr; external kernel32 name 'IsBadHugeReadPtr';
  27188. {$EXTERNALSYM IsBadHugeWritePtr}
  27189. function IsBadHugeWritePtr; external kernel32 name 'IsBadHugeWritePtr';
  27190. {$EXTERNALSYM IsBadReadPtr}
  27191. function IsBadReadPtr; external kernel32 name 'IsBadReadPtr';
  27192. {$EXTERNALSYM IsBadStringPtrA}
  27193. function IsBadStringPtrA; external kernel32 name 'IsBadStringPtrA';
  27194. {$EXTERNALSYM IsBadStringPtrW}
  27195. function IsBadStringPtrW; external kernel32 name 'IsBadStringPtrW';
  27196. {$EXTERNALSYM IsBadStringPtr}
  27197. function IsBadStringPtr; external kernel32 name 'IsBadStringPtrA';
  27198. {$EXTERNALSYM IsBadWritePtr}
  27199. function IsBadWritePtr; external kernel32 name 'IsBadWritePtr';
  27200. {$EXTERNALSYM IsDBCSLeadByte}
  27201. function IsDBCSLeadByte; external kernel32 name 'IsDBCSLeadByte';
  27202. {$EXTERNALSYM IsDBCSLeadByteEx}
  27203. function IsDBCSLeadByteEx; external kernel32 name 'IsDBCSLeadByteEx';
  27204. {$EXTERNALSYM IsProcessorFeaturePresent}
  27205. function IsProcessorFeaturePresent; external kernel32 name 'IsProcessorFeaturePresent';
  27206. {$EXTERNALSYM IsValidCodePage}
  27207. function IsValidCodePage; external kernel32 name 'IsValidCodePage';
  27208. {$EXTERNALSYM IsValidLocale}
  27209. function IsValidLocale; external kernel32 name 'IsValidLocale';
  27210. {$EXTERNALSYM LCMapStringA}
  27211. function LCMapStringA; external kernel32 name 'LCMapStringA';
  27212. {$EXTERNALSYM LCMapStringW}
  27213. function LCMapStringW; external kernel32 name 'LCMapStringW';
  27214. {$EXTERNALSYM LCMapString}
  27215. function LCMapString; external kernel32 name 'LCMapStringA';
  27216. {$EXTERNALSYM LeaveCriticalSection}
  27217. procedure LeaveCriticalSection; external kernel32 name 'LeaveCriticalSection';
  27218. {$EXTERNALSYM LoadLibraryA}
  27219. function LoadLibraryA; external kernel32 name 'LoadLibraryA';
  27220. {$EXTERNALSYM LoadLibraryW}
  27221. function LoadLibraryW; external kernel32 name 'LoadLibraryW';
  27222. {$EXTERNALSYM LoadLibrary}
  27223. function LoadLibrary; external kernel32 name 'LoadLibraryA';
  27224. {$EXTERNALSYM LoadLibraryExA}
  27225. function LoadLibraryExA; external kernel32 name 'LoadLibraryExA';
  27226. {$EXTERNALSYM LoadLibraryExW}
  27227. function LoadLibraryExW; external kernel32 name 'LoadLibraryExW';
  27228. {$EXTERNALSYM LoadLibraryEx}
  27229. function LoadLibraryEx; external kernel32 name 'LoadLibraryExA';
  27230. {$EXTERNALSYM LoadModule}
  27231. function LoadModule; external kernel32 name 'LoadModule';
  27232. {$EXTERNALSYM LoadResource}
  27233. function LoadResource; external kernel32 name 'LoadResource';
  27234. {$EXTERNALSYM LocalAlloc}
  27235. function LocalAlloc; external kernel32 name 'LocalAlloc';
  27236. {$EXTERNALSYM LocalCompact}
  27237. function LocalCompact; external kernel32 name 'LocalCompact';
  27238. {$EXTERNALSYM LocalFileTimeToFileTime}
  27239. function LocalFileTimeToFileTime; external kernel32 name 'LocalFileTimeToFileTime';
  27240. {$EXTERNALSYM LocalFlags}
  27241. function LocalFlags; external kernel32 name 'LocalFlags';
  27242. {$EXTERNALSYM LocalFree}
  27243. function LocalFree; external kernel32 name 'LocalFree';
  27244. {$EXTERNALSYM LocalLock}
  27245. function LocalLock; external kernel32 name 'LocalLock';
  27246. {$EXTERNALSYM LocalReAlloc}
  27247. function LocalReAlloc; external kernel32 name 'LocalReAlloc';
  27248. {$EXTERNALSYM LocalShrink}
  27249. function LocalShrink; external kernel32 name 'LocalShrink';
  27250. {$EXTERNALSYM LocalSize}
  27251. function LocalSize; external kernel32 name 'LocalSize';
  27252. {$EXTERNALSYM LocalUnlock}
  27253. function LocalUnlock; external kernel32 name 'LocalUnlock';
  27254. {$EXTERNALSYM LockFile}
  27255. function LockFile; external kernel32 name 'LockFile';
  27256. {$EXTERNALSYM LockFileEx}
  27257. function LockFileEx; external kernel32 name 'LockFileEx';
  27258. {$EXTERNALSYM LockResource}
  27259. function LockResource; external kernel32 name 'LockResource';
  27260. {$EXTERNALSYM MapViewOfFile}
  27261. function MapViewOfFile; external kernel32 name 'MapViewOfFile';
  27262. {$EXTERNALSYM MapViewOfFileEx}
  27263. function MapViewOfFileEx; external kernel32 name 'MapViewOfFileEx';
  27264. {$EXTERNALSYM MoveFileA}
  27265. function MoveFileA; external kernel32 name 'MoveFileA';
  27266. {$EXTERNALSYM MoveFileW}
  27267. function MoveFileW; external kernel32 name 'MoveFileW';
  27268. {$EXTERNALSYM MoveFile}
  27269. function MoveFile; external kernel32 name 'MoveFileA';
  27270. {$EXTERNALSYM MoveFileExA}
  27271. function MoveFileExA; external kernel32 name 'MoveFileExA';
  27272. {$EXTERNALSYM MoveFileExW}
  27273. function MoveFileExW; external kernel32 name 'MoveFileExW';
  27274. {$EXTERNALSYM MoveFileEx}
  27275. function MoveFileEx; external kernel32 name 'MoveFileExA';
  27276. {$EXTERNALSYM MulDiv}
  27277. function MulDiv; external kernel32 name 'MulDiv';
  27278. {$EXTERNALSYM MultiByteToWideChar}
  27279. function MultiByteToWideChar; external kernel32 name 'MultiByteToWideChar';
  27280. {$EXTERNALSYM OpenEventA}
  27281. function OpenEventA; external kernel32 name 'OpenEventA';
  27282. {$EXTERNALSYM OpenEventW}
  27283. function OpenEventW; external kernel32 name 'OpenEventW';
  27284. {$EXTERNALSYM OpenEvent}
  27285. function OpenEvent; external kernel32 name 'OpenEventA';
  27286. {$EXTERNALSYM OpenFile}
  27287. function OpenFile; external kernel32 name 'OpenFile';
  27288. {$EXTERNALSYM OpenFileMappingA}
  27289. function OpenFileMappingA; external kernel32 name 'OpenFileMappingA';
  27290. {$EXTERNALSYM OpenFileMappingW}
  27291. function OpenFileMappingW; external kernel32 name 'OpenFileMappingW';
  27292. {$EXTERNALSYM OpenFileMapping}
  27293. function OpenFileMapping; external kernel32 name 'OpenFileMappingA';
  27294. {$EXTERNALSYM OpenMutexA}
  27295. function OpenMutexA; external kernel32 name 'OpenMutexA';
  27296. {$EXTERNALSYM OpenMutexW}
  27297. function OpenMutexW; external kernel32 name 'OpenMutexW';
  27298. {$EXTERNALSYM OpenMutex}
  27299. function OpenMutex; external kernel32 name 'OpenMutexA';
  27300. {$EXTERNALSYM OpenProcess}
  27301. function OpenProcess; external kernel32 name 'OpenProcess';
  27302. {$EXTERNALSYM OpenSemaphoreA}
  27303. function OpenSemaphoreA; external kernel32 name 'OpenSemaphoreA';
  27304. {$EXTERNALSYM OpenWaitableTimerA}
  27305. function OpenWaitableTimerA; external kernel32 name 'OpenWaitableTimerA';
  27306. {$EXTERNALSYM OpenSemaphoreW}
  27307. function OpenSemaphoreW; external kernel32 name 'OpenSemaphoreW';
  27308. {$EXTERNALSYM OpenWaitableTimerW}
  27309. function OpenWaitableTimerW; external kernel32 name 'OpenWaitableTimerW';
  27310. {$EXTERNALSYM OpenSemaphore}
  27311. function OpenSemaphore; external kernel32 name 'OpenSemaphoreA';
  27312. {$EXTERNALSYM OpenWaitableTimer}
  27313. function OpenWaitableTimer; external kernel32 name 'OpenWaitableTimerA';
  27314. {$EXTERNALSYM OutputDebugStringA}
  27315. procedure OutputDebugStringA; external kernel32 name 'OutputDebugStringA';
  27316. {$EXTERNALSYM OutputDebugStringW}
  27317. procedure OutputDebugStringW; external kernel32 name 'OutputDebugStringW';
  27318. {$EXTERNALSYM OutputDebugString}
  27319. procedure OutputDebugString; external kernel32 name 'OutputDebugStringA';
  27320. {$EXTERNALSYM PeekConsoleInputA}
  27321. function PeekConsoleInputA; external kernel32 name 'PeekConsoleInputA';
  27322. {$EXTERNALSYM PeekConsoleInputW}
  27323. function PeekConsoleInputW; external kernel32 name 'PeekConsoleInputW';
  27324. {$EXTERNALSYM PeekConsoleInput}
  27325. function PeekConsoleInput; external kernel32 name 'PeekConsoleInputA';
  27326. {$EXTERNALSYM PeekNamedPipe}
  27327. function PeekNamedPipe; external kernel32 name 'PeekNamedPipe';
  27328. {$EXTERNALSYM PostQueuedCompletionStatus}
  27329. function PostQueuedCompletionStatus; external kernel32 name 'PostQueuedCompletionStatus';
  27330. {$EXTERNALSYM PrepareTape}
  27331. function PrepareTape; external kernel32 name 'PrepareTape';
  27332. {$EXTERNALSYM PulseEvent}
  27333. function PulseEvent; external kernel32 name 'PulseEvent';
  27334. {$EXTERNALSYM PurgeComm}
  27335. function PurgeComm; external kernel32 name 'PurgeComm';
  27336. {$EXTERNALSYM QueryDosDeviceA}
  27337. function QueryDosDeviceA; external kernel32 name 'QueryDosDeviceA';
  27338. {$EXTERNALSYM QueryDosDeviceW}
  27339. function QueryDosDeviceW; external kernel32 name 'QueryDosDeviceW';
  27340. {$EXTERNALSYM QueryDosDevice}
  27341. function QueryDosDevice; external kernel32 name 'QueryDosDeviceA';
  27342. {$EXTERNALSYM QueryPerformanceCounter}
  27343. function QueryPerformanceCounter; external kernel32 name 'QueryPerformanceCounter';
  27344. {$EXTERNALSYM QueryPerformanceFrequency}
  27345. function QueryPerformanceFrequency; external kernel32 name 'QueryPerformanceFrequency';
  27346. {$EXTERNALSYM QueueUserAPC}
  27347. function QueueUserAPC; external kernel32 name 'QueueUserAPC';
  27348. {$EXTERNALSYM RaiseException}
  27349. procedure RaiseException; external kernel32 name 'RaiseException';
  27350. {$EXTERNALSYM ReadConsoleA}
  27351. function ReadConsoleA; external kernel32 name 'ReadConsoleA';
  27352. {$EXTERNALSYM ReadConsoleW}
  27353. function ReadConsoleW; external kernel32 name 'ReadConsoleW';
  27354. {$EXTERNALSYM ReadConsole}
  27355. function ReadConsole; external kernel32 name 'ReadConsoleA';
  27356. {$EXTERNALSYM ReadConsoleInputA}
  27357. function ReadConsoleInputA; external kernel32 name 'ReadConsoleInputA';
  27358. {$EXTERNALSYM ReadConsoleInputW}
  27359. function ReadConsoleInputW; external kernel32 name 'ReadConsoleInputW';
  27360. {$EXTERNALSYM ReadConsoleInput}
  27361. function ReadConsoleInput; external kernel32 name 'ReadConsoleInputA';
  27362. {$EXTERNALSYM ReadConsoleOutputA}
  27363. function ReadConsoleOutputA; external kernel32 name 'ReadConsoleOutputA';
  27364. {$EXTERNALSYM ReadConsoleOutputW}
  27365. function ReadConsoleOutputW; external kernel32 name 'ReadConsoleOutputW';
  27366. {$EXTERNALSYM ReadConsoleOutput}
  27367. function ReadConsoleOutput; external kernel32 name 'ReadConsoleOutputA';
  27368. {$EXTERNALSYM ReadConsoleOutputAttribute}
  27369. function ReadConsoleOutputAttribute; external kernel32 name 'ReadConsoleOutputAttribute';
  27370. {$EXTERNALSYM ReadConsoleOutputCharacterA}
  27371. function ReadConsoleOutputCharacterA; external kernel32 name 'ReadConsoleOutputCharacterA';
  27372. {$EXTERNALSYM ReadConsoleOutputCharacterW}
  27373. function ReadConsoleOutputCharacterW; external kernel32 name 'ReadConsoleOutputCharacterW';
  27374. {$EXTERNALSYM ReadConsoleOutputCharacter}
  27375. function ReadConsoleOutputCharacter; external kernel32 name 'ReadConsoleOutputCharacterA';
  27376. function ReadDirectoryChanges; external kernel32 name 'ReadDirectoryChangesW';
  27377. function ReadDirectoryChangesW; external kernel32 name 'ReadDirectoryChangesW';
  27378. {$EXTERNALSYM ReadFile}
  27379. function ReadFile; external kernel32 name 'ReadFile';
  27380. {$EXTERNALSYM ReadFileEx}
  27381. function ReadFileEx; external kernel32 name 'ReadFileEx';
  27382. {$EXTERNALSYM ReadProcessMemory}
  27383. function ReadProcessMemory; external kernel32 name 'ReadProcessMemory';
  27384. {$EXTERNALSYM ReleaseMutex}
  27385. function ReleaseMutex; external kernel32 name 'ReleaseMutex';
  27386. {$EXTERNALSYM ReleaseSemaphore}
  27387. function ReleaseSemaphore; external kernel32 name 'ReleaseSemaphore';
  27388. {$EXTERNALSYM RemoveDirectoryA}
  27389. function RemoveDirectoryA; external kernel32 name 'RemoveDirectoryA';
  27390. {$EXTERNALSYM RemoveDirectoryW}
  27391. function RemoveDirectoryW; external kernel32 name 'RemoveDirectoryW';
  27392. {$EXTERNALSYM RemoveDirectory}
  27393. function RemoveDirectory; external kernel32 name 'RemoveDirectoryA';
  27394. {$EXTERNALSYM ResetEvent}
  27395. function ResetEvent; external kernel32 name 'ResetEvent';
  27396. {$EXTERNALSYM ResumeThread}
  27397. function ResumeThread; external kernel32 name 'ResumeThread';
  27398. {$EXTERNALSYM ScrollConsoleScreenBufferA}
  27399. function ScrollConsoleScreenBufferA; external kernel32 name 'ScrollConsoleScreenBufferA';
  27400. {$EXTERNALSYM ScrollConsoleScreenBufferW}
  27401. function ScrollConsoleScreenBufferW; external kernel32 name 'ScrollConsoleScreenBufferW';
  27402. {$EXTERNALSYM ScrollConsoleScreenBuffer}
  27403. function ScrollConsoleScreenBuffer; external kernel32 name 'ScrollConsoleScreenBufferA';
  27404. {$EXTERNALSYM SearchPathA}
  27405. function SearchPathA; external kernel32 name 'SearchPathA';
  27406. {$EXTERNALSYM SearchPathW}
  27407. function SearchPathW; external kernel32 name 'SearchPathW';
  27408. {$EXTERNALSYM SearchPath}
  27409. function SearchPath; external kernel32 name 'SearchPathA';
  27410. {$EXTERNALSYM SetCommBreak}
  27411. function SetCommBreak; external kernel32 name 'SetCommBreak';
  27412. {$EXTERNALSYM SetCommConfig}
  27413. function SetCommConfig; external kernel32 name 'SetCommConfig';
  27414. {$EXTERNALSYM SetCommMask}
  27415. function SetCommMask; external kernel32 name 'SetCommMask';
  27416. {$EXTERNALSYM SetCommState}
  27417. function SetCommState; external kernel32 name 'SetCommState';
  27418. {$EXTERNALSYM SetCommTimeouts}
  27419. function SetCommTimeouts; external kernel32 name 'SetCommTimeouts';
  27420. {$EXTERNALSYM SetComputerNameA}
  27421. function SetComputerNameA; external kernel32 name 'SetComputerNameA';
  27422. {$EXTERNALSYM SetComputerNameW}
  27423. function SetComputerNameW; external kernel32 name 'SetComputerNameW';
  27424. {$EXTERNALSYM SetComputerName}
  27425. function SetComputerName; external kernel32 name 'SetComputerNameA';
  27426. {$EXTERNALSYM SetConsoleActiveScreenBuffer}
  27427. function SetConsoleActiveScreenBuffer; external kernel32 name 'SetConsoleActiveScreenBuffer';
  27428. {$EXTERNALSYM SetConsoleCP}
  27429. function SetConsoleCP; external kernel32 name 'SetConsoleCP';
  27430. {$EXTERNALSYM SetConsoleCtrlHandler}
  27431. function SetConsoleCtrlHandler; external kernel32 name 'SetConsoleCtrlHandler';
  27432. {$EXTERNALSYM SetConsoleCursorInfo}
  27433. function SetConsoleCursorInfo; external kernel32 name 'SetConsoleCursorInfo';
  27434. {$EXTERNALSYM SetConsoleCursorPosition}
  27435. function SetConsoleCursorPosition; external kernel32 name 'SetConsoleCursorPosition';
  27436. {$EXTERNALSYM SetConsoleMode}
  27437. function SetConsoleMode; external kernel32 name 'SetConsoleMode';
  27438. {$EXTERNALSYM SetConsoleOutputCP}
  27439. function SetConsoleOutputCP; external kernel32 name 'SetConsoleOutputCP';
  27440. {$EXTERNALSYM SetConsoleScreenBufferSize}
  27441. function SetConsoleScreenBufferSize; external kernel32 name 'SetConsoleScreenBufferSize';
  27442. {$EXTERNALSYM SetConsoleTextAttribute}
  27443. function SetConsoleTextAttribute; external kernel32 name 'SetConsoleTextAttribute';
  27444. {$EXTERNALSYM SetConsoleTitleA}
  27445. function SetConsoleTitleA; external kernel32 name 'SetConsoleTitleA';
  27446. {$EXTERNALSYM SetConsoleTitleW}
  27447. function SetConsoleTitleW; external kernel32 name 'SetConsoleTitleW';
  27448. {$EXTERNALSYM SetConsoleTitle}
  27449. function SetConsoleTitle; external kernel32 name 'SetConsoleTitleA';
  27450. {$EXTERNALSYM SetConsoleWindowInfo}
  27451. function SetConsoleWindowInfo; external kernel32 name 'SetConsoleWindowInfo';
  27452. {$EXTERNALSYM SetCurrentDirectoryA}
  27453. function SetCurrentDirectoryA; external kernel32 name 'SetCurrentDirectoryA';
  27454. {$EXTERNALSYM SetCurrentDirectoryW}
  27455. function SetCurrentDirectoryW; external kernel32 name 'SetCurrentDirectoryW';
  27456. {$EXTERNALSYM SetCurrentDirectory}
  27457. function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';
  27458. {$EXTERNALSYM SetDefaultCommConfigA}
  27459. function SetDefaultCommConfigA; external kernel32 name 'SetDefaultCommConfigA';
  27460. {$EXTERNALSYM SetDefaultCommConfigW}
  27461. function SetDefaultCommConfigW; external kernel32 name 'SetDefaultCommConfigW';
  27462. {$EXTERNALSYM SetDefaultCommConfig}
  27463. function SetDefaultCommConfig; external kernel32 name 'SetDefaultCommConfigA';
  27464. {$EXTERNALSYM SetEndOfFile}
  27465. function SetEndOfFile; external kernel32 name 'SetEndOfFile';
  27466. {$EXTERNALSYM SetEnvironmentVariableA}
  27467. function SetEnvironmentVariableA; external kernel32 name 'SetEnvironmentVariableA';
  27468. {$EXTERNALSYM SetEnvironmentVariableW}
  27469. function SetEnvironmentVariableW; external kernel32 name 'SetEnvironmentVariableW';
  27470. {$EXTERNALSYM SetEnvironmentVariable}
  27471. function SetEnvironmentVariable; external kernel32 name 'SetEnvironmentVariableA';
  27472. {$EXTERNALSYM SetErrorMode}
  27473. function SetErrorMode; external kernel32 name 'SetErrorMode';
  27474. {$EXTERNALSYM SetEvent}
  27475. function SetEvent; external kernel32 name 'SetEvent';
  27476. {$EXTERNALSYM SetFileApisToANSI}
  27477. procedure SetFileApisToANSI; external kernel32 name 'SetFileApisToANSI';
  27478. {$EXTERNALSYM SetFileApisToOEM}
  27479. procedure SetFileApisToOEM; external kernel32 name 'SetFileApisToOEM';
  27480. {$EXTERNALSYM SetFileAttributesA}
  27481. function SetFileAttributesA; external kernel32 name 'SetFileAttributesA';
  27482. {$EXTERNALSYM SetFileAttributesW}
  27483. function SetFileAttributesW; external kernel32 name 'SetFileAttributesW';
  27484. {$EXTERNALSYM SetFileAttributes}
  27485. function SetFileAttributes; external kernel32 name 'SetFileAttributesA';
  27486. {$EXTERNALSYM SetFilePointer}
  27487. function SetFilePointer; external kernel32 name 'SetFilePointer';
  27488. {$EXTERNALSYM SetFileTime}
  27489. function SetFileTime; external kernel32 name 'SetFileTime';
  27490. {$EXTERNALSYM SetHandleCount}
  27491. function SetHandleCount; external kernel32 name 'SetHandleCount';
  27492. {$EXTERNALSYM SetHandleInformation}
  27493. function SetHandleInformation; external kernel32 name 'SetHandleInformation';
  27494. {$EXTERNALSYM SetLastError}
  27495. procedure SetLastError; external kernel32 name 'SetLastError';
  27496. {$EXTERNALSYM SetLocalTime}
  27497. function SetLocalTime; external kernel32 name 'SetLocalTime';
  27498. {$EXTERNALSYM SetLocaleInfoA}
  27499. function SetLocaleInfoA; external kernel32 name 'SetLocaleInfoA';
  27500. {$EXTERNALSYM SetLocaleInfoW}
  27501. function SetLocaleInfoW; external kernel32 name 'SetLocaleInfoW';
  27502. {$EXTERNALSYM SetLocaleInfo}
  27503. function SetLocaleInfo; external kernel32 name 'SetLocaleInfoA';
  27504. {$EXTERNALSYM SetMailslotInfo}
  27505. function SetMailslotInfo; external kernel32 name 'SetMailslotInfo';
  27506. {$EXTERNALSYM SetNamedPipeHandleState}
  27507. function SetNamedPipeHandleState; external kernel32 name 'SetNamedPipeHandleState';
  27508. {$EXTERNALSYM SetPriorityClass}
  27509. function SetPriorityClass; external kernel32 name 'SetPriorityClass';
  27510. function SetProcessAffinityMask; external kernel32 name 'SetProcessAffinityMask';
  27511. function SetProcessPriorityBoost; external kernel32 name 'SetProcessPriorityBoost';
  27512. {$EXTERNALSYM SetProcessShutdownParameters}
  27513. function SetProcessShutdownParameters; external kernel32 name 'SetProcessShutdownParameters';
  27514. {$EXTERNALSYM SetProcessWorkingSetSize}
  27515. function SetProcessWorkingSetSize; external kernel32 name 'SetProcessWorkingSetSize';
  27516. {$EXTERNALSYM SetStdHandle}
  27517. function SetStdHandle; external kernel32 name 'SetStdHandle';
  27518. {$EXTERNALSYM SetSystemPowerState}
  27519. function SetSystemPowerState; external kernel32 name 'SetSystemPowerState';
  27520. {$EXTERNALSYM SetSystemTime}
  27521. function SetSystemTime; external kernel32 name 'SetSystemTime';
  27522. {$EXTERNALSYM SetSystemTimeAdjustment}
  27523. function SetSystemTimeAdjustment; external kernel32 name 'SetSystemTimeAdjustment';
  27524. {$EXTERNALSYM SetTapeParameters}
  27525. function SetTapeParameters; external kernel32 name 'SetTapeParameters';
  27526. {$EXTERNALSYM SetTapePosition}
  27527. function SetTapePosition; external kernel32 name 'SetTapePosition';
  27528. {$EXTERNALSYM SetThreadAffinityMask}
  27529. function SetThreadAffinityMask; external kernel32 name 'SetThreadAffinityMask';
  27530. {$EXTERNALSYM SetThreadContext}
  27531. function SetThreadContext; external kernel32 name 'SetThreadContext';
  27532. function SetThreadIdealProcessor; external kernel32 name 'SetThreadIdealProcessor';
  27533. {$EXTERNALSYM SetThreadLocale}
  27534. function SetThreadLocale; external kernel32 name 'SetThreadLocale';
  27535. {$EXTERNALSYM SetThreadPriority}
  27536. function SetThreadPriority; external kernel32 name 'SetThreadPriority';
  27537. function SetThreadPriorityBoost; external kernel32 name 'SetThreadPriorityBoost';
  27538. {$EXTERNALSYM SetTimeZoneInformation}
  27539. function SetTimeZoneInformation; external kernel32 name 'SetTimeZoneInformation';
  27540. {$EXTERNALSYM SetUnhandledExceptionFilter}
  27541. function SetUnhandledExceptionFilter; external kernel32 name 'SetUnhandledExceptionFilter';
  27542. {$EXTERNALSYM SetVolumeLabelA}
  27543. function SetVolumeLabelA; external kernel32 name 'SetVolumeLabelA';
  27544. {$EXTERNALSYM SetVolumeLabelW}
  27545. function SetVolumeLabelW; external kernel32 name 'SetVolumeLabelW';
  27546. {$EXTERNALSYM SetVolumeLabel}
  27547. function SetVolumeLabel; external kernel32 name 'SetVolumeLabelA';
  27548. {$EXTERNALSYM SetWaitableTimer}
  27549. function SetWaitableTimer; external kernel32 name 'SetWaitableTimer';
  27550. {$EXTERNALSYM SetupComm}
  27551. function SetupComm; external kernel32 name 'SetupComm';
  27552. {$EXTERNALSYM SignalObjectAndWait}
  27553. function SignalObjectAndWait; external kernel32 name 'SignalObjectAndWait';
  27554. {$EXTERNALSYM SizeofResource}
  27555. function SizeofResource; external kernel32 name 'SizeofResource';
  27556. {$EXTERNALSYM Sleep}
  27557. procedure Sleep; external kernel32 name 'Sleep';
  27558. {$EXTERNALSYM SleepEx}
  27559. function SleepEx; external kernel32 name 'SleepEx';
  27560. {$EXTERNALSYM SuspendThread}
  27561. function SuspendThread; external kernel32 name 'SuspendThread';
  27562. function SwitchToFiber; external kernel32 name 'SwitchToFiber';
  27563. function SwitchToThread; external kernel32 name 'SwitchToThread';
  27564. {$EXTERNALSYM SystemTimeToFileTime}
  27565. function SystemTimeToFileTime; external kernel32 name 'SystemTimeToFileTime';
  27566. {$EXTERNALSYM SystemTimeToTzSpecificLocalTime}
  27567. function SystemTimeToTzSpecificLocalTime; external kernel32 name 'SystemTimeToTzSpecificLocalTime';
  27568. {$EXTERNALSYM TerminateProcess}
  27569. function TerminateProcess; external kernel32 name 'TerminateProcess';
  27570. {$EXTERNALSYM TerminateThread}
  27571. function TerminateThread; external kernel32 name 'TerminateThread';
  27572. {$EXTERNALSYM TlsAlloc}
  27573. function TlsAlloc; external kernel32 name 'TlsAlloc';
  27574. {$EXTERNALSYM TlsFree}
  27575. function TlsFree; external kernel32 name 'TlsFree';
  27576. {$EXTERNALSYM TlsGetValue}
  27577. function TlsGetValue; external kernel32 name 'TlsGetValue';
  27578. {$EXTERNALSYM TlsSetValue}
  27579. function TlsSetValue; external kernel32 name 'TlsSetValue';
  27580. {$EXTERNALSYM TransactNamedPipe}
  27581. function TransactNamedPipe; external kernel32 name 'TransactNamedPipe';
  27582. {$EXTERNALSYM TransmitCommChar}
  27583. function TransmitCommChar; external kernel32 name 'TransmitCommChar';
  27584. {$EXTERNALSYM TryEnterCriticalSection}
  27585. function TryEnterCriticalSection; external kernel32 name 'TryEnterCriticalSection';
  27586. {$EXTERNALSYM UnhandledExceptionFilter}
  27587. function UnhandledExceptionFilter; external kernel32 name 'UnhandledExceptionFilter';
  27588. {$EXTERNALSYM UnlockFile}
  27589. function UnlockFile; external kernel32 name 'UnlockFile';
  27590. {$EXTERNALSYM UnlockFileEx}
  27591. function UnlockFileEx; external kernel32 name 'UnlockFileEx';
  27592. {$EXTERNALSYM UnmapViewOfFile}
  27593. function UnmapViewOfFile; external kernel32 name 'UnmapViewOfFile';
  27594. {$EXTERNALSYM UpdateResourceA}
  27595. function UpdateResourceA; external kernel32 name 'UpdateResourceA';
  27596. {$EXTERNALSYM UpdateResourceW}
  27597. function UpdateResourceW; external kernel32 name 'UpdateResourceW';
  27598. {$EXTERNALSYM UpdateResource}
  27599. function UpdateResource; external kernel32 name 'UpdateResourceA';
  27600. {$EXTERNALSYM VerLanguageNameA}
  27601. function VerLanguageNameA; external kernel32 name 'VerLanguageNameA';
  27602. {$EXTERNALSYM VerLanguageNameW}
  27603. function VerLanguageNameW; external kernel32 name 'VerLanguageNameW';
  27604. {$EXTERNALSYM VerLanguageName}
  27605. function VerLanguageName; external kernel32 name 'VerLanguageNameA';
  27606. {$EXTERNALSYM VirtualAlloc}
  27607. function VirtualAlloc; external kernel32 name 'VirtualAlloc';
  27608. {$EXTERNALSYM VirtualAllocEx}
  27609. function VirtualAllocEx; external kernel32 name 'VirtualAllocEx';
  27610. {$EXTERNALSYM VirtualFree}
  27611. function VirtualFree; external kernel32 name 'VirtualFree';
  27612. {$EXTERNALSYM VirtualFreeEx}
  27613. function VirtualFreeEx; external kernel32 name 'VirtualFreeEx';
  27614. {$EXTERNALSYM VirtualLock}
  27615. function VirtualLock; external kernel32 name 'VirtualLock';
  27616. {$EXTERNALSYM VirtualProtect}
  27617. function VirtualProtect; external kernel32 name 'VirtualProtect';
  27618. {$EXTERNALSYM VirtualProtectEx}
  27619. function VirtualProtectEx; external kernel32 name 'VirtualProtectEx';
  27620. {$EXTERNALSYM VirtualQuery}
  27621. function VirtualQuery; external kernel32 name 'VirtualQuery';
  27622. {$EXTERNALSYM VirtualQueryEx}
  27623. function VirtualQueryEx; external kernel32 name 'VirtualQueryEx';
  27624. {$EXTERNALSYM VirtualUnlock}
  27625. function VirtualUnlock; external kernel32 name 'VirtualUnlock';
  27626. {$EXTERNALSYM WaitCommEvent}
  27627. function WaitCommEvent; external kernel32 name 'WaitCommEvent';
  27628. {$EXTERNALSYM WaitForDebugEvent}
  27629. function WaitForDebugEvent; external kernel32 name 'WaitForDebugEvent';
  27630. {$EXTERNALSYM WaitForMultipleObjects}
  27631. function WaitForMultipleObjects; external kernel32 name 'WaitForMultipleObjects';
  27632. {$EXTERNALSYM WaitForMultipleObjectsEx}
  27633. function WaitForMultipleObjectsEx; external kernel32 name 'WaitForMultipleObjectsEx';
  27634. {$EXTERNALSYM WaitForSingleObject}
  27635. function WaitForSingleObject; external kernel32 name 'WaitForSingleObject';
  27636. {$EXTERNALSYM WaitForSingleObjectEx}
  27637. function WaitForSingleObjectEx; external kernel32 name 'WaitForSingleObjectEx';
  27638. {$EXTERNALSYM WaitNamedPipeA}
  27639. function WaitNamedPipeA; external kernel32 name 'WaitNamedPipeA';
  27640. {$EXTERNALSYM WaitNamedPipeW}
  27641. function WaitNamedPipeW; external kernel32 name 'WaitNamedPipeW';
  27642. {$EXTERNALSYM WaitNamedPipe}
  27643. function WaitNamedPipe; external kernel32 name 'WaitNamedPipeA';
  27644. {$EXTERNALSYM WideCharToMultiByte}
  27645. function WideCharToMultiByte; external kernel32 name 'WideCharToMultiByte';
  27646. {$EXTERNALSYM WinExec}
  27647. function WinExec; external kernel32 name 'WinExec';
  27648. {$EXTERNALSYM WriteConsoleA}
  27649. function WriteConsoleA; external kernel32 name 'WriteConsoleA';
  27650. {$EXTERNALSYM WriteConsoleW}
  27651. function WriteConsoleW; external kernel32 name 'WriteConsoleW';
  27652. {$EXTERNALSYM WriteConsole}
  27653. function WriteConsole; external kernel32 name 'WriteConsoleA';
  27654. {$EXTERNALSYM WriteConsoleInputA}
  27655. function WriteConsoleInputA; external kernel32 name 'WriteConsoleInputA';
  27656. {$EXTERNALSYM WriteConsoleInputW}
  27657. function WriteConsoleInputW; external kernel32 name 'WriteConsoleInputW';
  27658. {$EXTERNALSYM WriteConsoleInput}
  27659. function WriteConsoleInput; external kernel32 name 'WriteConsoleInputA';
  27660. {$EXTERNALSYM WriteConsoleOutputA}
  27661. function WriteConsoleOutputA; external kernel32 name 'WriteConsoleOutputA';
  27662. {$EXTERNALSYM WriteConsoleOutputW}
  27663. function WriteConsoleOutputW; external kernel32 name 'WriteConsoleOutputW';
  27664. {$EXTERNALSYM WriteConsoleOutput}
  27665. function WriteConsoleOutput; external kernel32 name 'WriteConsoleOutputA';
  27666. {$EXTERNALSYM WriteConsoleOutputAttribute}
  27667. function WriteConsoleOutputAttribute; external kernel32 name 'WriteConsoleOutputAttribute';
  27668. {$EXTERNALSYM WriteConsoleOutputCharacterA}
  27669. function WriteConsoleOutputCharacterA; external kernel32 name 'WriteConsoleOutputCharacterA';
  27670. {$EXTERNALSYM WriteConsoleOutputCharacterW}
  27671. function WriteConsoleOutputCharacterW; external kernel32 name 'WriteConsoleOutputCharacterW';
  27672. {$EXTERNALSYM WriteConsoleOutputCharacter}
  27673. function WriteConsoleOutputCharacter; external kernel32 name 'WriteConsoleOutputCharacterA';
  27674. {$EXTERNALSYM WriteFile}
  27675. function WriteFile; external kernel32 name 'WriteFile';
  27676. {$EXTERNALSYM WriteFileEx}
  27677. function WriteFileEx; external kernel32 name 'WriteFileEx';
  27678. {$EXTERNALSYM WritePrivateProfileSectionA}
  27679. function WritePrivateProfileSectionA; external kernel32 name 'WritePrivateProfileSectionA';
  27680. {$EXTERNALSYM WritePrivateProfileSectionW}
  27681. function WritePrivateProfileSectionW; external kernel32 name 'WritePrivateProfileSectionW';
  27682. {$EXTERNALSYM WritePrivateProfileSection}
  27683. function WritePrivateProfileSection; external kernel32 name 'WritePrivateProfileSectionA';
  27684. {$EXTERNALSYM WritePrivateProfileStringA}
  27685. function WritePrivateProfileStringA; external kernel32 name 'WritePrivateProfileStringA';
  27686. {$EXTERNALSYM WritePrivateProfileStringW}
  27687. function WritePrivateProfileStringW; external kernel32 name 'WritePrivateProfileStringW';
  27688. {$EXTERNALSYM WritePrivateProfileString}
  27689. function WritePrivateProfileString; external kernel32 name 'WritePrivateProfileStringA';
  27690. {$EXTERNALSYM WriteProcessMemory}
  27691. function WriteProcessMemory; external kernel32 name 'WriteProcessMemory';
  27692. {$EXTERNALSYM WriteProfileSectionA}
  27693. function WriteProfileSectionA; external kernel32 name 'WriteProfileSectionA';
  27694. {$EXTERNALSYM WriteProfileSectionW}
  27695. function WriteProfileSectionW; external kernel32 name 'WriteProfileSectionW';
  27696. {$EXTERNALSYM WriteProfileSection}
  27697. function WriteProfileSection; external kernel32 name 'WriteProfileSectionA';
  27698. {$EXTERNALSYM WriteProfileStringA}
  27699. function WriteProfileStringA; external kernel32 name 'WriteProfileStringA';
  27700. {$EXTERNALSYM WriteProfileStringW}
  27701. function WriteProfileStringW; external kernel32 name 'WriteProfileStringW';
  27702. {$EXTERNALSYM WriteProfileString}
  27703. function WriteProfileString; external kernel32 name 'WriteProfileStringA';
  27704. {$EXTERNALSYM WriteTapemark}
  27705. function WriteTapemark; external kernel32 name 'WriteTapemark';
  27706. {$EXTERNALSYM _hread}
  27707. function _hread; external kernel32 name '_hread';
  27708. {$EXTERNALSYM _hwrite}
  27709. function _hwrite; external kernel32 name '_hwrite';
  27710. {$EXTERNALSYM _lclose}
  27711. function _lclose; external kernel32 name '_lclose';
  27712. {$EXTERNALSYM _lcreat}
  27713. function _lcreat; external kernel32 name '_lcreat';
  27714. {$EXTERNALSYM _llseek}
  27715. function _llseek; external kernel32 name '_llseek';
  27716. {$EXTERNALSYM _lopen}
  27717. function _lopen; external kernel32 name '_lopen';
  27718. {$EXTERNALSYM _lread}
  27719. function _lread; external kernel32 name '_lread';
  27720. {$EXTERNALSYM _lwrite}
  27721. function _lwrite; external kernel32 name '_lwrite';
  27722. {$EXTERNALSYM lstrcatA}
  27723. function lstrcatA; external kernel32 name 'lstrcatA';
  27724. {$EXTERNALSYM lstrcatW}
  27725. function lstrcatW; external kernel32 name 'lstrcatW';
  27726. {$EXTERNALSYM lstrcat}
  27727. function lstrcat; external kernel32 name 'lstrcatA';
  27728. {$EXTERNALSYM lstrcmpA}
  27729. function lstrcmpA; external kernel32 name 'lstrcmpA';
  27730. {$EXTERNALSYM lstrcmpW}
  27731. function lstrcmpW; external kernel32 name 'lstrcmpW';
  27732. {$EXTERNALSYM lstrcmp}
  27733. function lstrcmp; external kernel32 name 'lstrcmpA';
  27734. {$EXTERNALSYM lstrcmpiA}
  27735. function lstrcmpiA; external kernel32 name 'lstrcmpiA';
  27736. {$EXTERNALSYM lstrcmpiW}
  27737. function lstrcmpiW; external kernel32 name 'lstrcmpiW';
  27738. {$EXTERNALSYM lstrcmpi}
  27739. function lstrcmpi; external kernel32 name 'lstrcmpiA';
  27740. {$EXTERNALSYM lstrcpyA}
  27741. function lstrcpyA; external kernel32 name 'lstrcpyA';
  27742. {$EXTERNALSYM lstrcpyW}
  27743. function lstrcpyW; external kernel32 name 'lstrcpyW';
  27744. {$EXTERNALSYM lstrcpy}
  27745. function lstrcpy; external kernel32 name 'lstrcpyA';
  27746. {$EXTERNALSYM lstrcpynA}
  27747. function lstrcpynA; external kernel32 name 'lstrcpynA';
  27748. {$EXTERNALSYM lstrcpynW}
  27749. function lstrcpynW; external kernel32 name 'lstrcpynW';
  27750. {$EXTERNALSYM lstrcpyn}
  27751. function lstrcpyn; external kernel32 name 'lstrcpynA';
  27752. {$EXTERNALSYM lstrlenA}
  27753. function lstrlenA; external kernel32 name 'lstrlenA';
  27754. {$EXTERNALSYM lstrlenW}
  27755. function lstrlenW; external kernel32 name 'lstrlenW';
  27756. {$EXTERNALSYM lstrlen}
  27757. function lstrlen; external kernel32 name 'lstrlenA';
  27758.  
  27759.  
  27760. { Externals from mpr.dll }
  27761.  
  27762. {$EXTERNALSYM MultinetGetConnectionPerformanceA}
  27763. function MultinetGetConnectionPerformanceA; external mpr name 'MultinetGetConnectionPerformanceA';
  27764. {$EXTERNALSYM MultinetGetConnectionPerformanceW}
  27765. function MultinetGetConnectionPerformanceW; external mpr name 'MultinetGetConnectionPerformanceW';
  27766. {$EXTERNALSYM MultinetGetConnectionPerformance}
  27767. function MultinetGetConnectionPerformance; external mpr name 'MultinetGetConnectionPerformanceA';
  27768. {$EXTERNALSYM WNetAddConnection2A}
  27769. function WNetAddConnection2A; external mpr name 'WNetAddConnection2A';
  27770. {$EXTERNALSYM WNetAddConnection2W}
  27771. function WNetAddConnection2W; external mpr name 'WNetAddConnection2W';
  27772. {$EXTERNALSYM WNetAddConnection2}
  27773. function WNetAddConnection2; external mpr name 'WNetAddConnection2A';
  27774. {$EXTERNALSYM WNetAddConnection3A}
  27775. function WNetAddConnection3A; external mpr name 'WNetAddConnection3A';
  27776. {$EXTERNALSYM WNetAddConnection3W}
  27777. function WNetAddConnection3W; external mpr name 'WNetAddConnection3W';
  27778. {$EXTERNALSYM WNetAddConnection3}
  27779. function WNetAddConnection3; external mpr name 'WNetAddConnection3A';
  27780. {$EXTERNALSYM WNetAddConnectionA}
  27781. function WNetAddConnectionA; external mpr name 'WNetAddConnectionA';
  27782. {$EXTERNALSYM WNetAddConnectionW}
  27783. function WNetAddConnectionW; external mpr name 'WNetAddConnectionW';
  27784. {$EXTERNALSYM WNetAddConnection}
  27785. function WNetAddConnection; external mpr name 'WNetAddConnectionA';
  27786. {$EXTERNALSYM WNetCancelConnection2A}
  27787. function WNetCancelConnection2A; external mpr name 'WNetCancelConnection2A';
  27788. {$EXTERNALSYM WNetCancelConnection2W}
  27789. function WNetCancelConnection2W; external mpr name 'WNetCancelConnection2W';
  27790. {$EXTERNALSYM WNetCancelConnection2}
  27791. function WNetCancelConnection2; external mpr name 'WNetCancelConnection2A';
  27792. {$EXTERNALSYM WNetCancelConnectionA}
  27793. function WNetCancelConnectionA; external mpr name 'WNetCancelConnectionA';
  27794. {$EXTERNALSYM WNetCancelConnectionW}
  27795. function WNetCancelConnectionW; external mpr name 'WNetCancelConnectionW';
  27796. {$EXTERNALSYM WNetCancelConnection}
  27797. function WNetCancelConnection; external mpr name 'WNetCancelConnectionA';
  27798. {$EXTERNALSYM WNetCloseEnum}
  27799. function WNetCloseEnum; external mpr name 'WNetCloseEnum';
  27800. {$EXTERNALSYM WNetConnectionDialog1A}
  27801. function WNetConnectionDialog1A; external mpr name 'WNetConnectionDialog1A';
  27802. {$EXTERNALSYM WNetConnectionDialog1W}
  27803. function WNetConnectionDialog1W; external mpr name 'WNetConnectionDialog1W';
  27804. {$EXTERNALSYM WNetConnectionDialog1}
  27805. function WNetConnectionDialog1; external mpr name 'WNetConnectionDialog1A';
  27806. {$EXTERNALSYM WNetConnectionDialog}
  27807. function WNetConnectionDialog; external mpr name 'WNetConnectionDialog';
  27808. {$EXTERNALSYM WNetDisconnectDialog1A}
  27809. function WNetDisconnectDialog1A; external mpr name 'WNetDisconnectDialog1A';
  27810. {$EXTERNALSYM WNetDisconnectDialog1W}
  27811. function WNetDisconnectDialog1W; external mpr name 'WNetDisconnectDialog1W';
  27812. {$EXTERNALSYM WNetDisconnectDialog1}
  27813. function WNetDisconnectDialog1; external mpr name 'WNetDisconnectDialog1A';
  27814. {$EXTERNALSYM WNetDisconnectDialog}
  27815. function WNetDisconnectDialog; external mpr name 'WNetDisconnectDialog';
  27816. {$EXTERNALSYM WNetEnumResourceA}
  27817. function WNetEnumResourceA; external mpr name 'WNetEnumResourceA';
  27818. {$EXTERNALSYM WNetEnumResourceW}
  27819. function WNetEnumResourceW; external mpr name 'WNetEnumResourceW';
  27820. {$EXTERNALSYM WNetEnumResource}
  27821. function WNetEnumResource; external mpr name 'WNetEnumResourceA';
  27822. {$EXTERNALSYM WNetGetConnectionA}
  27823. function WNetGetConnectionA; external mpr name 'WNetGetConnectionA';
  27824. {$EXTERNALSYM WNetGetConnectionW}
  27825. function WNetGetConnectionW; external mpr name 'WNetGetConnectionW';
  27826. {$EXTERNALSYM WNetGetConnection}
  27827. function WNetGetConnection; external mpr name 'WNetGetConnectionA';
  27828. {$EXTERNALSYM WNetGetLastErrorA}
  27829. function WNetGetLastErrorA; external mpr name 'WNetGetLastErrorA';
  27830. {$EXTERNALSYM WNetGetLastErrorW}
  27831. function WNetGetLastErrorW; external mpr name 'WNetGetLastErrorW';
  27832. {$EXTERNALSYM WNetGetLastError}
  27833. function WNetGetLastError; external mpr name 'WNetGetLastErrorA';
  27834. {$EXTERNALSYM WNetGetNetworkInformationA}
  27835. function WNetGetNetworkInformationA; external mpr name 'WNetGetNetworkInformationA';
  27836. {$EXTERNALSYM WNetGetNetworkInformationW}
  27837. function WNetGetNetworkInformationW; external mpr name 'WNetGetNetworkInformationW';
  27838. {$EXTERNALSYM WNetGetNetworkInformation}
  27839. function WNetGetNetworkInformation; external mpr name 'WNetGetNetworkInformationA';
  27840. {$EXTERNALSYM WNetGetProviderNameA}
  27841. function WNetGetProviderNameA; external mpr name 'WNetGetProviderNameA';
  27842. {$EXTERNALSYM WNetGetProviderNameW}
  27843. function WNetGetProviderNameW; external mpr name 'WNetGetProviderNameW';
  27844. {$EXTERNALSYM WNetGetProviderName}
  27845. function WNetGetProviderName; external mpr name 'WNetGetProviderNameA';
  27846. {$EXTERNALSYM WNetGetResourceParentA}
  27847. function WNetGetResourceParentA; external mpr name 'WNetGetResourceParentA';
  27848. {$EXTERNALSYM WNetGetResourceParentW}
  27849. function WNetGetResourceParentW; external mpr name 'WNetGetResourceParentW';
  27850. {$EXTERNALSYM WNetGetResourceParent}
  27851. function WNetGetResourceParent; external mpr name 'WNetGetResourceParentA';
  27852. {$EXTERNALSYM WNetGetUniversalNameA}
  27853. function WNetGetUniversalNameA; external mpr name 'WNetGetUniversalNameA';
  27854. {$EXTERNALSYM WNetGetUniversalNameW}
  27855. function WNetGetUniversalNameW; external mpr name 'WNetGetUniversalNameW';
  27856. {$EXTERNALSYM WNetGetUniversalName}
  27857. function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameA';
  27858. {$EXTERNALSYM WNetGetUserA}
  27859. function WNetGetUserA; external mpr name 'WNetGetUserA';
  27860. {$EXTERNALSYM WNetGetUserW}
  27861. function WNetGetUserW; external mpr name 'WNetGetUserW';
  27862. {$EXTERNALSYM WNetGetUser}
  27863. function WNetGetUser; external mpr name 'WNetGetUserA';
  27864. {$EXTERNALSYM WNetOpenEnumA}
  27865. function WNetOpenEnumA; external mpr name 'WNetOpenEnumA';
  27866. {$EXTERNALSYM WNetOpenEnumW}
  27867. function WNetOpenEnumW; external mpr name 'WNetOpenEnumW';
  27868. {$EXTERNALSYM WNetOpenEnum}
  27869. function WNetOpenEnum; external mpr name 'WNetOpenEnumA';
  27870. {$EXTERNALSYM WNetSetConnectionA}
  27871. function WNetSetConnectionA; external mpr name 'WNetSetConnectionA';
  27872. {$EXTERNALSYM WNetSetConnectionW}
  27873. function WNetSetConnectionW; external mpr name 'WNetSetConnectionW';
  27874. {$EXTERNALSYM WNetSetConnection}
  27875. function WNetSetConnection; external mpr name 'WNetSetConnectionA';
  27876. {$EXTERNALSYM WNetUseConnectionA}
  27877. function WNetUseConnectionA; external mpr name 'WNetUseConnectionA';
  27878. {$EXTERNALSYM WNetUseConnectionW}
  27879. function WNetUseConnectionW; external mpr name 'WNetUseConnectionW';
  27880. {$EXTERNALSYM WNetUseConnection}
  27881. function WNetUseConnection; external mpr name 'WNetUseConnectionA';
  27882.  
  27883.  
  27884. { Externals from version.dll }
  27885.  
  27886. {$EXTERNALSYM GetFileVersionInfoA}
  27887. function GetFileVersionInfoA; external version name 'GetFileVersionInfoA';
  27888. {$EXTERNALSYM GetFileVersionInfoW}
  27889. function GetFileVersionInfoW; external version name 'GetFileVersionInfoW';
  27890. {$EXTERNALSYM GetFileVersionInfo}
  27891. function GetFileVersionInfo; external version name 'GetFileVersionInfoA';
  27892. {$EXTERNALSYM GetFileVersionInfoSizeA}
  27893. function GetFileVersionInfoSizeA; external version name 'GetFileVersionInfoSizeA';
  27894. {$EXTERNALSYM GetFileVersionInfoSizeW}
  27895. function GetFileVersionInfoSizeW; external version name 'GetFileVersionInfoSizeW';
  27896. {$EXTERNALSYM GetFileVersionInfoSize}
  27897. function GetFileVersionInfoSize; external version name 'GetFileVersionInfoSizeA';
  27898. {$EXTERNALSYM VerFindFileA}
  27899. function VerFindFileA; external version name 'VerFindFileA';
  27900. {$EXTERNALSYM VerFindFileW}
  27901. function VerFindFileW; external version name 'VerFindFileW';
  27902. {$EXTERNALSYM VerFindFile}
  27903. function VerFindFile; external version name 'VerFindFileA';
  27904. {$EXTERNALSYM VerInstallFileA}
  27905. function VerInstallFileA; external version name 'VerInstallFileA';
  27906. {$EXTERNALSYM VerInstallFileW}
  27907. function VerInstallFileW; external version name 'VerInstallFileW';
  27908. {$EXTERNALSYM VerInstallFile}
  27909. function VerInstallFile; external version name 'VerInstallFileA';
  27910. {$EXTERNALSYM VerQueryValueA}
  27911. function VerQueryValueA; external version name 'VerQueryValueA';
  27912. {$EXTERNALSYM VerQueryValueW}
  27913. function VerQueryValueW; external version name 'VerQueryValueW';
  27914. {$EXTERNALSYM VerQueryValue}
  27915. function VerQueryValue; external version name 'VerQueryValueA';
  27916.  
  27917. { Externals from comctl32.dll }
  27918.  
  27919. {$EXTERNALSYM GetPrivateProfileStructA}
  27920. function GetPrivateProfileStructA; external comctl32 name 'GetPrivateProfileStructA';
  27921. {$EXTERNALSYM GetPrivateProfileStructW}
  27922. function GetPrivateProfileStructW; external comctl32 name 'GetPrivateProfileStructW';
  27923. {$EXTERNALSYM GetPrivateProfileStruct}
  27924. function GetPrivateProfileStruct; external comctl32 name 'GetPrivateProfileStructA';
  27925. {$EXTERNALSYM WritePrivateProfileStructA}
  27926. function WritePrivateProfileStructA; external comctl32 name 'WritePrivateProfileStructA';
  27927. {$EXTERNALSYM WritePrivateProfileStructW}
  27928. function WritePrivateProfileStructW; external comctl32 name 'WritePrivateProfileStructW';
  27929. {$EXTERNALSYM WritePrivateProfileStruct}
  27930. function WritePrivateProfileStruct; external comctl32 name 'WritePrivateProfileStructA';
  27931.  
  27932.  
  27933. { Externals from gdi32.dll }
  27934.  
  27935. {$EXTERNALSYM AbortDoc}
  27936. function AbortDoc; external gdi32 name 'AbortDoc';
  27937. {$EXTERNALSYM AbortPath}
  27938. function AbortPath; external gdi32 name 'AbortPath';
  27939. {$EXTERNALSYM AddFontResourceA}
  27940. function AddFontResourceA; external gdi32 name 'AddFontResourceA';
  27941. {$EXTERNALSYM AddFontResourceW}
  27942. function AddFontResourceW; external gdi32 name 'AddFontResourceW';
  27943. {$EXTERNALSYM AddFontResource}
  27944. function AddFontResource; external gdi32 name 'AddFontResourceA';
  27945. {$EXTERNALSYM AngleArc}
  27946. function AngleArc; external gdi32 name 'AngleArc';
  27947. {$EXTERNALSYM AnimatePalette}
  27948. function AnimatePalette; external gdi32 name 'AnimatePalette';
  27949. {$EXTERNALSYM Arc}
  27950. function Arc; external gdi32 name 'Arc';
  27951. {$EXTERNALSYM ArcTo}
  27952. function ArcTo; external gdi32 name 'ArcTo';
  27953. {$EXTERNALSYM BeginPath}
  27954. function BeginPath; external gdi32 name 'BeginPath';
  27955. {$EXTERNALSYM BitBlt}
  27956. function BitBlt; external gdi32 name 'BitBlt';
  27957. {$EXTERNALSYM CancelDC}
  27958. function CancelDC; external gdi32 name 'CancelDC';
  27959. {$EXTERNALSYM CheckColorsInGamut}
  27960. function CheckColorsInGamut; external gdi32 name 'CheckColorsInGamut';
  27961. {$EXTERNALSYM ChoosePixelFormat}
  27962. function ChoosePixelFormat; external gdi32 name 'ChoosePixelFormat';
  27963. {$EXTERNALSYM Chord}
  27964. function Chord; external gdi32 name 'Chord';
  27965. {$EXTERNALSYM CloseEnhMetaFile}
  27966. function CloseEnhMetaFile; external gdi32 name 'CloseEnhMetaFile';
  27967. {$EXTERNALSYM CloseFigure}
  27968. function CloseFigure; external gdi32 name 'CloseFigure';
  27969. {$EXTERNALSYM CloseMetaFile}
  27970. function CloseMetaFile; external gdi32 name 'CloseMetaFile';
  27971. {$EXTERNALSYM ColorMatchToTarget}
  27972. function ColorMatchToTarget; external gdi32 name 'ColorMatchToTarget';
  27973. {$EXTERNALSYM CombineRgn}
  27974. function CombineRgn; external gdi32 name 'CombineRgn';
  27975. {$EXTERNALSYM CombineTransform}
  27976. function CombineTransform; external gdi32 name 'CombineTransform';
  27977. {$EXTERNALSYM CopyEnhMetaFileA}
  27978. function CopyEnhMetaFileA; external gdi32 name 'CopyEnhMetaFileA';
  27979. {$EXTERNALSYM CopyEnhMetaFileW}
  27980. function CopyEnhMetaFileW; external gdi32 name 'CopyEnhMetaFileW';
  27981. {$EXTERNALSYM CopyEnhMetaFile}
  27982. function CopyEnhMetaFile; external gdi32 name 'CopyEnhMetaFileA';
  27983. {$EXTERNALSYM CopyMetaFileA}
  27984. function CopyMetaFileA; external gdi32 name 'CopyMetaFileA';
  27985. {$EXTERNALSYM CopyMetaFileW}
  27986. function CopyMetaFileW; external gdi32 name 'CopyMetaFileW';
  27987. {$EXTERNALSYM CopyMetaFile}
  27988. function CopyMetaFile; external gdi32 name 'CopyMetaFileA';
  27989. {$EXTERNALSYM CreateBitmap}
  27990. function CreateBitmap; external gdi32 name 'CreateBitmap';
  27991. {$EXTERNALSYM CreateBitmapIndirect}
  27992. function CreateBitmapIndirect; external gdi32 name 'CreateBitmapIndirect';
  27993. {$EXTERNALSYM CreateBrushIndirect}
  27994. function CreateBrushIndirect; external gdi32 name 'CreateBrushIndirect';
  27995. {$EXTERNALSYM CreateColorSpaceA}
  27996. function CreateColorSpaceA; external gdi32 name 'CreateColorSpaceA';
  27997. {$EXTERNALSYM CreateColorSpaceW}
  27998. function CreateColorSpaceW; external gdi32 name 'CreateColorSpaceW';
  27999. {$EXTERNALSYM CreateColorSpace}
  28000. function CreateColorSpace; external gdi32 name 'CreateColorSpaceA';
  28001. {$EXTERNALSYM CreateCompatibleBitmap}
  28002. function CreateCompatibleBitmap; external gdi32 name 'CreateCompatibleBitmap';
  28003. {$EXTERNALSYM CreateCompatibleDC}
  28004. function CreateCompatibleDC; external gdi32 name 'CreateCompatibleDC';
  28005. {$EXTERNALSYM CreateDCA}
  28006. function CreateDCA; external gdi32 name 'CreateDCA';
  28007. {$EXTERNALSYM CreateDCW}
  28008. function CreateDCW; external gdi32 name 'CreateDCW';
  28009. {$EXTERNALSYM CreateDC}
  28010. function CreateDC; external gdi32 name 'CreateDCA';
  28011. {$EXTERNALSYM CreateDIBPatternBrush}
  28012. function CreateDIBPatternBrush; external gdi32 name 'CreateDIBPatternBrush';
  28013. {$EXTERNALSYM CreateDIBPatternBrushPt}
  28014. function CreateDIBPatternBrushPt; external gdi32 name 'CreateDIBPatternBrushPt';
  28015. {$EXTERNALSYM CreateDIBSection}
  28016. function CreateDIBSection; external gdi32 name 'CreateDIBSection';
  28017. {$EXTERNALSYM CreateDIBitmap}
  28018. function CreateDIBitmap; external gdi32 name 'CreateDIBitmap';
  28019. {$EXTERNALSYM CreateDiscardableBitmap}
  28020. function CreateDiscardableBitmap; external gdi32 name 'CreateDiscardableBitmap';
  28021. {$EXTERNALSYM CreateEllipticRgn}
  28022. function CreateEllipticRgn; external gdi32 name 'CreateEllipticRgn';
  28023. {$EXTERNALSYM CreateEllipticRgnIndirect}
  28024. function CreateEllipticRgnIndirect; external gdi32 name 'CreateEllipticRgnIndirect';
  28025. {$EXTERNALSYM CreateEnhMetaFileA}
  28026. function CreateEnhMetaFileA; external gdi32 name 'CreateEnhMetaFileA';
  28027. {$EXTERNALSYM CreateEnhMetaFileW}
  28028. function CreateEnhMetaFileW; external gdi32 name 'CreateEnhMetaFileW';
  28029. {$EXTERNALSYM CreateEnhMetaFile}
  28030. function CreateEnhMetaFile; external gdi32 name 'CreateEnhMetaFileA';
  28031. {$EXTERNALSYM CreateFontA}
  28032. function CreateFontA; external gdi32 name 'CreateFontA';
  28033. {$EXTERNALSYM CreateFontW}
  28034. function CreateFontW; external gdi32 name 'CreateFontW';
  28035. {$EXTERNALSYM CreateFont}
  28036. function CreateFont; external gdi32 name 'CreateFontA';
  28037. {$EXTERNALSYM CreateFontIndirectA}
  28038. function CreateFontIndirectA; external gdi32 name 'CreateFontIndirectA';
  28039. {$EXTERNALSYM CreateFontIndirectW}
  28040. function CreateFontIndirectW; external gdi32 name 'CreateFontIndirectW';
  28041. {$EXTERNALSYM CreateFontIndirect}
  28042. function CreateFontIndirect; external gdi32 name 'CreateFontIndirectA';
  28043. {$EXTERNALSYM CreateHalftonePalette}
  28044. function CreateHalftonePalette; external gdi32 name 'CreateHalftonePalette';
  28045. {$EXTERNALSYM CreateHatchBrush}
  28046. function CreateHatchBrush; external gdi32 name 'CreateHatchBrush';
  28047. {$EXTERNALSYM CreateICA}
  28048. function CreateICA; external gdi32 name 'CreateICA';
  28049. {$EXTERNALSYM CreateICW}
  28050. function CreateICW; external gdi32 name 'CreateICW';
  28051. {$EXTERNALSYM CreateIC}
  28052. function CreateIC; external gdi32 name 'CreateICA';
  28053. {$EXTERNALSYM CreateMetaFileA}
  28054. function CreateMetaFileA; external gdi32 name 'CreateMetaFileA';
  28055. {$EXTERNALSYM CreateMetaFileW}
  28056. function CreateMetaFileW; external gdi32 name 'CreateMetaFileW';
  28057. {$EXTERNALSYM CreateMetaFile}
  28058. function CreateMetaFile; external gdi32 name 'CreateMetaFileA';
  28059. {$EXTERNALSYM CreatePalette}
  28060. function CreatePalette; external gdi32 name 'CreatePalette';
  28061. {$EXTERNALSYM CreatePatternBrush}
  28062. function CreatePatternBrush; external gdi32 name 'CreatePatternBrush';
  28063. {$EXTERNALSYM CreatePen}
  28064. function CreatePen; external gdi32 name 'CreatePen';
  28065. {$EXTERNALSYM CreatePenIndirect}
  28066. function CreatePenIndirect; external gdi32 name 'CreatePenIndirect';
  28067. {$EXTERNALSYM CreatePolyPolygonRgn}
  28068. function CreatePolyPolygonRgn; external gdi32 name 'CreatePolyPolygonRgn';
  28069. {$EXTERNALSYM CreatePolygonRgn}
  28070. function CreatePolygonRgn; external gdi32 name 'CreatePolygonRgn';
  28071. {$EXTERNALSYM CreateRectRgn}
  28072. function CreateRectRgn; external gdi32 name 'CreateRectRgn';
  28073. {$EXTERNALSYM CreateRectRgnIndirect}
  28074. function CreateRectRgnIndirect; external gdi32 name 'CreateRectRgnIndirect';
  28075. {$EXTERNALSYM CreateRoundRectRgn}
  28076. function CreateRoundRectRgn; external gdi32 name 'CreateRoundRectRgn';
  28077. {$EXTERNALSYM CreateScalableFontResourceA}
  28078. function CreateScalableFontResourceA; external gdi32 name 'CreateScalableFontResourceA';
  28079. {$EXTERNALSYM CreateScalableFontResourceW}
  28080. function CreateScalableFontResourceW; external gdi32 name 'CreateScalableFontResourceW';
  28081. {$EXTERNALSYM CreateScalableFontResource}
  28082. function CreateScalableFontResource; external gdi32 name 'CreateScalableFontResourceA';
  28083. {$EXTERNALSYM CreateSolidBrush}
  28084. function CreateSolidBrush; external gdi32 name 'CreateSolidBrush';
  28085. {$EXTERNALSYM DPtoLP}
  28086. function DPtoLP; external gdi32 name 'DPtoLP';
  28087. {$EXTERNALSYM DeleteColorSpace}
  28088. function DeleteColorSpace; external gdi32 name 'DeleteColorSpace';
  28089. {$EXTERNALSYM DeleteDC}
  28090. function DeleteDC; external gdi32 name 'DeleteDC';
  28091. {$EXTERNALSYM DeleteEnhMetaFile}
  28092. function DeleteEnhMetaFile; external gdi32 name 'DeleteEnhMetaFile';
  28093. {$EXTERNALSYM DeleteMetaFile}
  28094. function DeleteMetaFile; external gdi32 name 'DeleteMetaFile';
  28095. {$EXTERNALSYM DeleteObject}
  28096. function DeleteObject; external gdi32 name 'DeleteObject';
  28097. {$EXTERNALSYM DescribePixelFormat}
  28098. function DescribePixelFormat; external gdi32 name 'DescribePixelFormat';
  28099. {$EXTERNALSYM DeviceCapabilitiesA}
  28100. function DeviceCapabilitiesA; external gdi32 name 'DeviceCapabilitiesA';
  28101. {$EXTERNALSYM DeviceCapabilitiesW}
  28102. function DeviceCapabilitiesW; external gdi32 name 'DeviceCapabilitiesW';
  28103. {$EXTERNALSYM DeviceCapabilities}
  28104. function DeviceCapabilities; external gdi32 name 'DeviceCapabilitiesA';
  28105. {function DeviceCapabilitiesEx; external gdi32 name 'DeviceCapabilities';}
  28106. {$EXTERNALSYM DrawEscape}
  28107. function DrawEscape; external gdi32 name 'DrawEscape';
  28108. {$EXTERNALSYM Ellipse}
  28109. function Ellipse; external gdi32 name 'Ellipse';
  28110. {$EXTERNALSYM EndDoc}
  28111. function EndDoc; external gdi32 name 'EndDoc';
  28112. {$EXTERNALSYM EndPage}
  28113. function EndPage; external gdi32 name 'EndPage';
  28114. {$EXTERNALSYM EndPath}
  28115. function EndPath; external gdi32 name 'EndPath';
  28116. {$EXTERNALSYM EnumEnhMetaFile}
  28117. function EnumEnhMetaFile; external gdi32 name 'EnumEnhMetaFile';
  28118. {$EXTERNALSYM EnumFontFamiliesA}
  28119. function EnumFontFamiliesA; external gdi32 name 'EnumFontFamiliesA';
  28120. {$EXTERNALSYM EnumFontFamiliesW}
  28121. function EnumFontFamiliesW; external gdi32 name 'EnumFontFamiliesW';
  28122. {$EXTERNALSYM EnumFontFamilies}
  28123. function EnumFontFamilies; external gdi32 name 'EnumFontFamiliesA';
  28124. {$EXTERNALSYM EnumFontFamiliesExA}
  28125. function EnumFontFamiliesExA; external gdi32 name 'EnumFontFamiliesExA';
  28126. {$EXTERNALSYM EnumFontFamiliesExW}
  28127. function EnumFontFamiliesExW; external gdi32 name 'EnumFontFamiliesExW';
  28128. {$EXTERNALSYM EnumFontFamiliesEx}
  28129. function EnumFontFamiliesEx; external gdi32 name 'EnumFontFamiliesExA';
  28130. {$EXTERNALSYM EnumFontsA}
  28131. function EnumFontsA; external gdi32 name 'EnumFontsA';
  28132. {$EXTERNALSYM EnumFontsW}
  28133. function EnumFontsW; external gdi32 name 'EnumFontsW';
  28134. {$EXTERNALSYM EnumFonts}
  28135. function EnumFonts; external gdi32 name 'EnumFontsA';
  28136. {$EXTERNALSYM EnumICMProfilesA}
  28137. function EnumICMProfilesA; external gdi32 name 'EnumICMProfilesA';
  28138. {$EXTERNALSYM EnumICMProfilesW}
  28139. function EnumICMProfilesW; external gdi32 name 'EnumICMProfilesW';
  28140. {$EXTERNALSYM EnumICMProfiles}
  28141. function EnumICMProfiles; external gdi32 name 'EnumICMProfilesA';
  28142. {$EXTERNALSYM EnumMetaFile}
  28143. function EnumMetaFile; external gdi32 name 'EnumMetaFile';
  28144. {$EXTERNALSYM EnumObjects}
  28145. function EnumObjects; external gdi32 name 'EnumObjects';
  28146. {$EXTERNALSYM EqualRgn}
  28147. function EqualRgn; external gdi32 name 'EqualRgn';
  28148. {$EXTERNALSYM Escape}
  28149. function Escape; external gdi32 name 'Escape';
  28150. {$EXTERNALSYM ExcludeClipRect}
  28151. function ExcludeClipRect; external gdi32 name 'ExcludeClipRect';
  28152. {$EXTERNALSYM ExtCreatePen}
  28153. function ExtCreatePen; external gdi32 name 'ExtCreatePen';
  28154. {$EXTERNALSYM ExtCreateRegion}
  28155. function ExtCreateRegion; external gdi32 name 'ExtCreateRegion';
  28156. {$EXTERNALSYM ExtEscape}
  28157. function ExtEscape; external gdi32 name 'ExtEscape';
  28158. {$EXTERNALSYM ExtFloodFill}
  28159. function ExtFloodFill; external gdi32 name 'ExtFloodFill';
  28160. {$EXTERNALSYM ExtSelectClipRgn}
  28161. function ExtSelectClipRgn; external gdi32 name 'ExtSelectClipRgn';
  28162. {$EXTERNALSYM ExtTextOutA}
  28163. function ExtTextOutA; external gdi32 name 'ExtTextOutA';
  28164. {$EXTERNALSYM ExtTextOutW}
  28165. function ExtTextOutW; external gdi32 name 'ExtTextOutW';
  28166. {$EXTERNALSYM ExtTextOut}
  28167. function ExtTextOut; external gdi32 name 'ExtTextOutA';
  28168. {$EXTERNALSYM FillPath}
  28169. function FillPath; external gdi32 name 'FillPath';
  28170. {$EXTERNALSYM FillRgn}
  28171. function FillRgn; external gdi32 name 'FillR